Fråga : VB skrivar: Tillverkad specifik text från text sparar

Hi där, behov för

I att ändra efter skriva till extraktet, allt vad text lokaliseras between: ”Parameter en: ” och ””.


SO, GENOM ATT ANVÄNDA BEFALLA, FODRAR: för ************************** för
parameter 1” >output.txt


FROM för
cscript GetParameter.vbs //NOLOGO ”input.txt” för ****** ”för för ********** för för ********** för för ********** som INPUT.TXT-TEXTEN SPARAR EFTER: för ************************** för
line
This för line
whatever för
whatever för ****** för för ********** för för ********** för för ********** är en test>, och jag betyder honom och varför not>Parameter 1: Elevator en är för online=True
whatever för line
whatever PARSED OUTPUT.TXT RESULTATET för line


THE MÅSTE VARA: för ************************** för

Elevator en för ****** för för ********** för för ********** för för ********** är online=True




SCRIPT som ska ÄNDRAS: för ************************** för

' för ****** för för ********** för för ********** för för ********** ser till mata in för att spara - känt specificeras på befalla fodrar och får den inga filenamen för it
If (WScript.Arguments.Count > 0) Then
= 0)
Else
WScript.Echo för WScript.Arguments (”matar in den specificerade filenamen. ”
' för
WScript.Quit
End If
läste helt matar in sparar in i en singel stränger fsoen för variable
Set = CreateObject (”Scripting.FileSystemObject”)
Set matar in =
data = input.ReadAll
input. Close
Set matar in = Nothing

' skapar ordboken anmärker till
' för dict för ellininateduplicates
Set = för CreateObject (”Scripting.Dictionary”)
skapar stamgästuttrycksmallen till locae beställanumbersre för/>Set. Mönstra = ”OrderNum= [0-9] [0-9] [0-9] [0-9] [0-9] [0-9] [0-9],
" />re.IgnoreCase = True
re. Globalt = True

' kretsar till och med varje match, grap beställer numrerar, och, om inte redan funnit, tillfogar till dictionary
for varje som slås i beträffande. Utför order=Mid för
(för data) (hit. Värdera 10, 7)
om inte dict. Finns (beställa), Then
dict. Tillfoga beställer, 0
avslutar tillverkad If
Next

' listar av unikt beställer numrerar now
For som varje nolla i o
Next



THIS för dict
Wscript.Echo SKRIVA för ATT ÄNDRAS KALLAS FÖR NÄRVARANDE AV BEFALLA FODRAR EFTER: för ************************** för

cscript GetNumbers.vbs //NOLOGO input.txt >output.txt



Thanks för din hjälp,
Rene för ****** för för ********** för för ********** för för ********** Related lösningar för class= ": VBScript: Behöv endast att tillverka det required resultatet, utan junk.

Svar : VB skrivar: Tillverkad specifik text från text sparar

ge det en gå
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:

dunkel filename, placeholder, data, tecken, subtokens, tok

Om (WScript.Arguments.Count = 2) därefter
  filename = WScript.Arguments (0)
  placeholder = WScript.Arguments (1)
Annars
  Enughargument för WScript.Echo ”inte: förväntade 2 (filenamen + placeholderen).”,
  WScript.Quit
Avsluta om
 
START_TOKEN = "" & placeholder & "",
END_TOKEN = ”,”Den fastställda fsoen = den CreateObject (”Scripting.FileSystemObject”) uppsättningen matar in = data för fso.OpenTextFile (filename) = input.ReadAll matar in. Den nära uppsättningen matar in = ingenting tecken = splittring (data, START_TOKEN) för varje tok i teckensubtokens = splittring (tok, END_TOKEN) om UBound (subtokens) > 0 därefter, om subtokens för "" WScript.Echo för subtokens <> (0) (0) avslutar därefter, om avsluta om därefter
Andra lösningar  
 
programming4us programming4us