找個大神幫忙寫壹個簡單的VB腳本~~

假設有12.txt,放在D:\根目錄下，其中數據如下：

45554

122132

12112312

121121

123222

98522

45622

寫壹個vbs腳本，12.vbs，也放在D:\根目錄下，內容如下：

dim str

str=""

Const ForReading = 1?

Set objFSO = CreateObject("Scripting.FileSystemObject")?

Set objTextFile = objFSO.OpenTextFile ("D:\12.txt", ForReading)?

Do Until objTextFile.AtEndOfStream?

strComputer = objTextFile.ReadLine?

str=str+"0X"+strComputer+vbCrLf

Loop?

objTextFile.Close?

Const ForAppending = 8?

Set objFSO = CreateObject("Scripting.FileSystemObject")?

Set objTextFile = objFSO.OpenTextFile ("D:\56.txt", ForAppending, True)?

objTextFile.Write(str)

objTextFile.Close?

執行12.vbs(雙擊即可），會在D:\生成56.txt,其中數據如下：

0X45554

0X122132

0X12112312

0X121121

0X123222

0X98522

0X45622

、、、、、、、、、、、、、、、、

是否滿足妳的要求了，請采納！