variables - VBScript读取特定行并提取字符并将其存储为变量

我有一个VB脚本，可从文本文件中读取第11行。但是，我需要从那一行提取48至53个字符并将其另存为变量。完成此操作后，我想使用该变量并在Web URL中使用它。下面的例子:

szCPUSer.dat文件的内容如下所示:

我读过的脚本第10行

Const ForReading = 1

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile("szCPUSer.dat", ForReading)

For i = 1 to 10
    objTextFile.ReadLine
Next

strLine = objTextFile.ReadLine
Wscript.Echo strLine

objTextFile.Close

我需要从第11行提取03187的脚本，而不是将其存储为变量SerNum。之后，我想使用从网址中提取的数字作为示例:

http://seriallookup.com/serial=SerNum

最佳答案

以下作品!

Const ForReading = 1
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile("szCPUSer.dat", ForReading)
For i = 1 to 10
    objTextFile.ReadLine
Next
strLine = objTextFile.ReadLine
Wscript.Echo strLine
objTextFile.Close

'Gets 6 chars starting from Right side
SerNum = Right(strLine, 6)
'Gets 6 chars starting from Left side
SerNum = Left(SerNum, 5)
'Wscript.Echo SerNum
url = "http://seriallookup.com/serial=" & SerNum
Wscript.Echo url