German Quellcode von Website auslesen

J

jobaw245

Member

Licensed User

Longtime User

• Jun 5, 2012

• #1

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

Expert

Licensed User

Longtime User

• Jun 5, 2012

• #2

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.

 

J

jobaw245

Member

Licensed User

Longtime User

• Jun 5, 2012

• #3

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

Grüße Jörg

 

Last edited: Jun 5, 2012

klaus

Expert

Licensed User

Longtime User

• Jun 5, 2012

• #4

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.

 

J

jobaw245

Member

Licensed User

Longtime User

• Jun 5, 2012

• #5

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

Well-Known Member

Licensed User

Longtime User

• Jun 5, 2012

• #6

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 ?

Click to expand...

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

Grüße ... Kiffi

 

J

jobaw245

Member

Licensed User

Longtime User

• Jun 5, 2012

• #7

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

 

klaus

Expert

Licensed User

Longtime User

• Jun 5, 2012

• #8

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

Click to expand...

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.

 

J

jobaw245

Member

Licensed User

Longtime User

• Jun 5, 2012

• #9

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

B4X:

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.