Quelltext durchsuchen HTML erstellen

S

SPN_X

Mitglied
Hallo, ich finde mit meinen sucbegriffen nichts...

Vorhaben:
Ich will ein programm schreiben das eine adressleiste hat wo ich eine internet adresse eingeben kann.
Von dieser Adresse soll der Quelltext auf bestimmte wortlaute (beliebig in einem Textfeld einzugeben) durchsucht werden (zB. "Hallo.jpg" oder "du_da.avi").
WENN er einen solchen gefunden hat soll er in einer HTML datei speichern!

Ausgabe wenn er diese 2 beispiele gefunden hat:
(gefunden.html)
<html>
<head>
</head>
<body>
«Ausgabe des gefundenen Beispieltextes1: Hallo.jpg»
«Ausgabe des gefundenen Beispieltextes2: Du_da.avi»
</body>
</html>

Wäre nett wenn mit jemand code beispiele oder vorschläge geben könnte, danke ;)
MfG SPN_X
 
Also Ich bekomme es hin das der Quelltext in einer RichTextBox angezeigt wird.
Diese wird nach bestimmten Parametern durchsuche und eingefärbt (rot + Bold).

Jetzt möchte ich das ich die Wörter die rot und fett sind raussuchen und zählen wieviele gefunden wurden.

Wie kann ich das machen?
 
Zuletzt bearbeitet:
Ich nehme mal an (aufgrund deines zweiten Posts) dass du das runterladen des Quelltextes schon hinbekommen hast.

IMO einfacher geht es, wenn du den gesamten Quelltext in einer Stringvariable hast und den String dann mittels InStr(Start, Quelltext, ZuSuchenderText) suchst. Du bekommst dann die Stelle zurück, an der sich der gewünschte Text befindet. Kleiner Code dazu:
Visual Basic: 
Dim vCounter As Integer, vStelle As Long, vSource As String, vSeek As String
vSource = "Das ist das, was das soll!" 'Dein Text, der durchsucht werden soll
vSeek = "das" 'Das zu suchende Wort
vStelle = 1
Do
 vStelle = InStr(vStelle, vSource, vSeek, vbTextCompare) 'Suche ohne Groß-/Kleinschreibung
 If vStelle > 0 Then
  vCounter = vCounter + 1 'Counter erhöhen
  vStelle = vStelle + Len(vSeek) 'Stelle erhöhen, sonst findet er immer das Selbe Wort
 End if
Loop Until vStelle < 1 'Bis nichts mehr gefunden wird
Msgbox "Anzahl: " & vCounter


Der Doc!
 
Um antworten zu können musst du eingeloggt sein.

Neue Beiträge

Zurück