VBS , ook wel bekend als gelezen " Visual Basic Script , " veroorzaakte een crisis in 2000 na de " Ik hou van jou " virus besmette 15 miljoen computers en neergehaald servers over de hele wereld . Toen Microsoft gemaakt VBS , gebruikten ze Visual Basic als model . VBS geen virus , maar het heeft de mogelijkheid van toegang van een gebruiker bestandssysteem en andere bronnen computer . U kunt VBS gebruiken om de inhoud van een bestand te lezen door het invoeren van slechts een paar regels code . Instructies 1 Rechtsklik op het bureaublad en selecteer "Nieuw . " Selecteer " Text File " uit de lijst met drop-down . Windows zal een nieuw tekstbestand te maken en weer te geven het pictogram op het bureaublad te kopen van 2 Voeg de volgende code toe aan het document : . Dim objFSObject , strFile , strFileContents , strCurrentLine , arrLineCollection < br CONST ForReading > = 1 'Create File System Object Stel objFSObject = CreateObject ( " Scripting.FileSystemObject " ) op Twitter De eerste twee regels te creëren variabelen . De derde lijn creëert een bestandssysteemobject 3 Voeg de onderstaande code in stap 2 deze code : . StrFile = " C : \\ Bepaalde_map \\ somefile.txt " Vervang " C : \\ Bepaalde_map \\ eenbestand " met het pad naar een tekstbestand op uw harde schijf . Bijvoorbeeld , een bestand met de naam " test.txt " in de map " temp " op je " C " schijf te gebruiken , voeg de volgende regel : strFile = " C : \\ temp \\ test.txt " 4 Voeg de onderstaande code in stap 3 deze code : . strFileContents = objFSObject.OpenTextFile ( strFile , ForReading ) ReadAll arrLineCollection = Split ( strFileContents , vbCrLf ) op de eerste regel leest het bestand en slaat deze op in " strFileContents . " De tweede regel creëert een verzameling (matrix ) en slaat elke regel van het bestand als een element in de array . Bijvoorbeeld, als het invoerbestand heeft drie lijnen , zal de array hebben drie elementen 5 Voeg de onderstaande code in stap 4 deze code : . Voor Elke strCurrentLine in arrLineCollection < br > wscript.echo " Huidige = " strCurrentLine & Volgende objFSObject.Close Deze code blok lussen door de array en geeft elke lijn . < br > 6 Klik op " File " en selecteer "Opslaan als " om het "Opslaan als" venster . Type " vbReadTest1.vbs " 7 in de " File Name " te openen tekstvak en klik op 'Opslaan'. Notepad zal een VBS -bestand maken en deze opslaan op het bureaublad . 8 Zoek het bestand op het bureaublad en dubbelklik erop . De VBS code zal de input-bestand te lezen en weer te geven van de inhoud .
|