OpenOffice.info

Verfasst: **Di, 25.08.2020 19:46**

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: Alles auswählen

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

verbunden und right_wrong hat den Code

Code: Alles auswählen

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

... 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: Alles auswählen

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

... aber was setze ich anstelle von " " ein?

Ach ja, bei

Code: Alles auswählen

print LeerzeichenLoeschen("hier sind Leerzeichen"

bekomme ich keinen Rückgabewert?

Verfasst: **Di, 25.08.2020 21:48**

Ok, ich habe es:

Code: Alles auswählen

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

OpenOffice.info

[gelöst] LF oder CR entfernen

[gelöst] LF oder CR entfernen

Re: LF oder CR entfernen