(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
Code: Alles auswählen
if (trim(eing)) = trim(oSheet.getCellByPosition(spalte,zeile).string) then richtig=1
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
Ach ja, bei
Code: Alles auswählen
print LeerzeichenLoeschen("hier sind Leerzeichen"