Dator
 |  Startsida |  Hårdvara |  Nätverk |  Programmering |  Programvara |  Felsökning |  System |   
Programmering
  • C /C + + -programmering
  • Computer Programspråk
  • Delphi Programmering
  • Java Programming
  • JavaScript programmering
  • PHP /MySQL Programmering
  • perl Programmering
  • python Programming
  • Ruby programmering
  • Visual Basics Programmering
  • * Dator Kunskap >> Programmering >> Visual Basics Programmering >> Content

    Hur Extrahera ett IP från text med VBS

    Visual Basic Script utmärker sig på att automatisera enkla uppgifter , men när det blir dags att utföra komplexa texthantering , måste du dra ut de stora kanonerna . Det vanliga uttrycket språket för att söka och manipulera text i sofistikerade sätt har funnits i decennier och har varit en del av Visual Basic script sedan slutet av 90-talet . Med hjälp av detta språk , kan du gå igenom hela dokument jaga svåra att hitta information , såsom giltiga IP-adresser . Instruktioner
    1

    Öppna Anteckningar ( eller någon annan textredigerare ) och klistra in följande text :

    " Detta är en text som innehåller IP-adresser t.ex. 194.23.14.34 och 238.12 . 43.54 . den innehåller också en falsk IP -adress , t.ex. 493.234.534.234 , som inte kommer att upptäckas , eftersom de inte utgör ett reellt möjliga IP-adresser . "

    Detta används som test text för skriptet . Om fungerar ordentligt bör skriptet plocka upp de första två IP-adresser , men inte den sista . IP-adresser kan innehålla siffror mellan bara 0 och 255 . Sedan den förra använder " 493 " och " 534 ", är det ogiltigt och bör inte upptäckas av ditt manus .
    2

    Spara det med namnet " textWithIPs.txt . "

    Billiga 3

    Tryck " Ctrl - N " för att öppna ett nytt dokument i Anteckningar
    4

    Skriv följande :

    dim FSO , textfil , text , IPList , re

    const ForReading = 1

    set re = New RegExp

    re.Global = Sant

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

    set textfil = fso.OpenTextFile ( " c : \\ textWithIPs.txt " , ForReading ) katalog

    text = " "

    göra tills textFile.atEndOfStream

    text = text & textFile.readLine

    loop

    textFile.close

    set IPList = re.Execute ( text )

    för varje IP i IPList

    MsgBox resultat

    Nästa

    Spara det med namnet " ipExtractor.vbs . " Se till att förlängningen är " VBS " och inte " txt ".
    5

    Klicka på "Start " och " Den här datorn ". Dubbelklicka på " C : \\ " " . IpExtractor.vbs " enheten och dubbelklicka på filen Efter en kort stund , bör en serie message boxes visas innehåller alla IP-adresser i textfilen men inte ogiltiga adresser .

    Tidigare:

    nästa:
    relaterade artiklar
    ·Lägga till en kommentar till Visual Basic
    ·Hur man driver ett Visual Basic -program på en PC
    ·Hur man skapar ett skript Password Reset i VB
    ·Konvertera C Struktur till VBA
    ·Hur man skapar en databas i VB.Net
    ·Hur man gör en textruta accepterar endast siffror i Vi…
    ·Hur man programmatiskt ta bort bilder från DataGrid
    ·Hur konvertera ett objekt till String i Visual Basic
    ·Lägga till en ny rad i Visual Basic
    ·Hur öppnar jag ett formulär från en annan form i Vis…
    Utvalda artiklarna
    ·Saknade Operand Efter en operatör
    ·Hur man gör ett ritprogram
    ·Hur att öka en MySQL Field
    ·Hur man gör Flikar i Android
    ·Hur man använder en VB Lite Unit
    ·Hur man gör en Game Trainer i Visual Basic 2008
    ·Hur man använder ett PHP att få den undermapp
    ·Java Binary Tree Tutorial
    ·Hur man skriver ett förfarande i Pascal
    ·Hur man stänger av PHP Varningar i Plesk
    Copyright © Dator Kunskap http://www.dator.xyz