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

【问题标题】：VBScript to read specific line and extract characters and store it as a variableVBScript 读取特定行并提取字符并将其存储为变量
【发布时间】：2012-08-25 14:49:35
【问题描述】：

我有一个从文本文件中读取第 11 行的 VB 脚本。但是，我需要从该行中提取字符 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。在此之后，我想使用在 url 中提取的数字，例如：

http://seriallookup.com/serial=SerNum

【问题讨论】：

标签： variables vbscript character extract readline

【解决方案1】：

以下作品！

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

【讨论】：

当我在代码末尾添加最后两行时仍然有一些问题 shell.open "seriallookup.com/SerNum 它失败并且只发布值 SerNum 而不是 03187 的变量值
我已经修改了答案给你完整的工作代码。此外，您正在从文件中读取第 11 行，而不是第 10 行！
非常感谢您在此问题上提供的帮助。这真的有助于我理解完整的图片。但是，我确实在脚本末尾添加了几行来启动 url 而不是 echo。 'Option Explicit Dim wsh Set wsh=WScript.CreateObject("WScript.Shell") wsh.Run "seriallookup.com/serial=" & SerNum

【解决方案2】：

看看 InStr 函数。它允许您搜索子字符串。

http://www.w3schools.com/vbscript/func_instr.asp

然后就可以使用 Right 函数解析出行尾位了。

您还可以查看 Split 函数，以便将行解析为数组并以最好的方式处理它。

http://www.w3schools.com/vbscript/func_split.asp

【讨论】：