AW: String umwandeln
29.11.2006 10:15:11
bst
Auch Hallo,
oder mit Suchen & Ersetzen mit regulären Ausdrücken auch einfach so:
=GROSS(strRegExpReplace(A11;"([a-z])";"-$1-";1;1))
cu, Bernd
--
Option Explicit
'
' Ersetzen in einem String mit Regular Expressions
' Parameter:
' SourceString Der String in dem gesucht werden soll
' Pattern Das zu suchenende Pattern
' ReplaceString Der zu ersetzende String
' IgnoreCase Flag, Groß- / Kleinschreibung ignorieren
' GlobalReplace Flag, Alle bzw. NUR den 1. ten Match ersetzen
' MultiLine Flag ob ^ und $ in jeder Zeile matchen
'
' Rückgabewert:
' der SourceString, ggf. mit Erstezung(en)
'
Function strRegExpReplace(ByVal SourceString As String, ByVal Pattern As String, ByVal ReplaceString As String, _
Optional ByVal IgnoreCase As Boolean = False, _
Optional ByVal GlobalReplace As Boolean = False, _
Optional ByVal MultiLine As Boolean = False) As String
Dim objRE As Object
Set objRE = CreateObject("vbscript.regexp")
objRE.Pattern = Pattern
objRE.IgnoreCase = IgnoreCase
objRE.Global = GlobalReplace
objRE.MultiLine = MultiLine
strRegExpReplace = objRE.Replace(SourceString, ReplaceString)
Set objRE = Nothing
End Function