[VB6] Controllo validità stringhe

[cl.venturini]

Ciao,
qualcuno sa qual è la maniera più veloce per capire se una stringa è formata solo da caratteri alfanumerici, alfabetici, numerici o da caratteri alfabetici con qualcuno in più (come apostrofi o cose simili)? La maniera migliore per me sarebbe una matrice con tutti i caratteri che la stringa può comprendere (magari come codice ASCII) e poi controllare che la stringa non abbia caratteri non compresi nella matrice.
Come faccio a fare ciò, o cmq in una maniera simile?

grazie a tutti
ciao

[Sonic88]

In che Linguaggio?

[xegallo]

sei pregato di leggere il regolamento specialmente per quel che riguarda i titoli

[cl.venturini]

Scusa xegallo, ora ho cambiato il titolo. Solo che come faccio a cambiarlo anche nel primo post? Ho fatto modifica ma mi dice che posso modificarlo solo per 60 minuti dopo l'inserimento del post...
Ora il titolo va bene? Ho capito dov'è il problema o devo fare qualcos altro?
Scusami ancora


Cmq come ho scritto nel titolo di questo post il linguaggio è VB6

grazie ciao

[Sonic88]

Vediamo se ho capito bene

Function StringType(stringa As String) As Integer
Dim numerico As Boolean
Dim alfabetico As Boolean
Dim altri As Boolean
For i = 1 To LCase(Len(stringa))
    Select Case Asc(Mid(stringa, i, 1))
        Case 97 To 122
            alfabetico = True
        Case 48 To 57
            numerico = True
        Case Else
            altri = True
    End Select
Next i
If altri = True Then
    StringType = 4
    Exit Function
End If
If numerico = True And alfabetico = False Then
    StringType = 2
ElseIf numerico = False And alfabetico = True Then
    StringType = 1
Else
    StringType = 3
End If
End Function

Questa funzione DOVREBBE (non l'ho testata, l'ho scritta direttamente qui) restituirti:

• 1 = Stringa Alfabetica (A...Z / a...z)
  
• 2 = Stringa Numerica (0..9)
  
• 3 = Stringa Alfanumerica (A...Z / a...z / 0...9)
  
• 4 = Stringa contenente altri tipi di carettere
  

[cl.venturini]

grazie mille, funziona perfettamente!! :gren:

[Sonic88]

Prego!

[riky78]

io ti consiglio di usare le espressioni regolari, fai molto prima...

Dim reg As New RegExp
   reg.Global = True
   reg.Pattern = "^[\w|']+$"
   MsgBox reg.Test(txtTesto)