hvordan man kan læse en fil i VBS

Indlæg af Ingebeth Mosgaard     opdateret: 2011-10-31

VBS , også kendt som " Visual Basic Script "forårsaget en skræmme i 2000 efter " Jeg elsker dig " virus inficerede 15 millioner computere og bragt ned servere rundt omkring i verden . Når Microsoft skabte VBS , de brugte Visual Basic som model . VBS er ikke en virus , men det har evnen til at få adgang til en brugers filsystem og andre edb-ressourcer . Du kan bruge VBS at læse indholdet af en fil ved at indtaste nogle få linjer kode
1 .
Højreklik på skrivebordet og vælg " Ny ". Vælg " Tekstfil " fra drop -down liste. Windows vil oprette en ny tekstfil og vise dens symbol på skrivebordet
2
Føj følgende kode til dokumentet: .


Dim objFSObject , strFile , strFileContents , strCurrentLine , arrLineCollection
KONST ForReading=1
'Opret File System Object
Set objFSObject=CreateObject ( " Scripting. FileSystemObject " )

De første to linjer skaber variabler . Den tredje linje opretter et filsystem objekt
3
Tilføj denne kode under koden i trin 2 : .

strFile=" C : \ someFolder \ someFile. txt "

Erstat " C : \ someFolder \ somefile " med stien til en tekstfil på din harddisk . For eksempel bruger til en fil med navnet " test. txt " placeret i " temp " mappe på din " C " drev , skal du tilføje følgende linje :

strFile=" C : \ temp \ test. txt " .
4
Tilføj denne kode under koden i trin 3 :

strFileContents=objFSObject . OpenTextFile ( strFile , ForReading ) . ReadAll
arrLineCollection=Split ( strFileContents , vbCrLf )

Den første linje læser filen og gemmer den i " strFileContents . " Den anden linje skaber en samling ( array ) og gemmer hver linje i filen som et element i arrayet . For eksempel, hvis inputfilen har tre linjer vil array har tre elementer
5
Tilføj denne kode under koden i trin 4 : .

For Each strCurrentLine i arrLineCollection
wscript . echo " Nuværende Line=" strCurrentLine
Næste
objFSObject. Close

Denne kode blok sløjfer gennem array og viser hver linje .
6 .
Klik på " File " og vælg " Gem som "for at åbne " Gem som " vindue .
7 .

Skriv " vbReadTest1. vbs "i " File Name " tekstboksen og klik på " Gem ". Notesblok vil skabe en VBS fil og gemme den på skrivebordet .
8 .
Find filen på skrivebordet og dobbeltklik på den . VBS koden vil læse inputfilen og vise dens indhold .

gode råd og advarsler


  • Luk altid alle filsystem objekt, du åbner for at frigøre ressourcer efter brug .


  • Previous:hvordan man kan zip -filer ved hjælp af vb netto Next:hvordan man åbner en postsættet



     

    Kommentarer

    Code:
    change