VB去掉TXT文件中段与段之间的行数
来源:百度知道 编辑:UC知道 时间:2024/09/21 10:39:50
我举个例子,如下,这2段中间空了很多行,但是我现在只要空一行,怎么用VB实现,如果不要空呢
其他功能爱国者贵宾王P959是一款既有U盘功能,又能当作VIP美食优惠卡使用的独特产品,持有人可在武汉多家中餐馆、西餐馆、酒吧、咖啡馆、茶艺馆享受打折优惠。
具体使用方法是这样的:将“贵宾王U盘”USB口插入电脑后就能查询到当日所有签约饭馆的优惠信息,并且包括相关饭店的地址、招牌菜、订餐电话等等,无论是居家旅行还是饕餮大餐你都可以找到自己需要的优惠信息
一个更简单的方法。
一次性读取文本文件到一个字符串,然后将该字符串中3个以上的换行替换成2个,再保存,就实现了只空一行。
如果不要空行,就将该字符串中2个以上的换行替换成1个,就可以了。程序中少写一个vbCrLf就可以了。
Private Sub Command1_Click()
Dim S As String, FileName As String
FileName = "d:\test.txt"
Open FileName For Binary As #1
S = Space(LOF(1))
Get #1, , S
Close #1
Do While InStr(1, S, vbCrLf & vbCrLf & vbCrLf) > 0
S = Replace(S, vbCrLf & vbCrLf & vbCrLf, vbCrLf & vbCrLf)
Loop
Open FileName For Output As #1
Print #1, S
Close #1
End Sub
这是不要空行的
Private Sub Command1_Click()
Dim s() As String, n As Integer, fname As String
fname = "f:\*.txt"
Open fname For Input As #1
Do While Not EOF(1)
ReDim Preserve s(0 To n)
Line Input #1, s(n)
s(n) = Trim(s(n))
n = n + 1
Loop
Close #1
Open fname For