Datamaskin
  | Hjem | Hardware | Nettverk | Programmering | Software | Feilsøking | Systems | 
Programmering  
  • C /C + + Programming
  • Computer Programmeringsspråk
  • Delphi Programming
  • Java Programming
  • JavaScript Programmering
  • PHP /MySQL programmering
  • Perl Programming
  • Python Programming
  • Ruby Programming
  • Visual Basics Programming
  •  
    Datamaskin >> Programmering >> Visual Basics Programming >> Content
    Slik pakker du ut en IP fra tekst Med VBS
    Visual Basic Script utmerker seg ved å automatisere enkle oppgaver , men når det gjelder tid til å utføre komplekse tekst manipulasjon , må du trekke ut de store kanonene . Det vanlige uttrykket språk for søking og manipulere tekst i sofistikerte måter har eksistert i flere tiår og har vært en del av Visual Basic script siden slutten av 90-tallet . Ved hjelp av dette språket , kan du gå gjennom hele dokumenter jakter vanskelig å finne informasjon , for eksempel gyldige IP-adresser . Instruksjoner
    en

    Åpen Notepad (eller en annen ren tekst editor) og lim inn følgende tekst :

    " Dette er litt tekst som inneholder IP-adresser som 194.23.14.34 og 238,12 . 43.54 . den inneholder også en falsk IP- adresse, for eksempel 493.234.534.234 , som ikke vil bli oppdaget , siden de ikke representerer reelle mulige IP-adresser. "
    p Dette brukes som test tekst for manuset . Hvis fungerer riktig, bør skriptet plukke opp de to første IP-adresser , men ikke den siste . IP-adresser kan inneholde tall mellom bare 0 og 255 . Siden forrige bruker " 493 " og " 534 ", er det ugyldig , og bør ikke bli oppdaget av skriptet.
    2

    Lagre den med navnet " textWithIPs.txt . "


    3

    Trykk " Ctrl -n " for å åpne et nytt dokument i Notepad
    4

    Skriv inn følgende : en

    dim FSO , tekstfil , tekst , IPList , re

    const ForReading = 1

    sett re = Ny RegExp

    re.Global = sant

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

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

    text = " "

    gjøre før textFile.atEndOfStream

    text = text & textFile.readLine

    sløyfe

    textFile.close

    sett IPList = re.Execute ( tekst )

    for hver IP i IPList

    MsgBox resultat

    Neste

    Lagre den med navnet " ipExtractor.vbs . " Sikre at utvidelsen er " vbs " og ikke " txt . "
    5

    Klikk "Start" og " Min datamaskin". Dobbeltklikk på "C : \\" " . IpExtractor.vbs " kjøre og dobbeltklikk på filen Etter en kort stund , bør en serie av melding bokser vises som inneholder alle IP-adresser i tekstfilen , men ikke de ugyldige adresser.

    früher :

     Weiter:
      Relatert Artike
    ·Debugging Tools for Visual Basic 
    ·Slik sletter Records for lagrede prosedyrer i Visual Ba…
    ·Kan Visual Basic Script Lytt på en Telnet Port 
    ·Hvordan å fylle en Cell Etter en Drop - Down Selection…
    ·Hvordan endre Application Tittel i Visual Basic 6 
    ·Hvordan bruke VB6 å koble til en IRC server 
    ·Hvordan lage et program i Visual Basic 6.0 som åpner p…
    ·Hvordan bruke to datasett i VB 
    ·Hvordan Erklærer en Array i FoxPro programmering 
    ·Hva kan jeg bruke til å fylle data tekstbokser i en Da…
      Anbefalte artikler
    ·Hvordan avgjøre om en fil finnes i PHP 
    ·Hvordan få Portnummer server i Java 
    ·GridView Funksjoner 
    ·Hvordan fylle en FlexGrid kontroll med data 
    ·Hvordan bruke Sjekksum Logg inn 
    ·Hvordan å matche et String i en Array Bruke Java 
    ·Hvordan Cache PHP Resultater 
    ·Slik installerer Java 1.6 RPM på Fedora 
    ·Hvordan bygge en Master PHP Site Mal Bruke Web 
    ·Hvordan slette en fil med Sub - mappe og filer i Delphi…
    Copyright ©  Datamaskin  http://www.datamaskin.biz/