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

Antwort erstellen

BBCode ist eingeschaltet
[img] ist ausgeschaltet
[url] ist eingeschaltet
Smileys sind ausgeschaltet
Die letzten Beiträge des Themas
   

Ansicht erweitern Die letzten Beiträge des Themas: [gelöst][Makro] unnö.Zeichen und chr(13) aus text löschen

Re: [Markro] unnötige Zeichen und chr(13) aus text löschen

von opiWahn » Di, 29.03.2011 16:35

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

Re: [Markro] unnötige Zeichen und chr(13) aus text löschen

von DPunch » Di, 29.03.2011 16:25

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

Code: Alles auswählen

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

Re: [Markro] unnötige Zeichen und chr(13) aus text löschen

von opiWahn » Di, 29.03.2011 16:18

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

von gogo » Di, 29.03.2011 15:34

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

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

von opiWahn » Di, 29.03.2011 15:17

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

Nach oben