vbs逐行读取txt文件并且逐行复制文件到其它文件中

Posted 2023-02-26

例如：C盘中有个a.txt 内容为
1
2
3
4
5
6
......
此时我鼠标放在一个其它文本文件B.txt中。功能是运行vbs程序后读取c:\a.txt文件中的第一行并复制到B.txt
最后B.txt内容为
1
2
3
4
5
6
......

参考技术A Dim objFSO1,objFSO2,objFile1,objFile2
Dim Temp : Temp = vbNullString
Const ForReading = 1

Set objFSO1 = CreateObject("Scripting.FileSystemObject")
Set objFile1 = objFSO1.OpenTextFile("c:\a.txt", ForReading, True)

Set objFSO2 = CreateObject("Scripting.FileSystemObject")
Set objFile2 = objFSO2.CreateTextFile("c:\B.txt", True)

Do Until objFile1.AtEndOfStream
Temp = objFile1.ReadLine
objFile2.WriteLine(Temp )
Loop

Set objFSO1 = Nothing
objFile1.Close
Set objFSO2 = Nothing
objFile2.Close追问

此时我鼠标放在一个其它文本文件B.txt中
你可能没有明白的我的意思，我要做的是复制一行以后复制的内容在剪切板，然后我鼠标是停留在一个文本框中的，不是后台运行的那种

追答

不好意思，我无法理解你的意思。
能否详细解释？