Vraag : VB manuscript: Output-specifieke tekst van tekstdossier

Hallo daar,/>I behoefte

Parameter: “ en „“.


SO DOOR DE LIJN VAN HET BEVEL TE GEBRUIKEN:
************************** ********** ********** ********** ******
cscript GetParameter.vbs //NOLOGO „input.txt“ „Parameter 1“ >output.txt


FROM het VOLGENDE DOSSIER van de input.txt- TEKST:
************************** ********** ********** ********** ******
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 ZIJN: />Elevator
************************** ********** ********** ********** ******




SCRIPT om zich TE WIJZIGEN:
************************** ********** ********** ********** ******
' zorgt het inputdossier ervoor - de naam wordt gespecificeerd op de bevellijn en krijgt/>If (WScript.Arguments.Count > 0) Then
filename it
Else
WScript.Echo „Geen gespecificeerd inputfilename. „
WScript.Quit
End If

' las volledig inputdossier in één enkele koord variable
Set = ingevoerde CreateObject („Scripting.FileSystemObject“)
Set = fso.OpenTextFile (filename)
data = input.ReadAll
input. Ingevoerde Close
Set = Nothing

' leidt woordenboek tot voorwerp aan ellininate duplicates
Set dict = CreateObject („Scripting.Dictionary“)

' cre�ërt regelmatig uitdrukkingsmalplaatje aan locae de orde numbers
Set aangaande = Nieuwe RegExp
re. Patroon = „OrderNum= [0-9] [0-9] [0-9] [0-9] [0-9] [0-9] [0-9] & "
re.IgnoreCase = True
re. Globaal = voegt de Lijn van True

' door elke gelijke, grap ordeaantal, en als niet reeds gevonden aan dictionary
for elk toe in Re raakte. Voer (gegevens)
order=Mid uit (klap. Waarde, 10, 7)
als niet dict. Bestaat (orde) Then
dict. Voeg orde toe, 0
de lijst van de Output van If
Next

' van unieke ordeaantallen now
For Elk o in TE WIJZIGEN dict
Wscript.Echo MANUSCRIPT o
Next



THIS zich MOMENTEEL OPGEROEPEN DOOR de VOLGENDE LIJN van het BEVEL:
************************** ********** ********** ********** ******
cscript GetNumbers.vbs //NOLOGO input.txt >output.txt



Thanks voor uw hulp,
Rene

Antwoord : VB manuscript: Output-specifieke tekst van tekstdossier

geef het gaan
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:
schemerige filename, placeholder, gegevens, tekenen, subtokens, tok

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 tekenen = verdelen (gegevens, START_TOKEN) voor elke tok in tekenen subtokens = verdelen (tok, 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