Vraag : VBScript: Behoefte aan slechts output het vereiste resultaat, zonder de troep.

Ik moet het volgende manuscript wijzigen om te halen welk tekst ook tussen wordt gevestigd: „Parameter: “ en „“ en output het in „Output.txt“, zonder de troep (zie verder).

You zal een simplistische gewijzigde steekproef van „Input.txt“ vinden zodat kunt u het idee krijgen. In werkelijkheid, bevat Input.txt een combinatie die van HTML en JavaScript, het Output.txt dossiersoort slordig maken; en het vereiste koord wordt gevestigd bij het is laatste line.

I omvatte niet het oorspronkelijke input.txt dossier omdat het veel vertrouwelijke info bevat en het zou me aan veel tijd nemen om het te herzien. Zo omvatte ik het gewijzigde Output.txt dossier. Als u absolutly het gewijzigde oorspronkelijke input.txt dossier nodig hebt, te laten gelieve me know.


Thanks,
Rene




BY GEBRUIKEND de LIJN van het BEVEL:
************************** ********** ********** ********** ******
cscript GetParameter.vbs //NOLOGO „input.txt“ „Parameter: „>OUTPUT.TXT



THE SIMPLISTISCH VALS INPUT.TXT- DOSSIER:
************************** ********** ********** ********** ******
whatever line
whatever line
This is een test> en ik bedoel het en waarom not> Parameter 1: Elevator één is RESULTAAT online=True
whatever line
whatever line



THE ONTLEED OUTPUT.TXT MOET SLECHTS ZIJN: />Elevator
************************** ********** ********** ********** ******
VB MANUSCRIPT/>


************************** ********** ********** ********** ******
dim filename, placeholder, gegevens, tokens, subtokens, tokIf (WScript.Arguments.Count = 2) Then
filename/>

placeholder WScript.Arguments argumenten = van WScript.Arguments (1)
Else
WScript.Echo de „niet enugh: verwachte 2 (filename + placeholder). „
WScript.Quit
End If

START_TOKEN = „“ & placeholder & „ "
END_TOKEN = „ "

Set = ingevoerde CreateObject („Scripting.FileSystemObject“)
Set = fso.OpenTextFile (filename)
data = input.ReadAll
input. Ingevoerde Close
Set = Nothing

tokens = verdeelde (gegevens, START_TOKEN)
for elke tok in tokens
subtokens = verdeelde (tok, END_TOKEN)
als (subtokens) > 0 then
als subtokens (0 het eind if
next




CURRENT) van het <>"" then
WScript.Echo subtokens (0)
eind if
OUTPUT.TXT DOSSIER DIE DE TROEP BEVATTEN:
************************** ********** ********** ********** ******
Is in bijlage als dossier voor uw review.
Attachments:
van
output.txt (3 KB) CURRENT Output.txt- DOSSIER die JUNK
BEVATTEN
Related Oplossingen: VB tekst van van het tekstdossier " class= ": Output-specifieke tekst van tekst file

Antwoord : VBScript: Behoefte aan slechts output het vereiste resultaat, zonder de troep.

te proberen gelieve het:
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:

schemerige filename, placeholder, gegevens, tekenen, subtokens, tok, startindex, index

Als (WScript.Arguments.Count = 2) toen
  filename = WScript.Arguments (0)
  placeholder = WScript.Arguments (1)
Anders
  WScript.Echo „niet enugh argumenten: verwachte 2 (filename + placeholder).“
  WScript.Quit
Eind als
 
START_TOKEN = "" & placeholder & ""
END_TOKEN = „„Plaats fso = CreateObject („Scripting.FileSystemObject“) plaatsen input = (filename) gegevens fso.OpenTextFile = input input.ReadAll. Sluit Vastgestelde input = niets startindex = (gegevens, START_TOKEN) tekenen InStr = verdelen (gegevens, START_TOKEN) als startindex > 0 toen startindex = 1 eind als voor index = startindex voor UBound (tekenen) subtokens = verdeel (tekenen (index), END_TOKEN) als UBound (subtokens) > 0 toen als subtokens (0) <> "" dan WScript.Echo subtokens (0) als eind als daarna beëindigt
Andere oplossingen  
 
programming4us programming4us