Hej!

Jag har en fråga!

Open "C:\Textfil.txt" For Input As#1
Dim i As Integer
Dim A As String, B As String
Do Until EOF(1)
i = i + 1
Input#1, A(i)
B = B + A(i)
Loop

Vad jag undrar är hur man ska för att få radbrytning i B för var loop?


Tack på förhand!

mvh
Anders!

För det första bör u byta variabelnamn, och för det andra är delen

Input#1, A(i)
B = B + A(i)

lite konstig.
A(i) borde i detta fall vara bara A.

B=B+A bör du byta ut mot B=B & A eftersom det rör sig om strängar.

För att lägga till ett radbryt skriver du

B = B & A & vbCrLf

/Niklas Jansson

Ja! naturligt vis är delen

Input#1, A(i)
B = B + A(i)

konstig! Vet inte vad jag tänkte på??

Tusen tack för svaret!

mvh
Anders!