Seite 1 von 1
NewBe Frage: Suchen und Ersetzten - geht das auch kürzer?
Verfasst: Do, 28.08.2014 19:45
von 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
Re: NewBe Frage: Suchen und Ersetzten - geht das auch kürzer
Verfasst: Do, 28.08.2014 21:37
von 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
Re: NewBe Frage: Suchen und Ersetzten - geht das auch kürzer
Verfasst: Fr, 29.08.2014 08:34
von 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
Re: NewBe Frage: Suchen und Ersetzten - geht das auch kürzer
Verfasst: Fr, 29.08.2014 11:35
von LidiaS
Hallo Karolus,
jetzt habe ich noch ein kleines Problem:
Ich dachte ich könnte mit
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
Re: NewBe Frage: Suchen und Ersetzten - geht das auch kürzer
Verfasst: Fr, 29.08.2014 12:14
von 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)
Re: NewBe Frage: Suchen und Ersetzten - geht das auch kürzer
Verfasst: Fr, 29.08.2014 13:04
von 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
Re: NewBe Frage: Suchen und Ersetzten - geht das auch kürzer?
Verfasst: Mi, 08.07.2015 10:09
von Devil
Hallo Karolus,
Ich habe deinen Code zum suchen und ersetzen mal ausprobiert und mir meldet OOo bei dem Teil
den folgenden Fehler : "Symbol Replace bereits anders definiert."
was mache ich falsch bzw. was muss ich anders machen???
Re: NewBe Frage: Suchen und Ersetzten - geht das auch kürzer?
Verfasst: Mi, 08.07.2015 12:33
von Karolus
Hallo
Ich hatte das damals nicht explizit getestet `replace` ist eine Basic-function, benutze einen anderen Namen, zB. `Repl` oder meinetwegen auch `myReplace`
Re: NewBe Frage: Suchen und Ersetzten - geht das auch kürzer?
Verfasst: Mi, 08.07.2015 13:07
von 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
die Eigenschaft oder Methode "sheets" nicht gefunden hat.
das hatte ich auch schon bei einigen anderen versuchen wo das vorkam...
Re: NewBe Frage: Suchen und Ersetzten - geht das auch kürzer?
Verfasst: Mi, 08.07.2015 13:56
von 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
Re: NewBe Frage: Suchen und Ersetzten - geht das auch kürzer?
Verfasst: Mi, 08.07.2015 14:14
von 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
Re: NewBe Frage: Suchen und Ersetzten - geht das auch kürzer?
Verfasst: Mi, 08.07.2015 16:48
von Karolus
Du hast da offensichtlich
keinen regulären Ausdruck, daher kannst(solltest) du mit:
arbeiten.
Karolus
Re: NewBe Frage: Suchen und Ersetzten - geht das auch kürzer?
Verfasst: Do, 09.07.2015 08:14
von 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.