vb如何去掉TXT文件中某行文本
假如a.txt文件是这样的fristsecondaabb现在我要用VB让他变成firstaabb怎么做?...
假如a.txt文件是这样的
frist
second
aa
bb
现在我要用VB让他变成
first
aa
bb
怎么做? 展开
frist
second
aa
bb
现在我要用VB让他变成
first
aa
bb
怎么做? 展开
4个回答
展开全部
删除的标准是什么,难道只删第二行?开两个文件,一读一写,根据条件,把要的写进另一文件即可。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
符串,然后将该字符串中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
如果不要空行,就将该字符串中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
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
你可以重新让春设置a.txt=first&vbcrlf&aa&vbcrlf&bb
其中vbcrlf是回车换缺滑瞎行的意思伏空
其中vbcrlf是回车换缺滑瞎行的意思伏空
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询