怎么利用VBS脚本来逐行读取文本内容并复制,注意不是VB,是VBS脚本!

发布网友发布时间：2023-07-09 10:18

共1个回答

热心网友时间：2023-10-09 01:23

下面代码是第一次运行时读取复制是第一行内容，再一次运行就是第二行的

FileName="c:\123.txt" '修改成你要复制字符到剪切板的文件
Set fso=CreateObject("scripting.filesystemobject")
set ws=createobject("wscript.shell")
configPath=ws.ExpandEnvironmentStrings("%systemroot%") & "\~!filetmp"
set confObject=fso.opentextfile(configPath,1,1)
FignNum=""
if not confObject.atendofstream then FignNum=confObject.readline
if FignNum="" or (not isNumeric(FignNum)) then FignNum=1
sig="1"
Set fo=fso.OpenTextFile(FileName,1,1)
while not fo.atendofstream
text=fo.readline
if cint(sig)=cint(FignNum) then
Set Form = CreateObject("Forms.Form.1")
Set TextBox = Form.Controls.Add("Forms.TextBox.1").Object
TextBox.MultiLine = True
TextBox.Text = text
TextBox.SelStart = 0
TextBox.SelLength = TextBox.TextLength
TextBox.Copy
writefileAdd FignNum
wscript.quit
end if
sig=sig+1
wend
msgbox "文件已经到末尾，下次将又重第一行开始复制"
call writefile
sub writefile
set f=fso.opentextfile(configPath,2,1)
f.writeline "1"
f.close
end sub
sub writefileAdd(value)
set f=fso.opentextfile(configPath,2,1)
f.writeline value+1
f.close
end sub