✔ Zeichen ersetzen

[Piet-Online]

Hallo Leute,

mein Problem ist für Euch mit sicherheit ein kleines, ich jedoch habe keinen
blassen Schimmer, wie ich es realisieren kann.

Ich möchte z.B. einen kompletten Satz durch * ersetzen lassen, bin jedoch nur soweit gekommen, das einzelne Buchstaben ersetzt werden.

Beispiel:

test test
**** ****
Könnt Ihr mir helfen

Danke

 

[DrSoong]

Das Zauberwort heißt Replace():

sText = "Ein Text! Das hier muss weg! Das Ende des Textes!"
sNeuerText = Replace(sText, " Das hier muss weg!", "*")
MsgBox sNeuerText
'würde "Ein Text! Das Ende des Textes!" ergeben

Der Doc!

 

[Piet-Online]

Danke für die schnelle Antwort.

Es ist leider nicht das was ich gesucht habe !!

Ich möchte einen Satz z.B.
"ein test ist ein test" so aussehen lassen
"*** **** *** *** ****"

Es soll jedes Zeichen des Satzes durch ein * ersetzt werden.

Ist das so ohne viel Aufwand zu realisieren

Danke

 

[ingop]

Set objRegAusdr = New RegExp
' ### Setzten des Suchmusters (Pattern)
objRegAusdr.Pattern = "[a-z,A-Z,\,,.,!,?]"
  ' ### Alle Pattern austauschen
  objRegAusdr.Global = True
  strA = "Dies !?,. ist ein Test."
  strB = "*"
  ' ### Alle Pattern in strA gegen strB austauschen
  strA = objRegAusdr.Replace(strA, strB)
  debug.print(strA)

hier ein sample bei M$

http://support.microsoft.com/kb/818802

Gruß Ingo

 

[Piet-Online]

Danke für Eure Hilfe. Mit etwas basteln hat es jetzt funktioniert.