UC知道VB去掉TXT文件中段与段之间的行数
来源：百度知道 编辑：UC知道 时间：2024/06/15 19:04:42
比如说TXT中有几段话，段与段之间隔了很多行数，现在要用VB让段与段之间只隔一行，代码应该怎么写，初学者 ，实在搞不明白
我举个例子，如下，这2段中间空了很多行，但是我现在只要空一行，怎么用VB实现，如果不要空呢
其他功能爱国者贵宾王P959是一款既有U盘功能，又能当作VIP美食优惠卡使用的独特产品，持有人可在武汉多家中餐馆、西餐馆、酒吧、咖啡馆、茶艺馆享受打折优惠。
具体使用方法是这样的：将“贵宾王U盘”USB口插入电脑后就能查询到当日所有签约饭馆的优惠信息，并且包括相关饭店的地址、招牌菜、订餐电话等等，无论是居家旅行还是饕餮大餐你都可以找到自己需要的优惠信息
我举个例子，如下，这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