[VB6]carattere ascii

[lexus89]

ciao a tutti, non riesco a capire come mai quando nella if si confrontano i due caratteri non risultano uguali.

dim k as string
Dim vett(1 To 50) As String
k = Chr(15)
 
    If vett(i) = k Then
        .....istruzioni                       
    Else
        par = vett(i)
    End If

Quando vett(i) è uguale a  e anke k è uguale a  non passa nel ramo del then!!!
aiuto!!!! VVoVe:

[oregon]

Inserisci nella linea della if un breakpoint e controlla quale valore assume effettivamente

vett(i)

oppure inserisci un

MsgBox Asc(vett(i))

prima della if ...

[lexus89]

Originariamente inviato da oregon
Inserisci nella linea della if un breakpoint e controlla quale valore assume effettivamente

vett(i)

oppure inserisci un

MsgBox Asc(vett(i))

prima della if ...

è ovvio che ho fatto i debug, risulta proprio che vett(i) e k che valgono entrambe  ma non passa nel ramo dell' then

[oregon]

Originariamente inviato da lexus89
è ovvio che ...

Non è ovvio se non lo dici ...

Ma è altrettanto ovvio che la If funziona in VB e quindi il problema sta nel contenuto di uno dei due dati (o vett(i) o k) ...

[lexus89]

Originariamente inviato da oregon
Non è ovvio se non lo dici ...

Ma è altrettanto ovvio che la If funziona in VB e quindi il problema sta nel contenuto di uno dei due dati (o vett(i) o k) ...

Già..ti posto tutto il codice che magari non è da escludere che abbia fatto qualche errore di distrazione.
Ho provato a mettere tutto in variabili nella speranza che cambiasse qualcosa.

nuovo = Text2.Text

Dim par As String
Dim k As String
Dim z As String
Dim w As String
Dim vett(1 To 50) As String

For i = 1 To Len(nuovo)
    k = Chr(15)
    w = Mid(nuovo, i, 1)
    If w = k Then
        vett(i) = k
    Else
        vett(i) = Mid(nuovo, i, 1)
    End If
Next

i = 1

k = Chr(15)

For i = 1 To Len(nuovo)
     z = vett(i)
    
    If z = k Then
        par = vett(i) + "                         "
    Else
        par = vett(i)
    End If
Next

[oregon]

Scusa ... ma cosa e' il chr(15)? E cosa vorresti fare con quel codice?

[icecube_HT]

Originariamente inviato da lexus89
ciao a tutti, non riesco a capire come mai quando nella if si confrontano i due caratteri non risultano uguali.

Quando vett(i) è uguale a  e anke k è uguale a  non passa nel ramo del then!!!
aiuto!!!! VVoVe:

Il "quadratino" viene mostrato al posto di PARECCHI caratteri "non stampabili" (1-31), quindi puoi vedere due "quadratini" uguali graficamente, ma corrispondenza di due codici ASCII DIVERSI !

[oregon]

Beh ... pensavo che in debug avesse controllato il valore del codice ASCII (il 15) e non solamente il "quadratino" ...

Ma perche' non studiare un libro di programmazione di base (capitolo sul "codice ASCII") ?