Guten Morgen,
ich suche einfache String Funktionen mit denen es mir möglich ist in einem String spezielle Worte zu ersetzen.
str1=„Hallo ,“ ==> str2=„Hallo Herr Mustermann,“
hätte jemand eine nette Idee?
Hallo
ich suche einfache String Funktionen mit denen es mir möglich
ist in einem String spezielle Worte zu ersetzen.str1=„Hallo ,“ ==>
str2=„Hallo Herr Mustermann,“hätte jemand eine nette Idee?
Wie wäre es mit Replace?
Replace(Ausdruck, suchen, ersetzendurch[, starten[, Anzahl[, vergleichen]]])
Vorteil: schnell nutzbar und ‚eingebaut‘; Nachteil: nur jeweils ein
Ausdruck ersetzbar.
Oder regulären Ausdrücken?
http://juicystudio.com/tutorial/vb/regexp.asp
Vorteil: ersetzen mehrerer Zeichenfolgen mit einer Anweisung;
Nachteil: Komplex
Die Anleitung gibt’s wahrscheinlich auch irgendwo in Deutsch, einfach
mal googeln.
Gruss
Thomas
Hallo Bajor,
ich suche einfache String Funktionen mit denen es mir möglich
ist in einem String spezielle Worte zu ersetzen.str1=„Hallo ,“ ==>
str2=„Hallo Herr Mustermann,“hätte jemand eine nette Idee?
Statt Erklärung habe ich mal ein Beispiel geschreiben, das ist übersichtlicher.
Dim Anrede, Nachname, Str1, Str2 As String
Private Function subst(st, aw, nw) As String
Dim t1 As String
Dim t2 As String
t1 = Left(st, InStr(st, aw) - 1)
t2 = Right(st, Len(st) - Len(aw) - InStr(st, aw) + 1)
subst = t1 & nw & t2
End Function
Private Sub Command1\_Click()
Anrede = "Herr"
Nachname = "Mustermann"
Str1 = "Hallo ,"
Str2 = subst(Str1, "", Anrede)
Str2 = subst(Str2, "", Nachname)
End Sub
Die Variable für den Namen habe ich auf ‚Nachname‘ gesetzt, weil ‚Name‘ ein Schlüsselwort ist, das nicht als Variablenname verwendet werden kann.
Ich hoffe das hilft Dir.
Gruß, Rainer
danke danke, es funktioniert beides!