Leren hoe om te zoeken naar gegevens in een bestand met behulp van VB Script kunt u scripting applicatie dynamischer te maken . VB Script is zeer vergelijkbaar met Visual Basic dus als je al wat ervaring in VB zal u geen probleem werken met VB Script hebben . In VB Script kunt u vergelijkbaar met andere programmeertalen zoals het maken van bestanden te manipuleren , toevoegen, verwijderen van gegevens en het lezen van bestanden . Om gegevens in een bestand dat u kunt gebruik maken van de gelezen en zoeken " Scripting.FileSystemObject . " Zodra u de gegevens te lezen dan kunt u zoeken naar iets met de gegevens in het geheugen . Instructies 1 Launch Kladblok en typ " Dit is gegevens in mijn dossier " en druk op " Enter . " Type " 1 " in en druk op ' Enter '. Type " 2 " in en druk op ' Enter '. Type " 3 " en druk op " Enter . " Type " 4 " en druk op " Enter . " Type " 5 " in en druk op ' Enter '. Druk op "Ctrl " en " S " om het bestand op te slaan . Opslaan in " C : \\ Temp " als " . ReadFile.txt " Sluit het bestand Launch Notepad 2 en typ het volgende aan de variabele " FileSystemObject " definiëren en open het bestand dat u hebt gemaakt stap . een voor het lezen : Set fsoObj = CreateObject ( " Scripting.FileSystemObject " ) Set rdFile = fsoObj.OpenTextFile ( " C : \\ Temp \\ readFile.txt " , ForReading ) op Twitter < br > 3 Maak de variabelen die je zal gebruiken om het bestand te zoeken : Const ForReading = 1Dim lineNumDim myLineArray ( ) Loop Goedkope 4 door de file data en vul de array met zijn gegevens : i = 0do Tot rdFile.AtEndOfStreamRedim Preserve myLineArray ( i ) myLineArray ( i ) = rdFile.ReadLinei = i + 1LooprdFile.Close 5 Voeg de volgende " voor ... Loop " om de gegevens in de array zoeken naar nummer " 4 " en een bericht wanneer zijn gevonden: lineNum = 0For Elke strLine in myLineArrayIf ( strLine = " 4 " ) thenWScript.Echo " je hebt gevonden " & strLine & " in lijn " & lineNum & " . "End iflineNum = lineNum + 1next Press 6 " Ctrl " en " S " te lanceren het "Opslaan als" dialoogvenster . Type " vbScriptFile.vbs " naast " . File Name" Opslaan in " C : \\ Temp " en sluit het bestand . Navigeer naar " C : \\ Temp " . En dubbelklik op " vbScriptFile.vbs " om het programma te draaien
|