vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 NEU! sevCoolbar 3.0 - Professionelle Toolbars im modernen Design!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Suche Visual-Basic Code
Re: Suchen 
Autor: brave@heart
Datum: 22.02.03 01:02
versuchs mal hiermit:
Private Sub Command1_Click()
    Open "deine-html-datei.html" For Input As #1
    While Not EOF(1)
        Line Input #1, zeile
        htm = htm & zeile
    Wend
    Close #1
    endpos = InStrRev(LCase(htm), "</font>") - 1
    startpos1 = InStrRev(LCase(htm), "<font")
    startpos2 = InStr(startpos1, LCase(htm), ">") + 1
    MsgBox Mid(htm, startpos2, endpos - startpos2 + 1)
End Sub
du bekommst allerdings wirklich alles was zwischen dem letzten
<font> und </font> tag der html-datei steht, auch alle anderen tags
die sich evt. dazwischen befinden.

p.s.: ab VB6 wegen dem InStrRev

mfg
brave@heart

...bis zur unendlichkeit und noch viel weiter...

alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Suchen767UltraMeister21.02.03 14:38
Re: Suchen520brave@heart22.02.03 01:02
Re: Suchen498UltraMeister22.02.03 17:20

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
  
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel