Jag arbetar med ett projekt där jag använder mig av en sekventiell fil och har fått följande problem.
a. Programmet hämtar informationen som matats in i en textruta
(som tillåter flera rader) till en sträng (Astr)
b. Programmet sparar den i en sekventiell fil.
c. I ett senare läge öppnas filen av en annan del av programmet
för att redigeras. Den läses in enligt:
While Not EOF(2)
Input #2, S
Bstr = Bstr & S
Wend
d. Därefter överförs den till en ny textruta:
Form1.Text1.text = Bstr
e. Men den visas UTAN radbrytningar.
f. Jag har försökt att lägga till, på kodrad 3 under c ovan, & Chr$(13).
Men det hjälper inte.
Vad skall jag göra?
Undrar Per

Om du vill läsa in HELA textfilen till text1 kan du skriva följande:
<code>
Dim fnum As Integer
fnum = FreeFile()
Open "c:\text.txt" For Input As #fnum
Text1.Text = Input(LOF(fnum), fnum)
Close #fnum
</code>

LOF tar reda på längden på filen och läser sedan in allt, ink radbrytningar

Vi bugar o tackar