Jag har problem med ett program jag programmerar...

Programmet läser in en HTML fil och ska sätta in text i det men när filen sparas så ser den inte alls likadan ut som förut.
Det ser tillexempel ut som:


<br>


Men igentligen ska allt stå på en rad.
HTML filen läsen in i en textbox på detta vis
Dokument är textboxen

<code>
Open fil For Input As #1
Do
Input #1, kalle
On Error Resume Next
dokument = dokument + kalle & vbCrLf
Loop Until EOF(1)
Close #1
</code>

När jag sparar filen igen så använder jag
<code>
Open filnamn For Output As #1
Print #1, dokument
Close #1
</code>

Nån som vet varför det ibland blir radbrytningar helt plötsligt?

Hej
Snabbt och kanske fel.

Dim FileNum As Long
FileNum = FreeFile
Open fil For Input As #FileNum
Do Until EOF(FileNum)
Input #FileNum, kalle
On Error Resume Next
dokument = dokument & kalle & vbCrLf
Loop
Close #1

mvh
Sven

Teta med att använda följande funktion istället:
<code>
Public Function ReadFile(FileName As String) As String
Dim FileNo As Long
FileNo = FreeFile()
Open FileName For Binary Access Read Shared As #FileNo
ReadFile = Space(LOF(FileNo))
Get #FileNo, , ReadFile
Close #FileNo
End Function

Private Sub Command1_Click()
dokument = ReadFile(fil)
End Sub

'Eller
Private Sub Command1_Click()
Text1.Text = ReadFile(fil)
End Sub
</code>

Hej
Nu har du väl spårat ur , tror du samma
exempel duger till alla frågor ??

undrar
Sven

Fråga om det löste hans problem. Jag tror det gör det alldeles utmärkt.
Funktionen läser in hela filen till en sträng.

Det vår frågeställare eftersöker.

Så vad är det för fel på att återvinna kod?

Tycker allt du är lite väl kinkig nu.

HOHOHOHOHOHO!
Det funka!
Jag som nästan hade get upp!
Tackar!