Bestimmte Text-Passagen hervorheben

Language: Deutsch
Programming Language: VBScript
Published by: Thomas
Last Update: 5/3/2006
Views: 1064

Description

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

Display line numbers

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

Bestimmte Text-Passagen hervorheben

Description

Code

No comments avaiable

Add a comment