Visual Basic 6.0 gir en enkel måte å åpne tekstfiler og lese innholdet i en tekst boks på skjermen , samt skrive ny tekst til en fil. Bare elleve linjer med kode kreves for det første skrittet, og ti vil være tilstrekkelig for den andre operasjonen . Prosessen bruker input og output funksjoner i Visual Basic, samt et lite vindu til å samle informasjon fra brukeren. Du trenger
Visual Basic 6.0
Vis flere instruksjoner
en
Åpne Visual Basic 6.0 , klikk på Fil og velg Nytt prosjekt . Velg Standard EXE fra listen over maler. Dobbeltklikk TextBox kontroll i verktøykassa til venstre for å legge dette til skjemaet . Endre høyden på Form i Egenskaper-ruten til høyre til 5000
2
Gjør følgende endringer i tekstboksen Egenskaper : . Høyde = 3000Multiline = TrueScrollbars = BothWidth = 3000
3
Dobbeltklikk Button kontroll i verktøykassa . Endre Caption eiendom for å lese filen. Gjenta denne operasjonen for å legge til en ny knapp kontroll , endre Caption eiendom her å skrive Fil .
4
Dobbeltklikk lest File -knappen for å åpne koden vinduet. Skriv inn denne koden koden view page: Funksjon ReadFile ( ) Dim ReadFileName Som StringReadFile = InputBox ("Skriv inn navnet på filen for å lese :") Åpen ReadFile For Input As # 1ReadFile = Input $ ( LOF ( 1 ) , 1 ) Tekst1 . text = ReadFileClose # 1End FunctionPrivate Sub Command1_Click ( ) ReadFileEnd Sub
5
Dobbeltklikk Skriv File -knappen for å åpne koden vinduet. Skriv inn denne koden : Funksjon WriteFile ( ) Dim WriteFileName Som StringWriteFileName = InputBox ("Skriv inn filnavn" ) Åpen WriteFileName For Output As # 2Print nr. 2 , Text1.TextClose # 1End FunctionPrivate Sub Command2_Click ( ) WriteFileEnd Sub
6
Kjør programmet ved å trykke F5 , og klikk på lese filen kommandoen først. Angi navnet på en kjent tekstfil , inkludert . Txt endelsen . Filen skal vises i tekstboksen . Hvis du nå klikker på Skriv Fil og gi et annet navn, vil du skape en ny, men duplikat fil. Alternativt, hvis du sletter tekst eller klikker du bare på Les File før du legger en fil og deretter skrive noe nytt , kan du opprette en helt ny fil .