[VisualBasic] Seitenquellcode nach bestimmten Text durchsuchen

Dieses Thema im Forum "Programmierung & Entwicklung" wurde erstellt von B0B, 13. September 2006 .

Schlagworte:
Status des Themas:
Es sind keine weiteren Antworten möglich.
  1. 13. September 2006
    Seitenquellcode nach bestimmten Text durchsuchen

    Hallo,
    habe schon das nächste VB Problem ^^

    Also diesmal geht es darum:

    Per Buttonclick soll der Quellcode von einer, schon vorher per webbrowser komponente angesteuerten, Seite nach einem bestimmten begriff durchsucht werden.
    Ich krieg das nicht hin!

    Ich kann bisher nur den Quellcode einer Seite auslesen, nur das Suchen nach dem bestimmten Begriff is mein Verhängniss!

    Vllt könnt ihr mir da ja weiterhelfen!

    Hab bisher jeden gut bewertet, der mit geholfen hat

    cya
     
  3. 13. September 2006
    AW: Seitenquellcode nach bestimmten Text durchsuchen

    http://www.vbarchiv.net/archiv/tipp_268.html

    Da steht wie man die seite nach ne Email absucht, müsste aber auch mit anderen sachen gehen!

    Ich hatte auch was vor was damit arbeitet...... Wehe wenn dur mir das wegschnappst

    Viel spaß beim proggen!

    Knusperkeks
     
  4. 13. September 2006
    AW: Seitenquellcode nach bestimmten Text durchsuchen

    wennde quelltext auslesen, aber nicht verarbeiten kannst dann verwundert mich das sehr stark, zumal letzteres um einiges einfacher ist...
     
  5. 13. September 2006
    AW: Seitenquellcode nach bestimmten Text durchsuchen

    Kurz un einfach: InStr(...) gibt die Position an wo der zu suchende String das erste mal vorkommt. (InStrRev(...) sucht von hinten an).
     
  6. 13. September 2006
    AW: Seitenquellcode nach bestimmten Text durchsuchen

    also das ganze sollte so ablaufen:

    if begriff gefunden = true then
    test.caption = "gefunden"
    elseif begriff gefunden = false then
    test.caption = "nicht gefunden"
    end if

    mit den einschränkungen kann ich eigentlich nicht viel anfangen
     
  7. 13. September 2006
    AW: Seitenquellcode nach bestimmten Text durchsuchen

    Code:
    Private Function findeBegriff(derStr As String) As Boolean
Dim reply As Integer

reply = InStr(1, deinQuelltext, derStr, 1)
If reply = 0 Then
 findeBegriff = False
 Exit Function
End If
findeBegriff = True
End Function
    Sollte so funktionieren, habs aber net getestet...

    Gruß,
    Figger
     
  8. 13. September 2006
    AW: Seitenquellcode nach bestimmten Text durchsuchen

    Am einfachsten ist das so:
    Code:
    If Instr(HTMLText, "Suchbegriff") > 0 Then 'gibt position zurück, falls nicht gefunden, gibt es 0 zurück
 gefunden = true
else 
 gefunden = false
end if
     
  9. 13. September 2006
    AW: Seitenquellcode nach bestimmten Text durchsuchen

    Wenn du zb nach einer bestimmten zeichen kette suchen willst dann gibts auch noch strpos ()
    damm musste zb nach <a href=" suchen und dann noch mal von da auas nach > oder so ... mal googlen da gibts einige bsp
     
  10. 13. September 2006
    AW: Seitenquellcode nach bestimmten Text durchsuchen

    Das gibts in VB nicht.....

    Noch einfacher als weixi2's beispiel wär:
    Code:
    If InStr(1,DeinText,DasZuSuchende) Then
 'gefunden
Else
 'nich gefunden
End if
     
  11. 13. September 2006
    AW: Seitenquellcode nach bestimmten Text durchsuchen

    Das geht aber nur wenn du nur einmal die Textstelle suchst.

    Sonst muss du den Code von razor90 ein wenig erweitern.

    Code:
    Dim Textstellle As Long 'müsste Int aber reichen
If InStr(Textstellle,DeinText,DasZuSuchende) Then
 'gefunden
 Textstellle = Textstellle + Len(DasZuSuchende)
Else
 'nich gefunden
End if
     
  12. 13. September 2006
    AW: Seitenquellcode nach bestimmten Text durchsuchen

    ok danke, jetzt gehts!
    werde euch alle gut bvewerten, soweits noch möglich ist!
     
  13. 13. September 2006
    AW: Seitenquellcode nach bestimmten Text durchsuchen

    Erledigt.

    ~closed~

    Mfg,

    Kolazomai
     
  14. Video Script

    Videos zum Themenbereich

    * gefundene Videos auf YouTube, anhand der Überschrift.