Avatar billede team-urin Nybegynder
08. december 2003 - 17:02 Der er 11 kommentarer

Hente .txt fra nettet og vis i Samurize

Hey,
Jeg har brug for at kunne vise en txt fil i samurize.
Denne txt fil ligger på mit webhotel. Hvordan gør jeg det?
Fatter hat af VBScript.
Avatar billede medions Nybegynder
08. december 2003 - 19:27 #1
Dim fso, file, stream
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set file = fso.OpenTextFile("C:\test.txt")
    Labelnavn.Text = file.ReadLine
    file.Close
    Set stream = Nothing
    Set file = Nothing
    Set fso = Nothing

//>Rune
Avatar billede medions Nybegynder
08. december 2003 - 19:27 #2
Nååh, ligger den hos dit webhotel! -så er jeg ikke sikker på du kan!

//>Rune
Avatar billede medions Nybegynder
08. december 2003 - 19:31 #3
Men hvis det skulle være muligt skal du bruge:

Function GetHTMLBin(strURL)
        Set objXMLHTTP = CreateObject("Microsoft.XMLHTTP")

        objXMLHTTP.Open "GET", strURL, False

        GetHTMLBin = objXMLHTTP.responseBody
        Set objXMLHTTP = Nothing
End Function

GetHTMLBin("www.medions.dk")

//>Rune
Avatar billede medions Nybegynder
08. december 2003 - 19:43 #4
Hmm ok, det kan du godt, her har du hvordan du henter HTML koden ud fra et HTML dokument, så må du lige selv rette det sidste til...

URL = "http://www.medions.dk/"
CRLF = Chr(10)

Function WriteFile()
dim html, fs, f
    html = BinToText(GetHTMLBin(URL), 32000)
    WriteFile = html
End Function

MsgBox(WriteFile())

Function GetHTMLBin(strURL)
        Set objXMLHTTP = CreateObject("Microsoft.XMLHTTP")

        objXMLHTTP.Open "GET", strURL, False
        objXMLHTTP.SEnd CStr(Rnd())

        GetHTMLBin = objXMLHTTP.responseBody
        Set objXMLHTTP = Nothing
End Function

Function BinToText(varBinData, intDataSizeInBytes)
        Const adFldLong = &H80
        Const adVarChar = 200
        Set objRS = CreateObject("ADODB.Recordset")

        objRS.Fields.AppEnd "txt", adVarChar, intDataSizeInBytes, adFldLong
        objRS.Open

        objRS.AddNew
        objRS.Fields("txt").AppEndChunk varBinData
        BinToText = objRS("txt").Value

        objRS.Close
        Set objRS = Nothing
End Function

//>Rune
Avatar billede team-urin Nybegynder
08. december 2003 - 21:05 #5
Det skal bruges til samurize. Hvis jeg sætter gemmer scriptet og sætter det ind i mit config, kommer den bare med en popup med en "Page cannot be displayed" side(ikke IE, øverst står der VBscript)
What to do?
Avatar billede medions Nybegynder
08. december 2003 - 22:00 #6
Function GetFile()
dim html, fs, f
    html = BinToText(GetHTMLBin(URL), 32000)
    WriteFile = html
End Function

Function GetHTMLBin(strURL)
        Set objXMLHTTP = CreateObject("Microsoft.XMLHTTP")

        objXMLHTTP.Open "GET", strURL, False
        objXMLHTTP.SEnd CStr(Rnd())

        GetHTMLBin = objXMLHTTP.responseBody
        Set objXMLHTTP = Nothing
End Function

Function BinToText(varBinData, intDataSizeInBytes)
        Const adFldLong = &H80
        Const adVarChar = 200
        Set objRS = CreateObject("ADODB.Recordset")

        objRS.Fields.AppEnd "txt", adVarChar, intDataSizeInBytes, adFldLong
        objRS.Open

        objRS.AddNew
        objRS.Fields("txt").AppEndChunk varBinData
        BinToText = objRS("txt").Value

        objRS.Close
        Set objRS = Nothing
End Function

Så skal du kalde GetFile() funktionen fra Samurize!

//>Rune
Avatar billede team-urin Nybegynder
08. december 2003 - 22:09 #7
Undskyld mig for at at fatte for lidt. ;-)

Hvor skal jeg sætte url'en ind henne?
Hvis jeg bare putter koden i en vbs fil og kalder GetFile() i samurize melder den: "invalid procedure call or argument."
Avatar billede medions Nybegynder
08. december 2003 - 22:21 #8
Function GetFile()
dim html, fs, f
    html = BinToText(GetHTMLBin(URL), 32000)
    WriteFile = html
End Function

Function GetHTMLBin()
        strURL = "http://www.medions.dk/default.asp"
        Set objXMLHTTP = CreateObject("Microsoft.XMLHTTP")

        objXMLHTTP.Open "GET", strURL, False
        objXMLHTTP.SEnd CStr(Rnd())

        GetHTMLBin = objXMLHTTP.responseBody
        Set objXMLHTTP = Nothing
End Function

Function BinToText(varBinData, intDataSizeInBytes)
        Const adFldLong = &H80
        Const adVarChar = 200
        Set objRS = CreateObject("ADODB.Recordset")

        objRS.Fields.AppEnd "txt", adVarChar, intDataSizeInBytes, adFldLong
        objRS.Open

        objRS.AddNew
        objRS.Fields("txt").AppEndChunk varBinData
        BinToText = objRS("txt").Value

        objRS.Close
        Set objRS = Nothing
End Function

//>Rune
Avatar billede team-urin Nybegynder
08. december 2003 - 22:33 #9
Nu siger samurize:
wrong number of arguments or invalid property assignment: 'GetHTMLBin()'
- ???
Avatar billede team-urin Nybegynder
12. december 2003 - 17:58 #10
op
Avatar billede team-urin Nybegynder
13. december 2003 - 21:17 #11
come on!
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester