NewBe Frage: Suchen und Ersetzten - geht das auch kürzer?

[LidiaS]

Hallo Allerseits,

ich bin ganz neu hier und habe mit OO0 Basic eben erst angefangen. Ich habe ein kleines, funktionierendes Makro zum Suchen und Ersetzen von Worten/Zeichen in Calc erstellt (Mit Hilfe von Herrn Dannenhöfer . Nun meine Frage: Geht das auch kürzer (besser)? Ich habe mit "if then" herumprobiert. Aber ohne wirklichen Erfolg. Warum "if then"? Ich dachte mir das so: Weil der String fürs Ersetzen immer "" ist. Also leer oder nichts. Und da sich das wiederholt dachte ich man könnte dieses Makro sicherlich straffen. Habe es aber (noch) nicht hinbekommen. Könnt Ihr mir bitte auf die Sprünge helfen?

Nachfolgend mein bescheidener Code.

Vielen Dank und Gruß
Lidia

Code: Alles auswählen

sub Suchen_und_Ersetzen

REM Definiere Variablen
Dim oDocument
Dim mySheet 'Tabellenblatt, in dem das Ersetzen stattfindet.
Dim myRange 'Zellbereich in dem ersetzt wird
Dim myReplace 'Ersetzen-Deskriptor.
Dim replace

REM Suchen und Ersetzen
mySheet = ThisComponent.Sheets(0)
myRange = mySheet.getCellRangeByName("A1:L100")
myReplace(1) = mySheet.createReplaceDescriptor()
myReplace(1).setSearchString(", Deutschland")
myReplace(1).setReplaceString("")
myReplace(1).SearchWords = False
replace  = mySheet.replaceAll(myReplace(1))

myReplace(2) = mySheet.createReplaceDescriptor()
myReplace(2).setSearchString("Mitgliedsname ")
myReplace(2).setReplaceString("")
myReplace(2).SearchWords = False
replace  = mySheet.replaceAll(myReplace(2))

myReplace(3) = mySheet.createReplaceDescriptor()
myReplace(3).setSearchString("EUR ")
myReplace(3).setReplaceString("")
myReplace(3).SearchWords = False
replace  = mySheet.replaceAll(myReplace(3))

myRange = mySheet.getCellRangeByName("H1:H100")
myReplace(4) = mySheet.createReplaceDescriptor()
myReplace(4).setSearchString("(")
myReplace(4).setReplaceString("")
myReplace(4).SearchWords = False
replace  = mySheet.replaceAll(myReplace(4))

myReplace(5) = mySheet.createReplaceDescriptor()
myReplace(5).setSearchString(")")
myReplace(5).setReplaceString("")
myReplace(5).SearchWords = False
replace  = mySheet.replaceAll(myReplace(5))

end sub

[Karolus]

Etwa so:

Code: Alles auswählen

sub Suchen_und_Ersetzen

Sheet = ThisComponent.Sheets(0)
Replace = Sheet.createReplaceDescriptor()
Replace.setSearchString(", Deutschland|Mitgliedsname |EUR |[()]")
Replace.setReplaceString("")
Replace.SearchWords = False
Replace.SearchCaseSensitive = True
Replace.SearchRegularExpression = True
Sheet.replaceAll( Replace)

end sub

[LidiaS]

Hallo Karolus,

ganz herzlichen Dank für Deine super schnelle Unterstützung. Code habe ich "verbaut" und ausprobiert. Sieht gut aus und funktioniert. Bin einen kleinen Wissens-Schritt weiter.

Viele Grüße
Lidia

[LidiaS]

Hallo Karolus,

jetzt habe ich noch ein kleines Problem:

Ich dachte ich könnte mit

Code: Alles auswählen

myRange = mySheet.getCellRangeByName("H1:H100")

den Bereich, in dem gesucht und ersetzt wird, einschränken, aber dies wird komplett ignoriert (ging bei meiner Version schon nicht, habe ich erst jetzt gemerkt). Der Makro ersetzt in dem gesamten Dokument die "()". Dabei sind sie in einigen Spalten erwünscht und in einer anderen nicht. Wie schränke ich dies richtig ein? So wie ich es gedacht habe ist es ja anscheinend falsch ...

Wäre für nochmalige Hilfe dankbar.

Vielen Dank und Gruß
Lidia

[Karolus]

Hallo
Alleine damit, das du den Bereich an den Namen `myRange` bindest, ist es ja nicht getan, du musst auch noch im restlichen Code `Sheet` gegen `myRange` tauschen.
das sind die beiden Zeilen

Code: Alles auswählen

Replace = Sheet.createReplaceDescriptor() →
Replace = myRange.createReplaceDescriptor() 

Code: Alles auswählen

Sheet.replaceAll( Replace)→
myRange.replaceAll( Replace) 

[LidiaS]

Hallo Karolus,

ah ... jetzt ... ja, verstehe. Wenn man es sieht ist es logisch. Aber auf die Idee wäre ich nicht gekommen.

Ganz herzlichen Dank für Deine Unterstützung.

Viele Grüße
Lidia

[Devil]

Hallo Karolus,
Ich habe deinen Code zum suchen und ersetzen mal ausprobiert und mir meldet OOo bei dem Teil

Code: Alles auswählen

Replace.SetSearchString("Hallo")

den folgenden Fehler : "Symbol Replace bereits anders definiert."

was mache ich falsch bzw. was muss ich anders machen???

[Karolus]

Hallo
Ich hatte das damals nicht explizit getestet `replace` ist eine Basic-function, benutze einen anderen Namen, zB. `Repl` oder meinetwegen auch `myReplace`

[Devil]

Entschuldigung wenn ich etwas nevig rüber kommen sollte aber ich habe noch nie mit Basic gearbeitet und brauche es vermutlich auch nur dieses eine mal aber jetzt mosert er an, dass er in der Zeile

Code: Alles auswählen

Sheet = thisComponent.sheets(0) 

die Eigenschaft oder Methode "sheets" nicht gefunden hat.

das hatte ich auch schon bei einigen anderen versuchen wo das vorkam...

[balu]

Hallo Devil,

ich kenne niemanden der dir auf grund deiner einzigen geposteten Codezeile helfen kann. Also zeig uns lieber deinen gesamten Code wo der Fehler auftaucht.
Handelt es sich denn auch um Calc?



Gruß
balu

[Devil]

Vermutlich liegt es daran dass es der Writer ist...
Also es ist der Code von Oben:

Code: Alles auswählen

sub Suchen_und_Ersetzen

Sheet = ThisComponent.Sheets(0)
Repl = Sheet.createReplaceDescriptor()
Repl.setSearchString("Hallo")
Repl.setReplaceString("Tschüss")
Repl.SearchWords = False
Repl.SearchCaseSensitive = True
Repl.SearchRegularExpression = True
Sheet.replaceAll( Repl)

end sub

Ich habe es jetzt mal ohne das sheets(0) gemacht und jetzt funktioniert es.
Hier wie es für den Writer funktioniert (bin bisher irgendwie noch nicht auf die Idee gekommen das es daran liegen könnte ):

Code: Alles auswählen

sub Suchen_und_Ersetzen

Sheet = ThisComponent
Repl = Sheet.createReplaceDescriptor()
Repl.setSearchString("Hallo")
Repl.setReplaceString("Tschüss")
Repl.SearchWords = False
Repl.SearchCaseSensitive = True
Repl.SearchRegularExpression = True
Sheet.replaceAll( Repl)

end sub

Vielen dank ihr habt mir viel viel weiter geholfen

[Karolus]

Du hast da offensichtlich keinen regulären Ausdruck, daher kannst(solltest) du mit:

Code: Alles auswählen

Repl.SearchRegularExpression = False

arbeiten.

Karolus

[Devil]

Dann habe ich noch eine frage Karolus. Weisst du woher es kommt, dass ich hiermit zu zwar Strings ersetzen kann, welche normalen Text wie "Hallo" und "Tschüss", aber das ersetzen von Strings mit Sonderzeichen funktioniert nicht immer (z.b. "{<User>}" wird manchmal nicht ersetzt).

Edit: hat sich erledigt da ich den gesamten block ausgetauscht habe.