[VB6]: Confonto stringa IsNumeric e non

[giano118]

ciao ragazzi,

vorrei che la mia applicazione prendesse in esame una stringa e leggesse carattere per carattere e mi segnalasse se vi sono presenti caratteri che non siano numerici e neanche appartenenti all'alfabeto...
per intenderci se la mia stringa fosse "ad93589edfsddgd9e3tgkldmhdhd" è ok
se fosse "fwofiwfwoiceps$pog'0648654pogrmgesbòe-" non è ok

ora per il numerico avevo pensato al IsNumeric e mi chiedo se esiste qualcosa che consideri soltanto lettere dell'alfabeto.
grazie Giano

[quaestio]

cioè ecludendo i caratteri non alfabetici (-;/@ eccetera)?

[tas]

Potresti usare le Regular Expression, disponibili con la libreria "Microsoft VBScript Regular Expressions":

    Dim s As String
    Dim rx As New RegExp
    
    s = "fwofiwfwoiceòpspog0648654pogrmgesbe"
    
    rx.IgnoreCase = True
    rx.Global = True
    rx.Pattern = "^[a-z0-9àèéìòù]*$"
    
    If rx.Test(s) = False Then
        MsgBox "Stringa non accettata"
    End If

In questo esempio Pattern è impostato per trovare una sequenza di zero o più caratteri che possono essere alfabetici, numerici e i caratteri accentati della tastiera italiana.

[Jupy64]

Ciao oltre al metodo delle Regular Expression, se vuoi testare carattere per carattere ci sono vari modi, io te ne propongo due:

Private Function CharIsOk(car As String) As Boolean
   CharIsOk = False
   Select Case Asc(UCase(car))
      Case 48 To 57 'numeri
         CharIsOk = True
      Case 65 To 90 'caratteri alfabeto maiuscoli
         CharIsOk = True
   End Select
End Function

Private Function CharIsOk1(car As String) As Boolean
   Dim carOk As String
   carOk = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"
   CharIsOk1 = InStr(carOk, UCase(car))
End Function

Basta richiamare la funzione passandogli un carattere e restituisce vero se il carattere rientra fra quelli validi..

[ganesha]

per testare se una stringa contiene almeno un carattere numerico ho fatto così

Private Function hasDigits(Str As String) As Boolean
    Dim regEx As New RegExp
    
    regEx.IgnoreCase = True
    regEx.Global = True
    regEx.Pattern = "^[^0-9]*$"
    
    If regEx.Test(Str) = False Then
        TestString = True
    Else
        TestString = False
    End If
End Function

secondo voi bene? o è meglio fare diversamente..

grazie