Suchen und Ersetzenbefehl mit Variablen

[clag]

Hallo Peter,

woran erkennst du das Ende der unerwünschten Zahlenkolonne,
und wo suchst du nun in eine Tabelle oder Text.

[turtle47]

Edit myself: Blödsinn gelöscht.

[clag]

Hallo Peter,

mit zwei Vorgängen kannst du es lösen

zuerst

suchen mptime[:digit:]*.[:digit:]*
ersetzen mptime00
Optionen
[x] Regulärer Ausdruck

solange wiederholen bis der Suchbegriff nicht mehr gefunden wird

und dann einmal

suchen mptime[:digit:]*
ersetzen nichts
Optionen
[x] Regulärer Ausdruck


damit sollte dein Wunsch erfült sein

[turtle47]

Hallo Peter,

Hallo Peter/Paul,

also bei funktioniert der Tipp, den man dir im anderen Forum gegeben hat.
Hast du vielleicht > Mehr Optionen> Reguläre Ausdrücke nicht aktviert?

Am einfachsten, du kopierst in dein Dokument:
\<mptime[0-9][0-9:][0-9:]*\>

markierst es und rufst Strg+f auf

mfG

Sorry, den Post hatte ich nicht vor dem Absenden meine Beitrags nicht gesehen.
Da hätte ich meinen Blödsinn sparen können.

Der Code von Gast hat aber einen Nachteil. Wenn der Suchbegriff in einem Fliesstext steht, dann bleibt ein Leerzeichen zuviel stehen.
Dann muss man nochmals mittels Suchen: 2 Leerzeichen, ersetzen durch 1 Leerzeichen nochmals einen Durchgang machen.

Wenn Du das öffters brauchst dann könnte folgendes Makro Dein Freund werden:

Code: Alles auswählen

Option Explicit
Sub mptime_replace
Dim oTextdokument, oText, oTextcursor, Enum1, TextElement as Object
Dim myText as String
	oTextdokument = thisComponent
	oText = oTextdokument.Text
	oTextcursor = oText.createTextCursor
	oTextcursor.gotostart(False)	
	Enum1 = oTextdokument.Text.createEnumeration
	While Enum1.hasMoreElements
	TextElement = Enum1.nextElement	
	Do
	oTextcursor.gotoendofword(True)
	myText = oTextcursor.getstring
	if instr(myText,"mptime") then
	oTextcursor.goright(1,True)
	oTextcursor.string = ""
	end if
	oTextcursor.gotonextword (false)
	Loop Until myText = ""
	wend  
End Sub

Für Deinen ersten Post hier im Forum ist folgendes vorbildlich:

Hier noch die System-Daten:
Windows XP Professional
OpenOffice.org 3.1.1 OOO310m19 (Build:9420)

Das lieben wir.

Jürgen

[clag]

Hallo Peter hallo Leutz

hallo Peter ich wollte dir gern deine Frage beantworten aber es ist äußerst kurios
der gestern von mir vorgestellte und mehrfach getestete "Such String" tut heute nicht mehr das was er gestern noch getan hat
nach mehrfachen testen und einem OOo Absturz zwischendurch muss ich heute schreiben
der heute funktionierende SuchString ist

suchen mptime[:digit:]+.[:digit:]+
ersetzen mptime00

der Rest wie gehabt
das verstehe ich nun absolut nicht !
da du gestern sogar bestätigt hast das mein Vorschlag funktioniert kann es auch nicht total falsch gewesen sein
Nun muss ich versuchen heraus zu bekommen wo dieser Fehler-Troll nun sein Unwesen treibt in, an oder vor dem PC


der Gedanke dabei ist folgender
du hattest nicht geschrieben wenn wieviel der nicht "ZahlenZeichen" in der am "mptime" hängenden Zahlenreihe vorkommen
also muss man das zuerst diese Finden danach und eliminieren/ersetzen
also dies mptime[:digit:]+.[:digit:]+ findet
einen Texteine Zahl oder Zahlenreiheein beliebiges Zeicheneine Zahl oder Zahlenreihe

und ersetzt es durch
dies mptime00
einen TextZahlenreihe

damit ist das erste unbekannte Zeichen in der Zahlenreihe entfernt worden, durch wiederholen werden auch die anderen undefinierten Zeichen in der Zahlenreihe herausgenommen

bleibt zum Schluss nur noch
dies mptime00

das wird von
einem mptime[:digit:]+.[:digit:]+ aber nicht mehr gefunden
weil das mindestens 3 Zeichen nach demText#x# sucht

dann kommt die Meldung Suchtext nicht gefunden und es ist an der Zeit aufzuräumen mit
suchen mptime00
ersetzen nichts

[turtle47]

Hallo PeterPlanlos,

Habe ich profihafterweise bei den Systemdaten was vergessen oder war das sogar ernst gemeint?

Du hast nichts vergessen. Das war wirklich ernst gemeint.

Schöne Grüsse.

Jürgen