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