AW: String aus Leerzeichen prüfen

[Becker Michael]

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: realbasic-nug.de-boun...@lists.realsoftware.com 
[mailto:realbasic-nug.de-boun...@lists.realsoftware.com] 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.