[VB6] Funzione che consente solo caratteri leciti

[raffaeu]

Ciao ho bisogno una funzione che elimina i caratteri non preenti nel nio elenco ASCII

Ovvero data una stringa str ho bisogno una funzione che se i caratteri sono diversi dal range ASCII 65 - 90 o 97 - 120

esempio :

str = ciao@ ==> diventa str = ciao.

Qualcuno mi puo' aiutare, scusate ma oggi non riesco a fare nulla!!

[Sypher]

cicli tutti i caratteri e usando la funzione asc(carattere) controlli se è compreso nel range...se è compreso è buono e ti crei un'altra stringa che sarà quella buona in uscita dal ciclo aggiungendo quel carattere...se non è compreso non aggiungi il carattere alla stringa

so che non mi sono spiegato molto bene è che non ho VB sotto mano e non posso scrivertelo in codice

[raffaeu]

Mi hai illuinato

Function cleanString(ByVal bstr As String) As String
On Error GoTo Err_Bstr
Dim newString As String, x As Integer, b As String
    For x = 1 To Len(bstr)
        b = Mid(bstr, x, 1)
        If (Asc(b) >= 65 And Asc(b) <= 90 Or Asc(b) >= 97 And Asc(b) <= 122) Then
            newString = newString & b
        Else
        
        End If
    Next
    cleanString = newString
Exit_Bstr:
    Exit Function
Err_Bstr:
    MsgBox err.Number & "   " & err.Description
    Resume Next
End Function

[Sypher]

togli quell'else è inutile

[raffaeu]

si si io ho il difetto negl' If di prevedere sempre tutto e oltre ...

Mannaggia a me ...

[Sypher]

Originariamente inviato da raffaeu
si si io ho il difetto negl' If di prevedere sempre tutto e oltre ...

Mannaggia a me ...

cmq ti devo fare i complimenti per aver capito ciò che avevo scritto

[raffaeu]

Tranquillo io mi esprimo peggio ancora ...



Buon week!