OpenOffice.info

sub ersetze
  s1 = "ein wichtiger String"
  mid(s1, instr(s1, "wichtiger") , len("wichtiger"), "neuer")
   msgbox s1   'liefert:  ein neuer Stringt
end sub

sub ersetze
  s1 = "ein wichtiger String"
  s2 = mid(s1, instr(s1, "wichtiger")+ len("wichtiger")) 's2 = " String"
  mid(s1, instr(s1, "wichtiger") ,len(s1) , "unwichtiger")
  s1 = s1 + s2
  msgbox s1   'liefert:  ein unwichtiger String
end sub

Hey Peter,

[quote]Gibt es eine Funktion zu suchen und Ersetzen von Teilstrings in Zeichenketten? [/quote]

ja. Mid() - diese Funktion erwartet drei oder vier Parameter. Mit vier Parametern ersetzt du einen Teilstring. Beispiel:

[code]sub ersetze
s1 = "ein wichtiger String"
mid(s1, instr(s1, "wichtiger") , len("wichtiger"), "neuer")
msgbox s1 'liefert: ein neuer Stringt
end sub[/code]

Aber: der neue String darf maximalso lang sein wie der zu ersetzende. Sonst wird er abgeschnitten. Dann beleibt dir nur, mit Hilfskonstrukten zu arbeiten:
[code]sub ersetze
s1 = "ein wichtiger String"
s2 = mid(s1, instr(s1, "wichtiger")+ len("wichtiger")) 's2 = " String"
mid(s1, instr(s1, "wichtiger") ,len(s1) , "unwichtiger")
s1 = s1 + s2
msgbox s1 'liefert: ein unwichtiger String
end sub[/code]

Gruss
Thomas

Ich möchte mir gerne eine Funktion (=Makro) bauen, mit der ich nacheinander einen String auf das Vorkommen verschiedener Zeichen und Zeichenketten untersuchen, und diese ggf. ersetzen kann. In Excel geht das durch mehrmaliges Aufrufen der Replace() Funktion in einem Makro. Kann so etwas ähnliches aber in OpenOffice nicht finden. Gibt es eine Funktion zu suchen und Ersetzen von Teilstrings in Zeichenketten?

Schöne Grüße

Peter