Questione : VBScript: Dovere produrre soltanto il risultato required, senza la roba di rifiuto.

Devo modificare il seguente scritto per estrarre che cosa testo è individuato in mezzo: “Parameter uno: „ e “„ ed uscita esso “in Output.txt„, senza la roba di rifiuto (vedere sotto). il

You troverà un campione modificato semplicistico “di Input.txt„ in modo da potete ottenere l'idea. In realtà, Input.txt contiene una combinazione di HTML e di Javascript, facente il genere della lima di Output.txt di sudicio; e la stringa required è situata esso è ultimo line.

I non ha incluso la lima originale di input.txt perché contiene i lotti delle Info confidenziali e lo prenderebbe a molto tempo di esaminarla. Così ho incluso la lima modificata di Output.txt. Se absolutly avete bisogno della lima originale modificata di input.txt, lasciarlo prego know.


Thanks, il
Rene




BY USING LA LINEA di ORDINE:
cscript GetParameter.vbs //NOLOGO “input.txt„ “parametro uno del ****** del del ********** del del ********** del del ********** del del ************************** del
: “LIMA SEMPLICISTICA DI FALSIFICAZIONE INPUT.TXT DI >OUTPUT.TXT



THE: 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 SOLTANTO: il
Elevator uno del ****** del del ********** del del ********** del del ********** del del ************************** del
è SCRITTO del online=True



VB A FIXE: nome di schedario del
dim del ****** del del ********** del del ********** del del ********** del del ************************** del
, placeholder, dati, tokens, subtokens, tok

If (WScript.Arguments.Count = 2) nome di schedario di Then
= 0) placeholder del
di WScript.Arguments (= WScript.Arguments (discussioni del enugh di 1)
Else
WScript.Echo “non: 2 previsti (nome di schedario + placeholder). “
WScript.Quit
End If
/>START_TOKEN = “di “& di placeholder "/>END_TOKEN = fso del

Set “di " =
Set di CreateObject „ &
leSystemObject„) immesso =
data = input.ReadAll
input. Close
Set ha immesso = Nothing

tokens = ha spaccato (dati, START_TOKEN) il
for ogni tok nei subtokens del tokens
= ha spaccato (tok, END_TOKEN) il
se UBound (subtokens) > 0 then
se 0) if
next




CURRENT dell'estremità del if
dell'estremità del
dei subtokens del then
WScript.Echo del "" del <> dei subtokens (0) ( LIMA DI OUTPUT.TXT CHE CONTIENE LA ROBA DI RIFIUTO:
Is del ****** del del ********** del del ********** del del ********** del del ************************** del
allegato come lima per il vostro review. class= " lastRow del
>Attachments " di nome " del class= del class= " valore " del
il

il nome di schedario " del class= di >output.txt " fileSize " > (3 Kb) il Javascript " del href= " " dei attachmentDetails del class= di (tipo di lima particolari)
LIMA del >CURRENT OUTPUT.TXT " di descrizione " del class= del
il class= di
del >
class= > " libero " del
soluzioni >Related class= scritto di VB " del title= " " di /Programming/Languages/Visual_Basic/VB_Script/Q_26337532.html del href= di VB: Testo specifico dell'uscita da testo file

Risposta : VBScript: Dovere produrre soltanto il risultato required, senza la roba di rifiuto.

provarlo prego:
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:

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

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 startindex = segni di InStr (dati, START_TOKEN) = spaccano (dati, START_TOKEN) se startindex > 0 allora startindex = 1 estremità se per l'indice = lo startindex ai subtokens di UBound (segni) = spaccare (segni (indice), 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