UC知道如何用VBS命令复制一个文本文件随机行的内容
来源：百度知道 编辑：UC知道 时间：2024/09/28 11:13:38
下面这个是复制前9行的。谁能帮帮我改成随机复制一行的内容`在此谢过大家了
set fso=createobject("scripting.filesystemobject")
set file=fso.opentextfile("a.txt")
do while file.atendofstream<>true
n=file.readline
s=s & vbcrlf & left(n,9)
loop
file.close
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Navigate("about:blank")
objIE.document.parentwindow.clipboardData.SetData "text", s
objIE.quit
wscript.echo "已经将a.txt文件里的每行的前9位复制到剪贴板！"
set fso=nothing
set file=nothing
set objie=nothing
set fso=createobject("scripting.filesystemobject")
set file=fso.opentextfile("a.txt")
do while file.atendofstream<>true
n=file.readline
s=s & vbcrlf & left(n,9)
loop
file.close
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Navigate("about:blank")
objIE.document.parentwindow.clipboardData.SetData "text", s
objIE.quit
wscript.echo "已经将a.txt文件里的每行的前9位复制到剪贴板！"
set fso=nothing
set file=nothing
set objie=nothing
set fso=createobject("scripting.filesystemobject")
set file=fso.opentextfile("a.txt")
file.readall
b=file.line
Randomize
c=Fix(Rnd*b)
file.Close
set file=fso.opentextfile("a.txt")
For i = 1 to c-1
file.ReadLine
Next
strLine = file.ReadLine
s = left(strLine,9)
file.Close
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Navigate("about:blank")
objIE.document.parentwindow.clipboardData.SetData "text", s
objIE.quit
wscript.echo "已经将a.txt文件里的第" &c&"行的前9位复制到剪贴板！"
set fso=nothing
set file=nothing
set objie=nothing