OpenOffice.info

Hallo PeterPlanlos,

[quote="PeterPlanlos"]Habe ich profihafterweise bei den Systemdaten was vergessen oder war das sogar ernst gemeint? :D[/quote]

Du hast nichts vergessen. Das war wirklich ernst gemeint.

Schöne Grüsse.

Jürgen

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 [b][color=#0000FF]mptime[:digit:]+.[:digit:]+[/color][/b]
ersetzen [b][color=#0000FF]mptime00[/color] [/b]

der Rest wie gehabt
[b]das verstehe ich nun absolut nicht ![/b]
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 [b]Fehler-Troll[/b] nun sein Unwesen treibt [b][color=#FF0080]in, an oder vor dem PC[/color][/b] :lol:


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 [b][color=#00aF00]mptime[/color][color=#0000FF][:digit:]+[/color][color=#FF0000].[/color][color=#0000FF][:digit:]+[/color][/b] findet
einen [b][color=#00aF00]Text[/color][color=#0000FF]eine Zahl oder Zahlenreihe[/color][color=#FF0000]ein beliebiges Zeichen[/color][color=#0000FF]eine Zahl oder Zahlenreihe[/color][/b]

und ersetzt es durch
dies [b][color=#00aF00]mptime[/color][color=#0000FF]00[/color][/b]
einen [b][color=#00aF00]Text[/color][color=#0000FF]Zahlenreihe[/color][/b]

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 [b][color=#00aF00]mptime[/color][color=#0000FF]00[/color][/b]

das wird von
einem [b][color=#00aF00]mptime[/color][color=#0000FF][:digit:]+[/color][color=#FF0000].[/color][color=#0000FF][:digit:]+[/color][/b] aber nicht mehr gefunden
weil das mindestens 3 Zeichen nach dem[b][color=#00aF00]Text[/color][color=#0000FF]#[/color][color=#FF0000]x[/color][color=#0000FF]#[/color][/b] sucht

dann kommt die Meldung Suchtext nicht gefunden und es ist an der Zeit aufzuräumen mit
suchen [b][color=#0000FF]mptime00[/color][/b]
ersetzen [b][color=#0080FF]nichts[/color][/b]

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

Hallo Peter,
[quote="Gast"]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[/quote]
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]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[/code]

Für Deinen ersten Post hier im Forum ist folgendes vorbildlich:
[quote]Hier noch die System-Daten:
Windows XP Professional
OpenOffice.org 3.1.1 OOO310m19 (Build:9420)[/quote]
Das lieben wir. :lol:

Jürgen

Hallo Peter,

mit zwei Vorgängen kannst du es lösen

zuerst

suchen [b][color=#0000FF]mptime[:digit:]*.[:digit:]*[/color][/b]
ersetzen [b][color=#0000FF]mptime00[/color][/b]
Optionen
[x] Regulärer Ausdruck

solange wiederholen bis der Suchbegriff nicht mehr gefunden wird

und dann einmal

suchen [b][color=#0000FF]mptime[:digit:]*[/color][/b]
ersetzen [color=#008000]nichts[/color]
Optionen
[x] Regulärer Ausdruck


damit sollte dein Wunsch erfült sein

Edit myself: Blödsinn gelöscht.

Hallo Peter,

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