VBScript liest bestimmte Zeile und extrahieren von Zeichen und speichern Sie es als eine variable

Habe ich ein VB-script liest den 11ten Zeile aus einer text-Datei. Aber aus dieser Zeile brauche ich, um zu extrahieren von Zeichen 48 bis 53 und speichern Sie es als eine variable. Nachdem dies erreicht ist, möchte ich, dass Variablen und verwenden Sie es in einer web-url. Beispiel unten:

Inhalt der szCPUSer.dat-Datei wie folgt Aussehen:
VBScript liest bestimmte Zeile und extrahieren von Zeichen und speichern Sie es als eine variable

Das Skript habe ich gelesen das 10te Zeile

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

Muss ich das Skript zu extrahieren, 03187 aus der 11ten Linie als Speicher es als variable SerNum. danach würde ich gerne verwenden, die Anzahl von extrahierten in einer url z.B.:

http://seriallookup.com/serial=SerNum

InformationsquelleAutor user1636993 | 2012-08-30

  1. 3

    Folgende Werke!

    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
    Ich habe noch ein paar Probleme, wenn ich fügte hinzu, die letzten 2 Zeilen am Ende der code-shell.open "seriallookup.com/SerNum es schlägt fehl, und nur Beiträge, die Wert SerNum, der anstelle der Variablen Wert, die würde, 03187
    Ich habe geändert, die Antwort zu geben, die Ihnen die volle Arbeits-code. Auch, Sie Lesen die 11. Zeile aus der Datei, nicht 10!
    Ich danke Ihnen so sehr für Sie Hilfe zu diesem Thema. Das hilft mir wirklich zu verstehen, die volle pic. Jedoch habe ich noch ein paar Zeilen am Ende des Skripts aufrufen der url anstelle von echo. 'Option Explicit Dim wsh Set wsh=WScript.CreateObject("WScript.Shell") wsh.Ausführen von "seriallookup.com/serial=" & SerNum

    InformationsquelleAutor Curious

  2. 1

    Werfen Sie einen Blick auf InStr-Funktion. Es ermöglicht Ihnen die Suche nach einem Teilstring.

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

    Dann können Sie die Richtige Funktion zu analysieren Ende etwas die Linie.

    Können Sie auch einen Blick auf die Split-Funktion, so dass Sie analysieren können die Zeilen in arrays und befassen sich mit es so das beste wäre.

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

    InformationsquelleAutor Agent86

Schreibe einen Kommentar