German Quellcode von Website auslesen

[jobaw245]

Hallo Leute,
Ich bin relativ neu hier und hätte da mal eine frage.
Ich möchte den Quellcode einer Website auslesen und in einer Liste oder
einem Textfeld (Multiline) zur Weiterverarbeitung in meinem Programm
nutzen.
Es gibt ja die HttpUtil aber irgendetwas funktioniert nicht .
Beim Verbinden kommt immer eine Fehlermeldung.
Ich bin für jede Hilfe dankbar.

Vielen Dank schon im voraus.

 

[klaus]

Es währe einfacher wenn Du Deinen Code posten würdest oder besser das ganze Projekt als zip Datei (IDE Menü Files / Export As Zip).
Und welche Fehlermeldung bekommst Du ?

Beste Grüsse.

 

[jobaw245]

Danke für die schnelle Hilfe.
Zip Datei war zu groß
Es ist für ein Tablet geschrieben 10,1".

Grüße Jörg

 

[klaus]

Dein Programm funktioniert leider nicht:
- die eurojackpot.bal Datei muss im Files Ordner sein.
- das Programm versucht EditText8 aufzurufen, aber EditText8 existiert nicht.
Hast Du das Programm probiert bevor Du es gepostet hast.

Nach erstem Blick musst Du diese Zeile
HttpUtils.CallbackActivity = "eurojackpot"

durch diese ersetzen.
HttpUtils.CallbackActivity = "Main"

Beste Grüsse.

 

[jobaw245]

Ich musste etliches Entfernen um mit der zip Datei nicht zu groß zu werden.
die eurojackpot.bal Datei ist aber im Stammordner brauchst sie nur in den File Ordner verschieben.
Schon mal vielen Dank für die Antwort.

Gruß Jörg

 

[Kiffi]

Hallo Jörg,

mir scheint, dass Du die Antworten auf Deine Fragen nicht richtig gelesen hast.

Du hast noch immer nicht Klaus' Frage beantwortet:

Und welche Fehlermeldung bekommst Du ?

und hast Du auch schon Klaus' Tip (CallbackActivity ändern) ausprobiert?

Grüße ... Kiffi

 

[jobaw245]

Meine Fehlermeldung lautet
The application Eurojackpot (process.com.lotjpot.hier)has stopped
unexpectedly.

 

[klaus]

die eurojackpot.bal Datei ist aber im Stammordner brauchst sie nur in den File Ordner verschieben.

Das weiss Ich schon habs auch gemacht.

Mit HttpUtils.CallbackActivity = "Main" funktioniert die Verbindung.
Dann kommt eine Fehlermeldung in HandleMainPage in der Zeile m = Regex.Matcher(pattern, line).

Beste Grüsse.

 

[jobaw245]

Habe alles etwas anders gemacht.
Klaus Dein Tip mit "Main" statt "eurojackpot" war richtig.
vielen Dank.

Sub JobDone (Job As String)
   If HttpUtils.IsSuccess(Url1) Then
      ProgressDialogHide
      Website = HttpUtils.GetString(Url1)
   End If
    Webauslesen
End Sub

Sub Webauslesen
Dim b As Int,e As Int,Fuenf As String,Zwei As String

Fuenf=Website.SubString2(Website.IndexOf("Gewinnzahlen:")+13,Website.IndexOf("<br />"))

Zwei = Website.SubString2(Website.IndexOf("Eurozahl 1 und 2:")+18,Website.IndexOf("Eurozahl 1 und 2:")+70)

A = Regex.Split(",",Fuenf)

For b = 0 To 4
 LZ(b).Text = A(b).Trim
Next

A = Regex.Split(",",Zwei)

For b = 0 To 1
 ZZ(b).Text = A(b).Trim
Next
End Sub

Das Programm holt die Zahlen der letzten Ziehung von dieser WebSeite
und vergleicht Sie mit Getippten und macht die Label mit den richtigen zahlen
grün.