Hallo Christian,
ich würde mir eine Funktion dafür schreiben:
Function hasOnlyDesiredChar(sText As String, searchChar As String) As Boolean
Dim i As Integer
Dim ret As Boolean = True ' Standardmäßig true zurück geben
' Nur das erste Zeichen vergleichen
If searchChar.Len > 1 Then searchChar = Mid( searchChar,1,1 )
For i = 1 To sText.Len
If Mid(sText,i,1) <> searchChar Then ' Sobald das erste Zeichen gefunden
wird das nicht dem gesuchten entspricht Schleife verlassen
ret = False
Exit For
End if
Next
Return ret
End Function
Und dann
If hasOnlyDesiredChar (T2," ") Then
Msgbox "hat nur Leerzeichen"
End if
Gruß
Michael
-----Ursprüngliche Nachricht-----
Von: [email protected]
[mailto:[email protected]] Im Auftrag von
Christian Hahn
Gesendet: Montag, 1. Juli 2013 14:04
An: REALbasic NUG German
Betreff: String aus Leerzeichen prüfen
Hallo, ich muss prüfen, ob ein String nur aus Leerzeichen besteht,
gleichgültig, wie viele Leerzeichen.
Ich versuche es mit einem "<"-Vergleich:
dim T1,T2 as String
T1 = " " '12 Leerzeichen
T2 = " a"
if T1 <= T2 then
msgbox "ist kleiner"
elseif T1 = T2 then
msgbox "ist gleich"
else
msgbox "ist nicht kleiner"
end if
aber irgendwie kommt mir das unsicher vor. Gibt's einen sichereren Vergleich?
Gruß, Christian Hahn.
