Hvordan lese og skrive tekstfiler med Visual Basic 6.0

Visual Basic 6.0 gir en enkel måte å åpne tekstfiler og lese innholdet i en tekstboks 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 inn- og utgangsfunksjoner i Visual Basic, samt et lite vindu for å samle informasjon fra brukeren.

Bruksanvisning

1 Åpne Visual Basic 6.0, klikker du på Fil og velg New Project. Velg Standard EXE fra listen over maler. Dobbeltklikk på TextBox kontrollen i verktøykassen til venstre for å legge denne til skjemaet. Endre høyden på Form i Properties panelet til høyre til 5000.

2 Gjør følgende endringer i tekstboksen Egenskaper:
Høyde = 3000
Multi = sant
Scrollbars = Begge
Width = 3000

3 Dobbeltklikk på Button kontroll i verktøykassa. Endre Caption eiendommen for å lese filen. Gjenta denne operasjonen for å legge til en annen knapp kontroll, endre Caption eiendom her å skrive fil.

4 Dobbeltklikk Les File-knappen for å åpne kodevinduet. Skriv inn denne koden på kodevisning siden:
Funksjon Readfile ()
Dim ReadFileName As String
Readfile = InputBox ( "Skriv navnet på filen for å lese:")
Åpne Readfile For Input As # 1
Readfile = Input $ (LOF (1), 1)
Text1.Text = Readfile
Lukk # 1
End Function
Private Sub Command1_Click ()
Readfile
End Sub

5 Dobbeltklikk Skriv fil for å åpne kodevinduet. Skriv inn denne koden:
Funksjon Writefile ()
Dim WriteFileName As String
WriteFileName = InputBox ( "Skriv filnavn")
Åpne WriteFileName For Output As # 2
Print # 2, Text1.Text
Lukk # 1
End Function
Private Sub Command2_Click ()

WriteFile

End Sub

6 Kjør programmet ved å trykke F5 og klikke på Les File kommandoen først. Skriv inn navnet på en kjent tekstfil, inkludert TXT-suffiks. Filen skal vises i tekstboksen. Hvis du nå klikker på Skriv Fil og gi et annet navn, vil du opprette en ny, men duplikat fil. Alternativt, hvis du sletter tekst eller bare klikk på Les File før du legger en fil og deretter skrive noe nytt, kan du lage en helt ny fil.

Hint

  • For å legge til nytt materiale til en eksisterende fil, endre linje i Writefile delen fra Open WriteFileName For Output As # 2 til Åpen WriteFileName For Append As # 2.
  • Du må bruke forskjellige fil tall for hvert åpne filen og lukke hver fil når du er ferdig.
  • Endre størrelsen på tekstboksen for å passe dine egne behov.
  • For en mer robust program, ville det være nyttig å legge feil fangst rutiner i tilfelle brukeren mistypes et filnavn eller allerede har en fil åpen.