Kun lataan palvelimelta tekstitiedoston wininet komponentin http-siirtona, ladattu tekstitiedosto muuttuu yhdeksi pötköksi ilman rivinvaihtoja. Mistäköhän mahtaa johtua?
Ongelma voi olla siinä, että rivinvaihdot ovat väärässä muodossa.
Seuraavaan koodiin on lisätty tarvittava muunnos:
Dim rivit As String
rivit = Inet1.OpenURL("http://koti.mbnet.fi/pllk/muut/rivit.txt")
Open "c:\vb\rivit.txt" For Output As #1
Print #1, Replace(rivit, vbLf, vbCrLf);
Close #1vbLf = LF = \n = Unix-rivinvaihto
vbCrLf = CR + LF = \r\n = Windows-rivinvaihto
Kiitokset, lähti toimimaan käyttämällä tuota Replace-funktiota.
Aihe on jo aika vanha, joten et voi enää vastata siihen.