Frage : VBScript: Das erforderliche Resultat, ohne den Trödel nur ausgeben müssen.

Ich muss den folgenden Index ändern, um zu extrahieren, was Text zwischen lokalisiert: „Parameter eins: “ und „“ und Ausgang es in „Output.txt“, ohne den Trödel (unten sehen).

You findet eine stark vereinfachte geänderte Probe von „Input.txt“, also können Sie die Idee erhalten. In Wirklichkeit enthält Input.txt eine Kombination von HTML und von Javascript und bildet die Output.txt-Aktenart von unordentlichem; und die erforderliche Schnur befindet an ihr ist letztes line.

I mit.einschloß nicht die ursprüngliche input.txt-Akte, weil sie Lose vertrauliche Infos enthält und sie mich zu vieler Zeit, sie zu wiederholen nehmen. So mit.einschloß ich die geänderte Output.txt-Akte nderte. Wenn Sie absolutly die geänderte ursprüngliche input.txt-Akte benötigen, mich bitte lassen know.


Thanks,
Rene




BY USING DIE BEFEHLSZEILE:
************************** ********** ********** ********** ******
cscript GetParameter.vbs //NOLOGO „input.txt“ „Parameter einer: „>OUTPUT.TXT



THE STARK VEREINFACHTE AKTE DER FÄLSCHUNGS-INPUT.TXT:
************************** ********** ********** ********** ******
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 NUR SEIN:
************************** ********** ********** ********** ******
Elevator man ist online=True



VB INDEX ZU FIXE:
************************** ********** ********** ********** ******
dim Dateiname, Placeholder, Daten, tokens, subtokens, tok

If (WScript.Arguments.Count = 2) Then
Dateiname = WScript.Arguments (0)
Placeholder = WScript.Arguments (1)
Else
WScript.Echo „nicht enugh Argumente: erwartete 2 (Dateiname + Placeholder). „
WScript.Quit
End If

START_TOKEN = „/>END_TOKEN = „ "

Set fso = CreateObject “ u. Placeholder u. „ "
leSystemObject“)
Set eingegeben = fso.OpenTextFile (Dateiname)
data = input.ReadAll
input. Close
Set eingab = Nothing

tokens = aufspaltete (Daten, START_TOKEN)
for jedes tok tokens
in den subtokens = aufspaltete (tok, END_TOKEN)
wenn UBound (subtokens) > 0 then
wenn subtokens (0) <> "" then
WScript.Echo subtokens (0)
Ende if
Ende if
next




CURRENT OUTPUT.TXT AKTE, DIE DEN TRÖDEL ENTHÄLT:
************************** ********** ********** ********** ******
Is angebracht als Akte für Ihr review.
Attachments:
output.txt (3 KBs) (Akten-Art Details)
CURRENT OUTPUT.TXT AKTE, die DAS JUNK
ENTHÄLT
Related Lösungen: VB Index: Spezifischer Text des Ausganges vom Text file

Antwort : VBScript: Das erforderliche Resultat, ohne den Trödel nur ausgeben müssen.

es bitte versuchen:
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:
29:
30:
31:
32:
33:
34:

Dateinamen, Placeholder, Daten, Zeichen, subtokens, tok, startindex, Index 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 startindex = InStr (Daten, START_TOKEN) Zeichen = aufspalten (Daten, START_TOKEN) wenn startindex > 0 dann startindex = 1 Ende, wenn für Index = startindex UBound (Zeichen) zu den subtokens = aufspalten (Zeichen (Index), 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