[gelöst] Doppelte Leerzeichen

[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

[komma4]

mit Basic?

Nehme bspw. die SUB ReplaceStrings aus der Gimmicks-Bibliothek.

Hilft das weiter?

[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

[komma4]

Du findest sie in Deiner Standard-OOo Installation... Basic-Lib. "OpenOffice.org Makros"

[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) 1793 mal betrachtet

Danke

jkl

[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

[jkl]

Vielen Dank! Ich fürchte mein Problem hat doch was mit dem Verzeichnis zu tun!

temp1.png (19.02 KiB) 1798 mal betrachtet

Vielleicht muss ich mal OpenOffice komplett platt machen und alles neu installieren....

Trotzdem schon mal danke!!!

jkl

[turtle47]

Hi JKL,

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

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.

[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