|
| Autor |
Nachricht |
Stadionfeger
Tutorial Leser
Anmeldedatum: 03.06.2008
Beiträge: 25
|
Quelltext auslesen
Verfasst am: 04.06.2008, 16:28 |
|
|
...und nochmal ich 
Wollte mal eben fragen, wie ich es hinbekomm, aus einem Quelltext eine Zahl rauszukriegen (Rapidshare Collecterpoints).
Die betroffene Zeile wäre diese:
| RapidPoints: | PUNKTE |
habe schon gesucht aber nichts genau passendes gefunden.
Wäre dankbar für Hilfe!
|
| |
|
 |
^^kev####
Überflieger
Anmeldedatum: 01.05.2008
Beiträge: 476
Wohnort: Haan
|
Verfasst am: 04.06.2008, 16:34 |
|
|
Du musst einfach den Quelltext Splitten 
Ich weiß jetzt nicht wie der komplette Qtext aussieht,
aber so ungefähr sollte es funkionieren
Visual Basic: [code]
Dim bla As Array
bla = Split(QText, " | ")
[/code]
Es gibt hier auch einige Beispiele wie man sachen aus dem Quelltext ausließt
|
|
| |
|
|
Marduk
Überflieger
Anmeldedatum: 16.04.2008
Beiträge: 374
|
|
| |
|
|
Stadionfeger
Tutorial Leser
Anmeldedatum: 03.06.2008
Beiträge: 25
|
Verfasst am: 04.06.2008, 17:13 |
|
|
@kev, kenn mich damit leider nicht so aus. könntest mir den codeschnippsel evtl. komplettieren? wäre supernett!
@marduk, nein, anders |
|
| |
|
|
^^kev####
Überflieger
Anmeldedatum: 01.05.2008
Beiträge: 476
Wohnort: Haan
|
Verfasst am: 04.06.2008, 17:19 |
|
|
Sollte eigentlich Funktionieren
Visual Basic: [code] Dim QText As String = " | blabla | RapidPoints: | PUNKTE | "
Dim Punkte As Array
Dim PunkteX As String
Punkte = Split(QText, "")
PunkteX = Replace(Punkte(1), " | ", vbNullString)
MsgBox(PunkteX)[/code]
Edit: Du benutzt bestimmt den Webbrowser um den Qtext auszulesen. Dies geht aber auch eleganter fals es dir hilft
Visual Basic: [code]Public Function DownloadWebpage(ByVal URL As String) As String
Dim IoStream As System.IO.Stream
Dim StrRead As System.IO.StreamReader
Try
Dim Request As System.Net.WebRequest = System.Net.WebRequest.Create(URL)
IoStream = Request.GetResponse.GetResponseStream
StrRead = New System.IO.StreamReader(IoStream)
Return StrRead.ReadToEnd
Catch ex As Exception
Return vbNullString
Finally
'StrRead.Close()
'IoStream.Close()
End Try
End Function[/code]
|
| |
|
|
Marduk
Überflieger
Anmeldedatum: 16.04.2008
Beiträge: 374
|
|
| |
|
|
^^kev####
Überflieger
Anmeldedatum: 01.05.2008
Beiträge: 476
Wohnort: Haan
|
Verfasst am: 04.06.2008, 17:47 |
|
|
Dann zeig mal wie es in .NET richtig is ;D
|
|
| |
|
|
Stadionfeger
Tutorial Leser
Anmeldedatum: 03.06.2008
Beiträge: 25
|
|
| |
|
|
^^kev####
Überflieger
Anmeldedatum: 01.05.2008
Beiträge: 476
Wohnort: Haan
|
Verfasst am: 04.06.2008, 17:58 |
|
|
Weil er keinen Namen hat kannst du den nicht drücken wie jeden anderen.
|
|
| |
|
|
Stadionfeger
Tutorial Leser
Anmeldedatum: 03.06.2008
Beiträge: 25
|
Verfasst am: 04.06.2008, 17:58 |
|
|
| ja und wie geht's dann? |
|
| |
|
|
Marduk
Überflieger
Anmeldedatum: 16.04.2008
Beiträge: 374
|
Verfasst am: 04.06.2008, 18:06 |
|
|
Geht mit HTTPWebrequest bzw HTTPWebResponse. Du sendest quasi die Daten direkt per POST/GET an das Actionscript im Formular, ohne Umwege über nen Webbrowser, der irgendwelche Textboxen ausfüllen oder Buttons drücken soll.
Visual Basic: [code]Dim QText As String = " | blabla | RapidPoints: | PUNKTE | "
Dim Punkte As Array 'Größe muss bei 3.0 angegeben werden
Dim PunkteX As String
Punkte = QText.split("")
PunkteX = Punkte(1).replace(" | ", vbNullString)
MsgBox(PunkteX)[/code]
So würde es in .NEt aussehen
|
| |
|
|
Stadionfeger
Tutorial Leser
Anmeldedatum: 03.06.2008
Beiträge: 25
|
Verfasst am: 04.06.2008, 18:13 |
|
|
sorry Marduk, habe mit dem ganzen I-Net Zeugs noch nicht wirklich was gemacht.
bei deinem source kommt in der msgbox leider nur "td>blabla".
sorry, aber ich blick grad überhaupt nicht durch. |
|
| |
|
|
Marduk
Überflieger
Anmeldedatum: 16.04.2008
Beiträge: 374
|
Verfasst am: 04.06.2008, 18:42 |
|
|
Bei deinem Problem mit HTTPWebrequest/.. kann dir die MSDN sehr gute Hilfe leisten. Bei der String-Manipulation kann man lediglich "ausprobieren". Dir sollte das Ziel klar sein. Du willst die Zeile haben, in der die RapidPoints drin stehen. -> Schleife, split() bei Zeilenende
Wenn du dann die Zeile gefunden hast, musst du nur noch die unnötigen Angaben entfernen (.replace()) und du hast deine Punkte |
|
| |
|
|
Stadionfeger
Tutorial Leser
Anmeldedatum: 03.06.2008
Beiträge: 25
|
Verfasst am: 04.06.2008, 19:46 |
|
|
ok.
weißt du eine Lösung zum Login-Button-Problem? |
|
| |
|
|
Marduk
Überflieger
Anmeldedatum: 16.04.2008
Beiträge: 374
|
Verfasst am: 04.06.2008, 19:53 |
|
|
Wie gesagt, arbeite mit der HTTPWebrequest-Klasse, da wirst du dann keine Probleme haben. Du sendest so direkt die POST/GET Daten an das Skript und erhälst als Antwort den Quelltext des Accounts;)
Bei MSDn gibts nen super Artikel darüber |
|
| |
|
|
Stadionfeger
Tutorial Leser
Anmeldedatum: 03.06.2008
Beiträge: 25
|
Verfasst am: 04.06.2008, 20:03 |
|
|
geht das nicht auch über den webbrowser?
will da jetzt nicht mit dem http quatsch rumfummeln.
das muss ja auch so gehen :/ |
|
| |
|
|
Marduk
Überflieger
Anmeldedatum: 16.04.2008
Beiträge: 374
|
Verfasst am: 04.06.2008, 20:35 |
|
|
lol
Der normale Weg geht über HttpWebRequest/Response. Natürlich geht das auch mit dem Webbrowser, aber für sowas benutz ich den NIE.
Wenn du mal in der MSDN suchst, wirst du feststellen, dass man das ganz leicht in max. 15 Zeilen Code erledigen kann |
|
| |
|
|
Administrator
Poster
Anmeldedatum: 16.04.2008
Beiträge: 153
|
Verfasst am: 04.06.2008, 21:16 |
|
|
Ich denke es würde ihm und einigen anderen die Angst davor nehmen, wenn du ein Tutorial schreiben würdest.
Natürlich nur wenn du Zeit und Lust dazu hast. |
|
| |
|
|
Marduk
Überflieger
Anmeldedatum: 16.04.2008
Beiträge: 374
|
Verfasst am: 04.06.2008, 21:28 |
|
|
| OK, werd micht am WE ransetzten und was schreiben. |
|
| |
|
|
^^kev####
Überflieger
Anmeldedatum: 01.05.2008
Beiträge: 476
Wohnort: Haan
|
Verfasst am: 13.06.2008, 18:10 |
|
|
(Marduk;3333) Geht mit HTTPWebrequest bzw HTTPWebResponse. Du sendest quasi die Daten direkt per POST/GET an das Actionscript im Formular, ohne Umwege über nen Webbrowser, der irgendwelche Textboxen ausfüllen oder Buttons drücken soll.
Visual Basic: [code]Dim QText As String = " | blabla | RapidPoints: | PUNKTE | "
Dim Punkte As Array 'Größe muss bei 3.0 angegeben werden
Dim PunkteX As String
Punkte = QText.split("")
PunkteX = Punkte(1).replace(" | ", vbNullString)
MsgBox(PunkteX)[/code]
So würde es in .NEt aussehen
Ich habe gerade auch mal was ausprobiert so wie du es gesagt hast, aber da kommt das selbe raus wie ihm xD
zB man splittet dann kommt u>bla raus und nicht erst nach dem
Weißt du vllt wieso das so ist ?
|
Registrieren
Login
