PureBoard

Code: Alles auswählen

; test.html wird hier temporär genutzt

Datei1$ = "http://www.google.de"
Datei2$ = "http://www.google.de"
Datei3$ = "http://www.google.de"

If URLDownloadToFile_(0,Datei1$,"C:\test.html",0,0) = #S_OK
  If ReadFile(1, "c:\test.html")
    While Eof(1) = 0
      Code$+ReadString(1)+Chr(10)
    Wend
    CloseFile(1)
  EndIf
Else
  MessageRequester("Error","Couldn't download file...",16)
EndIf
If URLDownloadToFile_(0,Datei2$,"C:\test.html",0,0) = #S_OK
  If ReadFile(1, "c:\test.html")
    While Eof(1) = 0
      Code$+ReadString(1)+Chr(10)
    Wend
    CloseFile(1)
  EndIf
Else
  MessageRequester("Error","Couldn't download file...",16)
EndIf
If URLDownloadToFile_(0,Datei3$,"C:\test.html",0,0) = #S_OK
  If ReadFile(1, "c:\test.html")
    While Eof(1) = 0
      Code$+ReadString(1)+Chr(10)
    Wend
    CloseFile(1)
  EndIf
Else
  MessageRequester("Error","Couldn't download file...",16)
EndIf

; jetzt ist der Code aller 3 Dateien in einem String
Debug Code$

If CreateFile(2, "C:\test.txt")
  WriteString(2, Code$)
  CloseFile(2)
EndIf

; Code$ = Right(Code$, Len(Code$)-FindString(Code$, "Current Rank:</b></td><td>", 0)+1)
; Code$ = Left(Code$, FindString(Code$, "Site URL:", 0))
; End
; MessageRequester("Info", "Download successfull.", #MB_ICONINFORMATION)