Visual Basic 6.0 giver en enkel måde at åbne tekstfiler og læse deres indhold i en tekstboks på skærmen , samt skrive en ny tekst til en fil. Kun elleve linjer kode kræves for det første trin , og ti vil være tilstrækkeligt for den anden operation . Processen bruger input og output funktioner i Visual Basic, samt et lille vindue til at indsamle oplysninger fra brugeren. Ting du skal
Visual Basic 6.0
Vis Flere Instruktioner
1
Open Visual Basic 6.0 , klikke på Filer og vælg Nyt projekt . Vælg Standard EXE fra listen over skabeloner. Dobbeltklik på TextBox kontrol i værktøjskassen til venstre for at tilføje dette til formularen. Ændre højden af formular i ruden Egenskaber til højre til 5000
2
Foretag følgende ændringer til tekstfeltet Egenskaber : . Højde = 3000Multiline = TrueScrollbars = BothWidth = 3000
3
Dobbeltklik på knap kontrol i værktøjskassen . Skift Caption ejendom til Læs fil. Gentag denne operation for at tilføje en anden knap kontrol , ændre Caption ejendom her for at Skriv fil .
4
Dobbeltklik på Læs File for at åbne koden vinduet. Indtast denne kode på koden view side: Function ReadFile ( ) Dim ReadFileName Som StringReadFile = InputBox ("Indtast navnet på filen for at læse :") Open ReadFile For Input Som # 1ReadFile = Input $ ( LOF (1) , 1 ) Tekst1 . Text = ReadFileClose # 1End FunctionPrivate Sub Command1_Click () ReadFileEnd Sub
5
Dobbeltklik på Skriv File for at åbne koden vinduet. Indtast denne kode: Function WriteFile ( ) Dim WriteFileName Som StringWriteFileName = InputBox ("Indtast filnavn " ) Åben WriteFileName For Output Som # 2Print # 2, Text1.TextClose # 1End FunctionPrivate Sub Command2_Click () WriteFileEnd Sub
6
Kør programmet ved at trykke på F5 og klik på Læs File kommandoen først. Indtast navnet på en kendt tekstfil , inklusive . Txt endelse. Filen skal vises i tekstfeltet . Hvis du nu klikke på Skriv Filer og give et andet navn, skal du oprette en ny, men dublerede fil . Alternativt, hvis du sletter teksten eller blot klikke på Læs fil , før du lægger en fil og derefter skrive noget nyt , kan du oprette en helt ny fil.
