hente .txt fil fra internett

[Jonas]

Hallo

 

Jeg lurer på om det rett å slett går ann å hente en liten .txt fil fra internett med denne koden:

 

Private Sub Command1_Click()
Open "http://.." For Input As #1
Do While Not EOF(1)
    Text1.Text = Text1.Text & Input(1, #1)
Loop

Close #1

End Sub

[aadnk]

Nei, dessverre. OPEN koden kan ikke brukes til noe annet enn lokale filer, men du kan lett laste ned filer fra nettet med denne API-callen:

 

Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

 

Du bruker API-en slik:

 

URLDownloadToFile 0, "http://www.hardware.no", App.Path & "\Buff.htm", 0, 0

 

Skal du laste ned en .txt fil skriver du bare in URL for filen, og så hvor den skal lastes ned til på harddisken.

Så er det bare å bruke OPEN koden på filen.

[Jonas]

Nå satt jeg inn denne koden:

Private Sub Command1_Click()
URLDownloadToFile 0, "http://home.no.net/nefcs/news.txt", App.Path & "c:/klan-melding.txt", 0, 0
End Sub

Får bare en feilmelding:

Compile error: Sud og functionnot defined

 

Hva gjør jeg feil?

[aadnk]

Beklager, burde ha skrevet det litt mer tydelig, men sånn går det når man har hastverk.

 

Hvis du skal få det til å virke må du inkludere API kallen i begynnelsen av koden, som f.eks dette:

 

Option Explicit

Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

Private Sub Command1_Click()
URLDownloadToFile 0, "http://home.no.net/nefcs/news.txt", "c:\klan-melding.txt", 0, 0

' Så kan du legge inn OPEN koden din

End Sub

 

Forresten, App.Path koden gir stien til hvor programmet ligger, så skal du ikke laste ned filen til der hvor programmet ligger må du ikke ha den koden med. Da holder det med f.eks "c:\klan-melding.txt".

[Jonas]

Yes!! du er helten min!! nå funker alt etter masse slit tuuusen takk!

 

 

Edit: funker det med å ha en popup når man trykkker på en link? skal ha en liten "about" vindu!

 

Edit2: har bare demo-versjonen av programmet så jeg får ikke "make'et" den.. noen som gidder? send pm

Endret 18. november 2003 av jonas22282460