Visual Basic I/O

Tags:    visual-basic

Hej Alle!
Jeg er ved at lave et program, som skal kunne gemme og åbne en fil!

For at fortælle lidt om mig program, så er det en textbox (multiline), som skal gemmes som almindelig text!

Og denne fil vil jeg så kunne åbne igen, og dataen skal være identisk med den data som jeg har gemt! (dette lyder ikke så svært)

Jeg bruger denne til at læse fra filen: txtEdit = Input(LOF(1), 1)
Og denne til at skrive til filen: Print #1, txtEdit

Jeg vil gerne have, at det binære billede er ens! Altså hvis jeg skriver JAKOB , så gemmer den JAKOB i filen, og når jeg åbner filen, så henter den JAKOB ind! Jeg skal ikke have linefeed, og carriage return!

If you don't succeed, redefine success...



2 svar postet i denne tråd vises herunder
1 indlæg har modtaget i alt 3 karma
Sorter efter stemmer Sorter efter dato
...Jeg vil gerne have, at det binære billede er ens! Altså hvis jeg skriver JAKOB , så gemmer den JAKOB i filen, og når jeg åbner filen, så henter den JAKOB ind! Jeg skal ikke have linefeed, og carriage return!...


Hvad så, hvis du trykker på ENTER? Må der så være CR/LF med i filen, eller skal de også smides ud? Hvis disse er tilladte, så er der to rutiner her, du kan bruge:
<pre>
Public Sub GemFilBinær(ByVal Filnavn As String, ByRef Tekst As String)

Dim fNum As Integer
Let fNum = FreeFile

Open Filnavn For Binary As #fNum
Put #fNum, , Tekst
Close #fNum

End Sub

Public Function HentFilBinær(ByVal Filnavn As String) As String

Dim fNum As Integer
Let fNum = FreeFile

Open Filnavn For Binary As #fNum
Dim strData As String
Let strData = Space$(LOF(fNum))
Get #fNum, , strData
Close #fNum

Let HentFilBinær = strData

End Function
</pre>

Der er ingen fejl-håndtering, så det vil du måske implementere for en sikkerheds skyld.

Software is here and now but rock and roll is forever.



Gem:

Open "Fil.fil" for output as #1
print #1, dintextbox.text
close #1

Åbne:

open "Fil.fil" for input as #2
input #2, dintextbox.text
close #2

skriv hvis du har problemer



t