Får inn noen rare tegn!

[Hayer]

Hei

Skal lese inn tekst fra en fil (samme hvilken type så lenge det kommer som tekst.)

Her er koden

Private Sub Send_Click()
On Eroor GoTo Feil
With cdlStandard
.ShowOpen
End With
Open cdlStandard.FileName For Input As #1
Tekst.Text = Input(LOF(1), #1)
Close #1
Feil:
End Sub

 

Her er det jeg får inn

test||linje2||linje3

PS: | skal egentlig være sjukkere.

 

Her er det som er lagra på tekst file (.txt)

test
linje2
linje3

 

Hvis jeg skriver dette

test||linje2||linje3

til en tekst fil. Blir jeg kvitt de tegnene da?

[aadnk]

Du må sette Multiline-egenskapen til True når du ønsker å se linjeskift (som disse tegnene representerer, henholdsvis karakter 13 og 10).