vbs怎么读取一个文本某行A到B之间的内容？

来源：百度知道 编辑：UC知道 时间：2024/05/24 06:34:58
怎么用vbs读取一个文本某行A到B之间的内容？

比方提示我要读取111.txt文件里第几行括号之间的内容并将此内容复制到剪切板该怎么写？

例子
111.txt内容
1=AS我A [lSADF@DA] ksidkef
2=D飞S [ADFE@SD] ksidkef
3=D文章A [ABC@DE] ksidkef
4=DFES [KGID] ksidkef
5=....
6=....
...

急需！谢谢！

可否告知你用这个脚本主要是干什么呢？
代码如下：

On Error Resume Next
Dim objfs,objreg,objie
Dim linenum,i,match,matches
linenum=Int(InputBox("你要读取111.txt文件的第几行？","请输入数字","1"))

Set objfs=CreateObject("scripting.filesystemobject")
Set objf=objfs.OpenTextFile("111.txt",1,False)

i=0
'找出要读取的那一行的字符串并赋给变量sline
Do Until objf.AtEndOfStream=True
        sline=objf.ReadLine
        i=i+1
        If i=linenum Then Exit Do        '当找到要读取的那一行时，退出do循环。
Loop

'如果输入的要读取的那一行大于总行数的，提示并退出。
If linenum>i Then
        MsgBox "没有这一行,最多只有" & i & "行"
        WScript.Quit
End If

'设