[gelöst][Makro] unnö.Zeichen und chr(13) aus text löschen

[opiWahn]

Hallo,

bei einem importierten text aus einer DB in eine Textbox habe ich kein Problem mit trim die unnötigen Zeichen zu löschen.
Dummerweise enthält der text aber auch chr(13) die ebenfalls rausmüssen.
Wie kann ich das in einem Rutsch bewerkstelligen?

Code: Alles auswählen

oText12 = oForm.getByName("langtext")
...
oText12.text = trim(QueryErg.GetString(12))

Grüße
OpiWahn

[gogo]

mit "Replace" kannst Du direkt ersetzen:

Code: Alles auswählen

Sub Main

     LangText = "Erste Zeitle" & ChR(13) & "ZweiteZeile"
        msgbox LangText
     LangText = Replace(LangText, Chr(13), "")
        msgbox LangText

End Sub

g

[opiWahn]

Habs mal in 2. Anlauf so versucht:

Code: Alles auswählen

...
	oText12 = oForm.getByName("langtext")
	
   		DBName = "REPARATUR"
		Context = createUnoService("com.sun.star.sdb.DatabaseContext")
		DB = Context.GetByName (DBName)
		Connection = DB.GetConnection ("","")
		sSql = "SELECT `key`,`objekt_anrede`,`objekt_name`,`objekt_titel`,`objekt_strasse`,`objekt_ort`,`rechnung_anrede`,`rechnung_name`,`rechnung_titel`,`rechnung_strasse`,`rechnung_ort`,`langtext` FROM `REPARATUR` WHERE `key` = '"+oANr+"';"	
		
		Statement = Connection.CreateStatement
		QueryErg = Statement.ExecuteQuery(sSQL)
                ...
		oText12.text = trim(QueryErg.GetString(12))
		oText12.text = Replace(oText12.text, Chr(13), "")		
		Connection.Close()

Das funktionierte aber genauso wenig wie:

Code: Alles auswählen

oText12.text = trim(Replace(QueryErg.GetString(12), Chr(13), ""))

???

[DPunch]

Aloha

Das funktionierte aber genauso wenig wie

Die Aussage, dass etwas "nicht funktioniert" ist in den seltensten Fällen eine Aussage, die bei der Problemlösung weiterhilft.
Ein kurzer Hinweis ala "die Zeichen werden nicht ersetzt" oder "es kommt eine Fehlermeldung" etc spart übermässiges Nachdenken-Müssen bzw Nachfragen-Müssen.

Abgesehen davon könntest Du vom ersten Blick auf den Code mal

Code: Alles auswählen

Replace(QueryErg.GetString(12), Chr(10), "")

versuchen.

[opiWahn]

Dank an DPunch und "Replace"
so gehts ganz wunschgemäß

Code: Alles auswählen

...	
TempText12 = trim(QueryErg.GetString(12))
oText12.text = Replace(TempText12, Chr(10)+ Chr(13), "")
...

Grüße
opiWahn