Πώς να Απόσπασμα μια διεύθυνση IP από το κείμενο με VBS

Visual Basic Script υπερέχει στην αυτοματοποίηση απλές εργασίες , αλλά όταν έρχεται η ώρα να εκτελούν περίπλοκες χειραγώγηση κειμένου , θα πρέπει να τραβήξει έξω τα μεγάλα πυροβόλα όπλα . Η τακτική γλώσσα έκφρασης για την αναζήτηση και χειρισμό κειμένου σε εξελιγμένους τρόπους υπάρχει εδώ και δεκαετίες και έχει ένα μέρος της Visual Basic script από τα τέλη της δεκαετίας του '90 . Χρησιμοποιώντας αυτή τη γλώσσα , μπορείτε να πάτε μέσω εγγράφων ολόκληρο το κυνήγι κάτω δύσκολο να βρείτε πληροφορίες , όπως έγκυρες διευθύνσεις IP . Οδηγίες
Η

1 Ανοίξτε το Σημειωματάριο ( ή οποιοδήποτε άλλο πρόγραμμα επεξεργασίας απλού κειμένου ) και επικολλήστε το ακόλουθο κείμενο :

" Αυτό είναι ένα κείμενο που περιέχει τις διευθύνσεις IP, όπως 194.23.14.34 και 238.12 . 43.54 . περιέχει επίσης μια πλαστή διεύθυνση IP , όπως 493.234.534.234 , που δεν θα πρέπει να ανιχνεύεται , δεδομένου ότι δεν είναι δυνατόν να αντιπροσωπεύουν πραγματικές IPs . "

Αυτό χρησιμοποιείται ως το κείμενο της δοκιμής για το σενάριο . Αν λειτουργεί σωστά , το σενάριο θα πρέπει να πάρει τα δύο πρώτα IPs , αλλά όχι η τελευταία . Διευθύνσεις IP μπορούν να περιέχουν αριθμούς μόνο μεταξύ 0 και 255 . Δεδομένου ότι οι τελευταίες χρήσεις " 493 " και " 534 ", είναι άκυρη και δεν θα πρέπει να ανιχνεύονται από το script σας . 2

Αποθήκευση με το όνομα " textWithIPs.txt . "

με 3

Πατήστε το " Ctrl - n" για να ανοίξετε ένα νέο έγγραφο στο Σημειωματάριο
Η 4

Πληκτρολογήστε τα ακόλουθα : .

dim FSO , tEXTFILE , κείμενο , IPList , εκ νέου

const ForReading = 1

που re = Νέα RegExp

re.Global = True

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

που TEXTFILE = FSO.OpenTextFile ( "c : \\ textWithIPs.txt " , ForReading )

text = " "

δεν μέχρι textFile.atEndOfStream

text = κείμενο & textFile.readLine

βρόχο

textFile.close

που IPList = re.Execute (κείμενο )

για κάθε IP στο IPList

MsgBox αποτέλεσμα

Επόμενο

Αποθήκευση με την ονομασία " ipExtractor.vbs . " Βεβαιωθείτε ότι η επέκταση είναι " vbs " και όχι " txt . "
5

Κάντε κλικ στο " Start" και "My Computer ". Κάντε διπλό κλικ στο " C : \\" οδήγησης και κάντε διπλό κλικ στο αρχείο " ipExtractor.vbs . " Μετά από μια σύντομη στιγμή , θα πρέπει να εμφανιστεί μια σειρά από κουτιά μήνυμα που περιέχει όλες τις διευθύνσεις IP στο αρχείο κειμένου , αλλά όχι οι μη έγκυρες διευθύνσεις .
Η
εικόνων