Questione : Scritto di VB: Testo specifico dell'uscita dalla lima di testo

Ciao là, necessità del

I di modificare il seguente scritto per estrarre che cosa testo è individuato in mezzo: “Parameter uno: „ e “„.


SO USANDO LA LINEA DI ORDINE: parametro 1„ >output.txt


FROM del
cscript GetParameter.vbs //NOLOGO “input.txt„ del ****** “del del ********** del del ********** del del ********** del del ************************** del
la SEGUENTE LIMA di TESTO di INPUT.TXT: il line
This del line
whatever del
whatever del ****** del del ********** del del ********** del del ********** del del ************************** del
è un test> e lo significo e perché Parameter 1 del not>: Elevator uno è RISULTATO ANALIZZATO/>THE del line


whatever di online=True
whatever DEVE ESSERE: il
Elevator uno del ****** del del ********** del del ********** del del ********** del del ************************** del
è online=True




SCRIPT DA MODIFICARE: il
'del ****** del del ********** del del ********** del del ********** del del ************************** del
si assicura che il nome di schedario dell'input sia specificato sulla linea di ordine e che ottiene il nome di schedario del it
If (WScript.Arguments.Count > 0) Then
=
Else
WScript.Echo di WScript.Arguments (0) “nessun nome di schedario dell'input specificato. “il
'del
WScript.Quit
End If
ha letto l'intero archivio di entrata in un singoli fso del variable
Set della stringa =
Set di CreateObject (“Scripting.FileSystemObject„) immessi =
data = input.ReadAll
input. Close
Set immesso =
'del
'di Nothing
genera l'oggetto del dizionario al dict del duplicates
Set del ellininate = del
di CreateObject (“Scripting.Dictionary„) genera la mascherina di espressione normale ai locae il numbers
Set di ordine con riferimento a = nuovo RegExp
re. Modello = “OrderNum= [0-9] [0-9] [0-9] [0-9] [0-9] [0-9] [0-9]
" />re.IgnoreCase = True
re. Globale = il ciclo attraverso ogni fiammifero, numero del
'di True
di ordine del grap e se non già trovato aggiunge a dictionary
for ciascuno colpito in Re. Eseguire il order=Mid del
(di dati) (colpo. Valore, 10, dict di 7)
se non. Esiste (ordine) il dict di Then
. Aggiungere l'ordine, lista dell'uscita del
'di If
Next
di conclusione di 0
del now
For che di numeri di ordine ogni o in SCRITTO del o
Next



THIS del dict
Wscript.Echo DA MODIFICARE ATTUALMENTE È DENOMINATO dalla SEGUENTE LINEA di ORDINE:
cscript GetNumbers.vbs //NOLOGO input.txt >output.txt



Thanks per il vostro aiuto,
Rene del ****** del del ********** del del ********** del del ********** del del ************************** del
class= > " libero " del
soluzioni >Related class= href= " /Programming/Languages/Visual_Basic/VB_Script/Q_26339319.html " title= " VBScript di VBScript " del qRelatedChild " “del class=: Necessità di produrre soltanto il risultato required, senza il junk.

Risposta : Scritto di VB: Testo specifico dell'uscita dalla lima di testo

dargli un andare
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:

oscurare il nome di schedario, il placeholder, i dati, i segni, i subtokens, tok

Se (WScript.Arguments.Count = 2) allora
  nome di schedario = WScript.Arguments (0)
  placeholder = WScript.Arguments (1)
Altrimenti
  Discussioni del enugh di WScript.Echo “non: 2 previsti (nome di schedario + placeholder).„
  WScript.Quit
Concluder se
 
START_TOKEN = "" & placeholder & ""
END_TOKEN = ““Regolare il fso = CreateObject (“Scripting.FileSystemObject„) regolano l'input = i dati di fso.OpenTextFile (nome di schedario) = l'input di input.ReadAll. Chiudere l'input stabilito = niente segni = spaccano (dati, START_TOKEN) per ogni tok nei subtokens dei segni = spaccano (tok, END_TOKEN) se UBound (subtokens) > 0 allora se i subtokens del "" allora WScript.Echo <> dei subtokens (0) (0) si concludono se estremità se dopo
Altre soluzioni  
 
programming4us programming4us