Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
pravým tlačidlom myši na plochu a vyberte " Nový . " Vyberte " Text File " zo zoznamu drop - down . Windows vytvorí nový textový súbor a zobraziť jeho ikonu na pracovnej ploche
2
Pridajte nasledujúci kód v dokumente : .
Dim objFSObject , strFile , strFileContents , strCurrentLine , arrLineCollection
CONST ForReading = 1
" Vytvorenie systému súborov objekt
Set objFSObject = CreateObject ( " Scripting.FileSystemObject " )
Prvé dva riadky vytvárať premenné . Tretí riadok vytvorí objekt súborového systému
3
Pridať tento kód nižšie kódu v kroku 2 : .
StrFile = " C : \\ someFolder \\ someFile.txt "
Nahradiť " C : \\ someFolder \\ nejaky_soubor " s cestou do textového súboru na pevnom disku . Ak chcete napríklad použiť súbor s názvom " test.txt " sa nachádza v priečinku " temp " na " C " disk , pridajte nasledujúci riadok :
strFile = " C : \\ temp \\ test.txt "
4
Pridať tento kód pod kódu v kroku 3 : .
strFileContents = objFSObject.OpenTextFile ( strFile , ForReading ) ReadAll
arrLineCollection = Split ( strFileContents , vbCrLf )
Prvý riadok načíta súbor a uloží ho do " strFileContents . " Druhý riadok vytvorí kolekcia ( pole ) a ukladá každý riadok súboru ako prvok v poli . Napríklad , ak vstupný súbor má tri riadky , pole bude mať tri prvky