Seite 1 von 1
[gelöst][Makro] unnö.Zeichen und chr(13) aus text löschen
Verfasst: Di, 29.03.2011 15:17
von 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
Re: [Markro] unnötige Zeichen und chr(13) aus text löschen
Verfasst: Di, 29.03.2011 15:34
von 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
Re: [Markro] unnötige Zeichen und chr(13) aus text löschen
Verfasst: Di, 29.03.2011 16:18
von 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), ""))
???
Re: [Markro] unnötige Zeichen und chr(13) aus text löschen
Verfasst: Di, 29.03.2011 16:25
von DPunch
Aloha
opiWahn hat geschrieben: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
versuchen.
Re: [Markro] unnötige Zeichen und chr(13) aus text löschen
Verfasst: Di, 29.03.2011 16:35
von 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