Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Kliknite na kartu " Vývojár " , kliknite na " Visual Basic " a kliknite na " Vložiť " menu . Vyberte " modul " pre vloženie nového kódu modulu
2
Začnite tým , že vytvorí sub - postup pomocou nasledujúci kód : .
Private Sub readTextFile ( )
sims 3
Vytvorte tri premenné , ktoré sa bude používať pre čítanie textového súboru :
Dim fileText As String Dim
myTextFile As String Dim
memFile As Integer
Stránka 4
Zadajte cestu a názov súboru do textového súboru , ktorý chcete čítať
myTextFile = " F : \\ TEMP.TXT "
memFile = FreeFile
5
Otvorte súbor , čítať jej obsah a zatvorte súbor :
Otvoriť myTextFile Pre vstup ako # memFile
fileText = vstup $ ( LOF ( 1 ) , 1 )
Close
6
Zobrazenie výsledkov textového súboru do okna Immediate .
Debug.Print ( fileText )
7
End sub - postup zadaním " End sub " ( bez úvodzoviek ) . Stlačením klávesu F5 spustiť procedúru a čítať súbor .
Copyright © počítačové znalosti Všetky práva vyhradené