Italian confrontare + stringhe

[Xela]

Salve a tutti,
ho questo problema:

Dim str1 as string, str2 as string, str3 as string
str1 = "A11_Paolo"
str2 = "A09_Luigi"
str3 = "A05_Mario"

If str1 > str2 Then
.......

nell'If mi da questo errore:

frmord_verific (B4A line: 2767)
If str1 > str2 Then
java.lang.NumberFormatException: For input string: "A27_Angelo"
at sun.misc.FloatingDecimal.readJavaFormatString(FloatingDecimal.java:2043)
at sun.misc.FloatingDecimal.parseDouble(FloatingDecimal.java:110)
......

cosa sto sbagliando?

Grazie

 

[Star-Dust]

Il confronto < o > non funzionano sulle stringhe... usa i compare (non quello siciliano)

    If str1.CompareTo(str2)<0 Then

    else If str1.CompareTo(str2)=0 Then

    else If str1.CompareTo(str2)>0 Then

    End If

 

[Xela]

grazie
provo

 

[Star-Dust]

Se devi solo mettere in ordine invece fai cosi:

Dim Ls As List
   
Ls.Initialize
Ls.Add(str1)
Ls.Add(str2)
Ls.Add(str3)
   
Ls.Sort(True)

For Each Str as String in Ls
     log(str)
Next

 

[Xela]

altro Se str
[/CITAZIONE][/CITAZIONE]

Se devi solo mettere in ordine invece fai cosi:

Dim Ls As List
  
Ls.Inizializza
Ls.Add(str1)
Ls.Add(str2)
Ls.Add(str3)
  
Ls.Ordina (Vero)

Per ogni Str come stringa in Ls
     log(str)
Avanti[/CODICE]
[/CITAZIONE]


buona anche questa.
verifico se poi riesco a ricavare le stringhe nel nuovo ordine
grazie

 

[giannimaione]

usa i compare

considera anche EqualsIgnoreCase

If str1.EqualsIgnoreCase(str2) = True Then
        Log("uguale")
    Else
        Log("diverso")
End If

 

[Xela]

buona anche questa.
verifico se poi riesco a ricavare le stringhe nel nuovo ordine
grazie