Tekstbestand downloaden...

[Martijntje]

Hi all,

Ik probeer een tekstbestandje te downloaden. Het bestandje ziet er ongeveer zo uit:
1
2
3

het downloaden lukt wel, op verschillende manieren, maar hij ziet er telkens zo uit als ik hem gedownload heb:
123

Ik wil dus graag de regels behouden...
wat nu?

Greetz,

Martijn

 

[Spiderman]

Hoi Martijntje,

Kun je het stukje code, waarmee je de regels uitleest hier plaatsen.

 

[Martijntje]

Bedoel je dit stukje?

Dim fnum As Integer
Dim FileLine As String
fnum = FreeFile
Open "test.txt" For Input As fnum
Do While Not EOF(fnum)
Line Input #fnum, FileLine
lstCode.AddItem FileLine
Loop
Close fnum

Dat heb ik uit een ander programmaatje... Daar werkt het wel...

Thanx4the help!

M

 

[Spiderman]

Met deze code werkt het bij mijn ook. Dus ik neem aan dat het ergens anders fout gaat.

Is het mogelijk dat je hier je code (ingezipt) plaatst

 

[Martijntje]

Nee, dat bedoelde je niet... Sorry...

Ik download het bestandje via:

Dim retVal As Long
Dim theUrl As String
Dim savePath As String
Dim pathExist As Long

theUrl = "http://www.website.nl/test.txt"
If theUrl = "" Then Exit Sub
savePath = App.Path & "\test.txt"
If savePath = "" Then Exit Sub
retVal = URLDownloadToFile(0, theUrl, savePath, 0, 0)
If retVal = 0 Then

Vervolgens plaats ik de regels in de listbox dmv eerder geplaatste code...

Ik denk dat het bij het downloaden verkeerd gaat, want de regels in de listbox plaatsen, gaat wel goed met andere tekstbestandjes..
Het tekstbestand heeft ongeveer deze indeling:
20:24||124
20:36||187

Als ik het download, staat er:
20:24||12420:36||187
in mijn test.txt en komt alles in de listbox op 1 veel te lange regel...

Helpt dit?

 

[Spiderman]

Dan zou ik er zoiets van maken:

Dim fnum As Integer
Dim FileLine As String
Dim LineItem As Variant
Dim i As Integer

fnum = FreeFile
Open "test.txt" For Input As fnum
    Do While Not EOF(fnum)
    Line Input #fnum, FileLine
        LineItem = Split(FileLine, "||")
        For i = LBound(LineItem) To UBound(LineItem)
            lstCode.AddItem LineItem(i)
        Next i
    Loop
Close fnum

 

[Martijntje]

Ik heb er ook aan zitten denken om te trachten het te splitsen, maar dat is niet de handigste manier... Laat me nog wat duidelijker zijn..

Het tekstbestand is het gastenboek van mijn website...
zo ziet elke regel eruit:

Martijn||||||25-11-2006||||||Dit is een bericht{{Doei
Martijn||||||26-11-2006||||||Dit ook{{Bye

Nou wil ik een klein proggie waarin ik dat tekstbestand kan downloaden, regels verwijderen, opslaan en uploaden...

Als ik het gastenboek bestand zelf download met een ftp-client en ik plaats het bestand bij mijn proggie in de map, wordt het wel goed in de listbox gezet... Dus het downloaden lukt niet... I guess... Na het downloaden krijg ik in mijn tekstbestand:

Martijn||||||25-11-2006||||||Dit is een bericht{{DoeiMartijn||||||26-11-2006||||||Dit ook{{Bye

 

[Spiderman]

Ten eerste, we willen je graag helpen, maar geef dan A.U.B. zoveel mogelijk info als je hebt.
We zijn nu van een textbestandje met daarin 1 2 en 3 onder elkaar, gegaan naar een bestandje met daarin een regel opgebouwd als Martijn||||||25-11-2006||||||Dit is een bericht{{Doei


Is niet helemaal hetzelfde als je begrijpt wat ik bedoel.

Goed, nu de kleine frustratie van me af is , kunnen we verder gaan.

Oke, ik ben ook eventjes aan het spellen geweest, en heb het volgende gevonden:

Als je een Richtextbox gebruikt is het probleem weg, tenminste op de manier die ik heb gebruikt.

RichTextBox1.Text = Inet1.OpenURL("http://www.fransensoftware.com/test.txt", icString)

Hiervoor moet je dus wel bij de Refrence een Internet Transfer Protocol en een RichTextBox toevoegen.

Waarschijnlijk is als je alleen een richtextbox gebruikt jouw code ook het probleem opgelost, zoniet dan kun je mijn manier proberen.