VB批量修改一个文本文件的各行

来源：百度知道 编辑：UC知道 时间：2024/05/09 12:35:04
我想给一个TEXT1.TEXT中各行前添加一串代码AAAA
在TEXT1.TEXT中各行末尾添加代码BBBBBBB

请问怎么编，请给出代码，谢谢
输出文本到TEXT2.TEXT

以下代码就可以实现：

Dim fso As New FileSystemObject
Dim fil As File
Dim txt As TextStream
Private Sub Command1_Click()
Dim linestring As String
Open "c:\test.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, linestring
List1.AddItem linestring
Loop
Close #1
For i = 0 To List1.ListCount - 2
List1.List(i) = "AAAA" & List1.List(i)
Next
List1.List(List1.ListCount - 1) = "BBBBBBB" & List1.List(List1.ListCount - 1)
Set txt = fso.CreateTextFile("c:\test2.txt")
For i = 0 To List1.ListCount - 1
txt.WriteLine List1.List(i)
Next
txt.Close
End Sub

利用FSO里的 readline

笨点的办法:

做个循环,text1读一行,编辑字符串,text2写一行

另一个简单的办法:

text1全部读进来,然后利用replace把所有的chr(10)+chr(13)替换一下,别忘了第一个和最后一个要特殊处理.