Bestimmte Text-Passagen hervorheben

Sprache: Deutsch
Programmiersprache: VBScript
Veröffentlicht von: Thomas
Letzte Änderung: 03.05.2006
Aufrufe: 1312

Beschreibung

Manchmal kann es ganz sinnvoll sein bestimmte Textpassagen z.B. farblich hervorzuheben - zum Beispiel in der Ergebnisliste einer Suchabfrage, um etwa in den Ergebnissen die Suchwörter hervorzuheben.

Code

Zeilennummern anzeigen

1 Public Function QueryMarker(ByRef strQuery,strResult) 2 3 Set RegExpMark = New RegExp 4 5 With RegExpMark 6 .Pattern = strQuery 7 .IgnoreCase = True 8 .Global = True 9 End With 10 11 Set RegExpMarkMatch = RegExpMark.Execute(strResult) 12 13 For Each Match in RegExpMarkMatch 14 strOutput = RegExpMark.Replace(strResult, "<span style=""background-color:#C4D2D9;"">" & Match.Value & "</span>") 15 Next 16 17 If strOutput = "" Then 18 QueryMarker = strResult 19 Else 20 QueryMarker = strOutput 21 End If 22 23 Set RegExpMark = Nothing 24 25 End Function

Noch kein Kommentar vorhanden

Dieses Snippet kommentieren

Name *

E-Mail (wird nicht angezeigt) *

Website

Kommentar *

Sicherheitscode *