| |

Fortgeschrittene ProgrammierungHTML - Syntaxhighlighting in RTF-Box | |  | Autor: Turicon | Datum: 15.04.05 20:11 |
| Hallo,
ich möchte beim Laden einer HTML-Datei in eine RTF-Box die Tags einfärben. Folgender Code macht das, das aber kommt später:
Public Sub Highlighting(frmX As ChildForm1)
Dim f1, searcha, searchb As String
Dim sbegin, sende, sstatus As Integer
f1 = RGB(0, 0, 180)
searcha = "<"
searchb = ">"
sstatus = 1
sbegin = 0
Do
sbegin = InStr(sstatus, frmX.rtf1.Text, searcha, vbTextCompare)
If (sbegin <> 0) Then
sende = InStr(sbegin, frmX.rtf1.Text, searchb, vbTextCompare)
frmX.rtf1.SelStart = sbegin - 1
frmX.rtf1.SelLength = (sende + 1) - sbegin
frmX.rtf1.SelColor = f1
sstatus = sbegin + 1
Else
Exit Do
End If
Loop
End Sub Das funktioniert, nur: diese eine Loop - Schleife dauert bei einer größeren Datei gerne 20 Sekunden und es sind nur die Tags blau gefärbt! Ich habe weitere Loops für alles zwischen Anführungszeichen, Kommentare und PHP-Script.
Wenn ich alle Loops aktiviere, sieht der Code danach schön übersichtlich aus, richtig professionell, aber es kann 40 Sekunden dauern, bis die Routine fertig ist. Komme mir vor wie in AmigaBasic - Zeiten.....
Hat jemand eine Idee, wie man Highlighting schnell und effizient umsetzen könnte? Natürlich mit VB6!
Ich habe auch schon versucht, ein Array anzulegen mit HTML-Tags, dann in einer Schleife nach den Wörtern gesucht... - aber das ist noch langsamer. Geht das vielleicht mit regulären Ausdrücken?
Bin für jeden Denkanstoß dankbar,
beste Grüße,
Turicon |  |
 | 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 |
  |
|
Neu! sevPopUp 2.0 
Dynamische Kontextmenüs!
Erstellen Sie mit nur wenigen Zeilen Code Kontextmenüs dynamisch zur Laufzeit. Vordefinierte Styles (XP, Office, OfficeXP, Vista oder Windows 8) erleichtern die Anpassung an die eigenen Anwendung... Weitere InfosTipp des Monats Oktober 2025 Matthias KozlowskiUmlaute konvertierenErsetzt die Umlaute in einer Zeichenkette durch die entsprechenden Doppelbuchstaben (aus ä wird ae, usw.) Access-Tools Vol.1 
Über 400 MByte Inhalt
Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB
Nur 24,95 EURWeitere Infos
|
|
|
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
|
|