ReplaceWildcard

Top  Previous  Next

function ReplaceWildcard(sSource As String, sSearchWildcard As String, sReplaceStr As String) As String

 

Gibt einen String zurück, in dem alle Vorkommen von sSearchWildcard durch sReplaceStr ersetzt werden. sFindWildcard ist ein Wildcard-Ausdruck mit einem Start-Text, einem Stern-Zeichen und einem Ende-Text mit folgender Syntax:

 

StartText*EndText

 

ReplaceWildcard ist case-sensitive.

 

Parameter

 

sSource ... String-Ausdruck, in dem ein Substring ersetzt werden soll.
sSearchWildcard ... Wildcard Ausdruck, der ersetzt werden soll.
sReplaceStr ... Substring, der sSearchWildcard ersetzen soll.

 

Beispiel:

Dim s

 

= "<table><tr><td>354</td></tr></table>"

= ReplaceWildcard(s, "</td>*</td>", "</td>-</td>")

' returns s = "<table><tr><td>-</td></tr></table>"