OpenOffice.info

function LFLoeschen (oWort as string)
   do while InStr(oWort,chr$(10))>0
      mid(owort,InStr(oWort,chr$(10)),1,"")
   loop
end function

Ok, ich habe es:
[code]function LFLoeschen (oWort as string)
do while InStr(oWort,chr$(10))>0
mid(owort,InStr(oWort,chr$(10)),1,"")
loop
end function[/code]

Private Sub Auswertung(oEvt)
	If oEvt.keycode=1280 Then    
		eing = oDialog.getControl( "fld_Antwort" ).Text
    	if (eing)<>"" then 
			right_wrong
    	end if	
	Endif
End Sub

	if (trim(eing)) = trim(oSheet.getCellByPosition(spalte,zeile).string) then richtig=1

function LeerzeichenLoeschen (oWort as string)
   do while InStr(oWort," ")>0
      mid(owort,InStr(oWort," "),1,"")
   loop
   	end function

print LeerzeichenLoeschen("hier sind Leerzeichen" 

ich brauche mal wieder Eure Hlfe:
(Mein Rechentrainer geht jetzt ganz gut, jetzt sitze ich am Physiktrainer.)
Ich habe ein Texteingabefeld und möchte den Inhalt dort mit einer vorgegebenen Lösung vergleichen. Im Texteingabefeld ist das Ereignis "Taste gedrückt" mit dem Code:
[code]Private Sub Auswertung(oEvt)
If oEvt.keycode=1280 Then
eing = oDialog.getControl( "fld_Antwort" ).Text
if (eing)<>"" then
right_wrong
end if
Endif
End Sub[/code]

verbunden und right_wrong hat den Code
[code]
if (trim(eing)) = trim(oSheet.getCellByPosition(spalte,zeile).string) then richtig=1
[/code]

... das funktioniert solange das Texteingabefeld nur einzeilig ist, wenn ich es auf mehrzeilig umstelle, klappt das nicht mehr.
Nach der Eingabe meiner Antwort in das Textfeld klicke ich auf Enter und erzeuge damit eine neue Zeile im Textfeld und die steht wahrscheinlich als LF oder CR in der Variablen (eing) - hat jemand eine Idee wie ich dies loswerde?

Nachtrag:
ich hätte noch dies:
[code]function LeerzeichenLoeschen (oWort as string)
do while InStr(oWort," ")>0
mid(owort,InStr(oWort," "),1,"")
loop
end function[/code]
... aber was setze ich anstelle von " " ein?

Ach ja, bei
[code]print LeerzeichenLoeschen("hier sind Leerzeichen" [/code]
bekomme ich keinen Rückgabewert?