mit vbs imho gar nicht... aber mit ner regexe geht's:
----------------------------------------
Function ReplaceTheShit(ByRef strQuery,strResult)
Set RegExe = New RegExp
With RegExe
.Pattern = strQuery
.IgnoreCase = True
.Global = True
End With
Set RegExeMatch = RegExe.Execute(strResult)
For Each Match in RegExeMatch
strOutput = RegExe.Replace(strResult, "<rot>" &
Match.Value & "</rot>")
Next
If strOutput = "" Then
ReplaceTheShit = strResult
Else
ReplaceTheShit = strOutput
End If
Set RegExe = Nothing
End Function
----------------------------------------
have fun
> Hallo Liste,
>
> wie kann ich denn bei folgendem replace
>
> Fehler:
> KSTP_BEZ = replace(KSTP_BEZ),suchbegriff,"<font
> class=""font_txt_rot"">"&suchbegriff&"</font>")
>
> Sorry: ) nach KSTP_BEZ gibts nat�rlich im Original nicht:
>
> Original:
> KSTP_BEZ = replace(KSTP_BEZ,suchbegriff,"<font
> class=""font_txt_rot"">"&suchbegriff&"</font>")
>
> die Gross- Kleinschreibung vernachl�ssigen.
>
> Bsp:
>
> 1. Suchbegriff = "verwaltung"
>
> 2. in der DB steht Verwaltung --> kein Replace
>
> 3. Haben will aber <rot>Verwaltung</rot>!!!
>
> Danke, Tom
>
> | [aspdecoffeehouse] als [EMAIL PROTECTED] subscribed
> | http://www.aspgerman.com/archiv/aspdecoffeehouse/ = Listenarchiv
> | Sie k�nnen sich unter folgender URL an- und abmelden:
> |
> http://www.aspgerman.com/aspgerman/listen/anmelden/aspdecoffee
house.asp
| [aspdecoffeehouse] als [EMAIL PROTECTED] subscribed
| http://www.aspgerman.com/archiv/aspdecoffeehouse/ = Listenarchiv
| Sie k�nnen sich unter folgender URL an- und abmelden:
|
http://www.aspgerman.com/aspgerman/listen/anmelden/aspdecoffeehouse.asp
| [aspdecoffeehouse] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspdecoffeehouse/ = Listenarchiv
| Sie k�nnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdecoffeehouse.asp
