Seite 1 von 1
[gelöst] Doppelte Leerzeichen
Verfasst: Di, 10.06.2008 16:19
von jkl
Hallo,
ich habe eine Calc-Zelle, in der Text steht. Nun möchte ich die evtl. auftretenden Leerzeichen aus diesem Text löschen. Hat jemand eine Idee, wie ich das einfach machen kann?
Vielen Dank
J. Kleis
Re: Doppelte Leerzeichen
Verfasst: Di, 10.06.2008 17:03
von komma4
mit Basic?
Nehme bspw. die SUB ReplaceStrings aus der Gimmicks-Bibliothek.
Hilft das weiter?
Re: Doppelte Leerzeichen
Verfasst: Di, 10.06.2008 17:49
von jkl
Sorry, aber vielleicht kannst du mir noch sagen, wo ich die Bibliothek finde. Ich habe gerade überhaupt keine Zeit zu suchen, und habe sie auf die Schnelle nicht gefunden... Also nochmal sorry für meine "Faulheit"... und Danke!!
jkl
Re: Doppelte Leerzeichen
Verfasst: Di, 10.06.2008 18:20
von komma4
Du findest sie in Deiner Standard-OOo Installation... Basic-Lib. "OpenOffice.org Makros"
Re: Doppelte Leerzeichen
Verfasst: Di, 10.06.2008 19:01
von jkl
Also ich bin mir nicht ganz sicher: Ich hatte vor kurzem Probleme mit dem Update von Ubuntu... mein OO hat zwar gestartet, aber sobald ich Text eingegeben habe, ist es abgestürzt. Nach viel Suchen und ein paar Versuchen mit Deinstallation... habe ich schließlich in meinem Home-Verzeichnis den Ordner .openoffice2.0 gelöscht, danach lief alles wieder. Kann es sein dass ich damit auch die Bibliotheken gelöscht habe? Ich finde sie nämlich noch immer nicht. Ansonsten benötige ich heute wohl eine DAU-Anleitung.
Ich würde die Bibliotheken hier erwarten:
- Bild
- temp.png (22.37 KiB) 1803 mal betrachtet
Danke
jkl
Re: Doppelte Leerzeichen
Verfasst: Di, 10.06.2008 19:33
von turtle47
Hi JKL,
klick in Deinem angezeigten Dialog mal auf den Pfeil des Listenfeldes.
Dann siehst Du da bestimmt OpenOffice.org Makros&Dialoge.
Dort findest Du das gesuchte.
Wenn Du möchtest kannst Du aber auch dierekt folgenden Code einsetzen:
Code: Alles auswählen
Sub Space_loeschen
Dim oDoc as object
Dim osheet as object
odoc = ThisComponent
osheet = odoc.sheets(0) 'erstes Tabellenblatt
oRange = osheet.getcellRangeByName("$A1")' Zelle A1
oSuchen = oRange.createReplaceDescriptor
oSuchen.setSearchString(" ")'Leerzeichen suchen
oSuchen.setReplaceString("") 'ersetzen durch nichts
oRange.replaceAll(oSuchen)
End Sub
Viel Erfolg.
Jürgen
Re: Doppelte Leerzeichen
Verfasst: Di, 10.06.2008 21:13
von jkl
Vielen Dank! Ich fürchte mein Problem hat doch was mit dem Verzeichnis zu tun!
- temp1.png (19.02 KiB) 1808 mal betrachtet
Vielleicht muss ich mal OpenOffice komplett platt machen und alles neu installieren....
Trotzdem schon mal danke!!!
jkl
Re: Doppelte Leerzeichen
Verfasst: Di, 10.06.2008 22:29
von turtle47
Hi JKL,
jkl hat geschrieben:Ich fürchte mein Problem hat doch was mit dem Verzeichnis zu tun!
Jou, das sieht nicht gut aus.
Mir ist erst jetzt aufgefallen, dass Du in der Überschrift geschrieben hast:
[[uote="jkl"]Doppelte Leerzeichen[/quote]
und dann
jkl hat geschrieben:Nun möchte ich die evtl. auftretenden Leerzeichen aus diesem Text löschen
Was denn nun, doppelte bzw. mehrfache oder doch alle?
Für doppelte bzw. mehrfache kannst Du auch folgenden Code nehmen:
Code: Alles auswählen
Sub Space_loeschen_1
FuncAcc = createunoservice("com.sun.star.sheet.FunctionAccess")
oSheet = ThisComponent.Sheets(0)
oCell = osheet.getcellRangeByName("A1")
aResult=FuncAcc.callFunction("Trim", array(oCell.String ))
oCell.string = aResult
End Sub
Jürgen
Sorry für die Formatierung, aber das Board spinnt mal wieder.
Re: Doppelte Leerzeichen
Verfasst: Mi, 11.06.2008 15:12
von jkl
Hallo,
Danke für die Antworten... Das ist natürlich nicht so gut mit den fehlenden Bibliotheken. Also werde ich mich jetzt mal an die Neuinstallation machen...
Ich möchte wie im Betreff Doppelte Leerzeichen löschen, sorry für meine schlampige Ausdrucksweise.... Danke für die Lösungsvorschläge.
jkl