VBScript для чтения определенной строки и извлечения символов и сохранения ее в виде переменной

У меня есть VB-скрипт, который читает 11-ю строку из текстового файла. Однако из этой строки Мне нужно извлечь символы с 48 по 53 и сохранить их как переменную. После этого я хотел бы использовать эту переменную и использовать ее в веб-url. Пример ниже:

Содержимое szCPUSer.файл dat выглядит так: szCPUSer.дат

Сценарий, который у меня есть, читает 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

Мне нужно, чтобы скрипт извлек 03187 из 11-й строки, а не хранил его как переменную SerNum. после это я хотел бы использовать, что число извлечено в url-адрес, например:

Http://seriallookup.com/serial=SerNum

2 2
character vbscript readline

2 ответа:

Следующие работы!

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
2

Взгляните на функцию InStr. Он позволяет искать подстроку.

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

Затем вы можете использовать правильную функцию для разбора конечного бита строки.

Вы также можете посмотреть на функцию Split, чтобы можно было разбирать строки на массивы и работать с ними так, как это было бы лучше всего.

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

1