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 #1
vbLf = 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.