3

テキストファイルから11行目を読み取るVBスクリプトがあります。ただし、その行から48〜53文字を抽出し、変数として保存する必要があります。これが完了したら、その変数を使用してWebURLで使用したいと思います。以下の例：

szCPUSer.datファイルの内容は次のようになります。 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

変数SerNumとして格納するよりも、11行目から03187を抽出するスクリプトが必要です。この後、たとえばURLで抽出されたその番号を使用したいと思います。

http://seriallookup.com/serial=SerNum

4

2 に答える 2

3

以下の作品！

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
于 2012-08-30T19:59:09.737 に答える
1

InStr関数を見てください。サブストリングを検索できます。

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

次に、Right関数を使用して、行の終了ビットを解析できます。

また、Split関数を確認して、行を配列に解析し、最適な方法で処理できるようにすることもできます。

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

于 2012-08-30T20:04:26.093 に答える