Frage : VB Index: Spezifischer Text des Ausganges von der Textdatei

Hallo dort,

I Notwendigkeit, den folgenden Index zu ändern, um zu extrahieren, was Text zwischen lokalisiert: „Parameter eins: “ und „“.


SO DURCH DIE ANWENDUNG DER BEFEHLSZEILE:
************************** ********** ********** ********** ******
cscript GetParameter.vbs //NOLOGO „input.txt“ „Parameter 1“ >output.txt


FROM DIE FOLGENDE INPUT.TXT TEXTDATEI:
************************** ********** ********** ********** ******
whatever line
whatever line
This ist ein test> und ich bedeute es und warum not> Parameter 1: Elevator man ist online=True
whatever line
whatever line


THE ANALYSIERTES OUTPUT.TXT RESULTAT MUSS SEIN:
************************** ********** ********** ********** ******
Elevator man ist ZU ÄNDERN das online=True



SCRIPT:
************************** ********** ********** ********** ******
' sicherstellen iname, dass der Eingangsdateiname auf der Befehlszeile spezifiziert und erhalten it
If (WScript.Arguments.Count > 0) Then
Dateinamen = WScript.Arguments (0)
Else
WScript.Echo „kein spezifizierter Eingangsdateiname. „
WScript.Quit
End If

' las gesamte Eingangsakte in in ein einzelnes eingegebenes Schnur variable
Set fso = CreateObject („Scripting.FileSystemObject“) ein
Set = fso.OpenTextFile (Dateiname)
data = input.ReadAll
input. Eingegebenes Close
Set = Nothing

' verursachen Wörterbuchgegenstand ellininate duplicates
Set zum dict = CreateObject („Scripting.Dictionary“)

' verursachen Schablone des regulären Ausdrucks zu den locae das Auftrag numbers
Set bezüglich = neues RegExp
re. Muster = „OrderNum= [0-9] [0-9] [0-9] [0-9] [0-9] [0-9] [0-9] & "
re.IgnoreCase = True
re. Global = True

' hinzufügen Schleife durch jedes Gleiche, grap Auftragsnummer und wenn sie nicht bereits gefunden, dictionary
for jedes gen, das im Re geschlagen. (Daten)
order=Mid durchführen (Schlag. Wert, 10, 7)
wenn nicht dict. (Auftrag) Then
existiert dict. Auftrag, 0
Ende If
Next

' Ausgangsliste addieren des einzigartigen Auftragsnummern now
For jedes O im GEÄNDERT ZU WERDEN dict
Wscript.Echo o
Next



THIS INDEX Z.Z. DURCH DIE FOLGENDE BEFEHLSZEILE BENANNT:
************************** ********** ********** ********** ******
cscript GetNumbers.vbs //NOLOGO input.txt >output.txt



Thanks für Ihre Hilfe,
Rene
Related Lösungen: VBScript: Notwendigkeit, das erforderliche Resultat, ohne das junk. nur auszugeben

Antwort : VB Index: Spezifischer Text des Ausganges von der Textdatei

ihm gehen geben
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:

Dateinamen, Placeholder, Daten, Zeichen, subtokens, tok verdunkeln

Wenn (WScript.Arguments.Count = 2) dann
  Dateiname = WScript.Arguments (0)
  Placeholder = WScript.Arguments (1)
Sonst
  WScript.Echo „nicht enugh Argumente: erwartete 2 (Dateiname + Placeholder).“
  WScript.Quit
Beenden wenn
 
START_TOKEN = "" u. Placeholder u. ""
END_TOKEN = „„Fso = CreateObject („Scripting.FileSystemObject“) einstellen einstellen Eingang = fso.OpenTextFile (Dateiname) Daten = input.ReadAll Eingang. Gesetzten Eingang schließen = nichts Zeichen = aufspalten (Daten, START_TOKEN) für jedes tok in den Zeichen subtokens = aufspalten (tok, END_TOKEN) wenn UBound (subtokens) > 0 dann, wenn subtokens (0) <> "" dann WScript.Echo subtokens (0) wenn Ende wenn zunächst beenden
Weitere Lösungen  
 
programming4us programming4us