VBS编程使一文本文件中的每一行字符前添加指定的字符！

[shadowDLL]

RT：请教
怎样 VBS编程使一文本文件中的每一行字符前添加指定的字符！

如：文本文件中的内容为

111
222
333

编写脚本使内容变为
A111
A222
A333

[wanghui0380]

Const ForReading = 1
Const ForWriting = 2
Ini_line=1

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile _
("test.log", ForReading)

Do Until objTextFile.AtEndOfStream
strLine = objTextFile.ReadLine

strNewText = strNewText & "A"+strLine & vbCrLf

Ini_line=Ini_line+1
Loop

objTextFile.Close
Set objTextFile = objFSO.OpenTextFile _
("test.log", ForWriting)
objTextFile.Write(strNewText)
objTextFile.Close

[是是非非]

用Scripting.FileSystemObject对象打开要处理的文件A，并创建一个输出文件B
从A中一行一行读取数据（ReadLine方法），在读出的字符串前面添加一段
然后写入B（WriteLine方法）
最后关闭两个文件

具体的代码就不写出来了

[tigerwen01]

楼上的斑竹的思路不错，只要再看一些FileSystemObject相关操作就可以完成任务。