Come estrarre un IP dal testo con VBS

Visual Basic eccelle Script di automatizzare compiti semplici , ma quando arriva il momento per la modifica dei testi complessi , è necessario tirare fuori i grossi calibri . Il linguaggio delle espressioni regolari per la ricerca e la manipolazione del testo in modi sofisticati esiste da decenni ed è stata una parte di script di Visual Basic dalla fine degli anni '90 . Utilizzando questo linguaggio , si può passare attraverso interi documenti caccia difficili da trovare le informazioni , come ad esempio indirizzi IP validi . Istruzioni
1

Aprire il Blocco note ( o qualsiasi altro editor di testo ) e incollare il seguente testo :

" Questo è un testo che contiene indirizzi IP come ad esempio 194.23.14.34 e 238.12 . 43.54 . contiene anche un falso indirizzo IP , come ad esempio 493.234.534.234 , che non sarà rilevata , in quanto non rappresentano reali possibili indirizzi IP . "

Questo viene utilizzato come testo di prova per lo script . Se funziona correttamente , lo script dovrebbe raccogliere i primi due indirizzi IP ma non l'ultimo . Gli indirizzi IP possono contenere numeri compresi tra 0 e 255 solo . Dal momento che l' ultima utilizza " 493 " e " 534 ", è valido e non dovrebbe essere rilevato da script .
2

salvarlo con il nome di " textWithIPs.txt . "
< Br . >

3 Premere il tasto " Ctrl - n" per aprire un nuovo documento in Notepad
4

Digitare quanto segue :

dim UST , file di testo , testo , elenco IPList , ri

const ForReading = 1

set re = New RegExp

re.Global = True

re.Pattern = FSO = CreateObject ( " Scripting.FileSystemObject " ) per

set textfile = FSO.OpenTextFile ( "c : \\ textWithIPs.txt " , ForReading ) per

text = " "

fare fino textFile.atEndOfStream

testo = testo & textFile.readLine

ciclo

textFile.close

set elenco IPList = re.Execute ( testo )

per ogni IP in elenco IPList

MsgBox risultato

successiva

salvarlo con il nome di " ipExtractor.vbs . " Verificare che l'estensione è " vbs " e non " txt ".
5

Fare clic su " Start" e "Risorse del computer ". Fare doppio clic su "C : \\ " " . IpExtractor.vbs " rigido e fare doppio clic sul file Dopo un breve momento , una serie di finestre di messaggio dovrebbe apparire contenente tutti gli indirizzi IP nel file di testo , ma non gli indirizzi non validi .

• Come calcolare correlazione sulla Ti- 84 Plus 
• Come creare Click & trascinare gli oggetti in Visual Basic