none
Énigme à propos de deux string! RRS feed

  • Question

  • Bonjour,

    Je tente de comparer 2 strings, qui selon mes MsgBox sont identiques, voici le code:

     'MsgBox(CaseLettre1)
        'MsgBox(Mots.Chars(1))
    
        Temp = Mots.Substring(1, 1)
        If CaseLettre1 = Mots.Chars(1) Then
          match += 1
          MsgBox(match)
    
     CaseLettre1 = TextBox1.Text
    

    Mots provient de la lecture d'un fichier encodé UTF-8, j'ai essayé d'utiliser Temp avec substring à la place de mots et chars même résultat.

    Je ne parviens jamais a atteindre

    match += 1
          MsgBox(match)
    

    Vous avez une idée?

    Merci à l'avance!


    Normand M. Je suis un amateur (61 ans, handicapé)Je possède Visual Studio depuis le début Janvier, alors comprenez mon ignorance...
    lundi 28 février 2011 16:11

Réponses

  • Bonjour

    Que donne :

        MsgBox(AscW(CaseLettre1))
        MsgBox(AscW(Mots.Chars(1)))
    

     Cela permettrait de voir si ces deux lettres n'ont pas seulement la même apparence mais sont bien codées de la même manière.

    Egalement c'est bien la deuxième lettre qui nous intéresse (Chars et SubString utilisé comme méthode partent de l'index 0 pour le premier caractère) ?

     


    Please always mark whatever response solved your issue so that the thread is properly marked as "Answered".
    • Proposé comme réponse fred75 lundi 28 février 2011 18:38
    • Marqué comme réponse Alex Petrescu mardi 1 mars 2011 14:08
    lundi 28 février 2011 16:31
    Modérateur

Toutes les réponses

  • J'ai aussi tenté d'utiliser Like à la place =

    Normand M. Je suis un amateur (61 ans, handicapé)Je possède Visual Studio depuis le début Janvier, alors comprenez mon ignorance...
    lundi 28 février 2011 16:28
  • Bonjour

    Que donne :

        MsgBox(AscW(CaseLettre1))
        MsgBox(AscW(Mots.Chars(1)))
    

     Cela permettrait de voir si ces deux lettres n'ont pas seulement la même apparence mais sont bien codées de la même manière.

    Egalement c'est bien la deuxième lettre qui nous intéresse (Chars et SubString utilisé comme méthode partent de l'index 0 pour le premier caractère) ?

     


    Please always mark whatever response solved your issue so that the thread is properly marked as "Answered".
    • Proposé comme réponse fred75 lundi 28 février 2011 18:38
    • Marqué comme réponse Alex Petrescu mardi 1 mars 2011 14:08
    lundi 28 février 2011 16:31
    Modérateur
  • Merci Patrice,

    En effet elles n'ont pas le même numéro ASCII


    Normand M. Je suis un amateur (61 ans, handicapé)Je possède Visual Studio depuis le début Janvier, alors comprenez mon ignorance...
    lundi 28 février 2011 17:00
  • Bonsoir Monocle,

    Moi je fais en plus rustique :

    dim i, j, k, m as integer
    m = len(monTexte1)
    if len(monTexte2) > m then m = len(monTexte2)
    for i 1 to m
     on error resume next
     j = asc(mid(monTexte1, i, 1))
     k = asc(mid(monTexte2, i, 1))
     if j <> k then 
      msgbox("Différence octet " & i & vblf & "asc = " & j & vblf & "asc = " & k
      exit for
     end if
     next i
    
    

    Cordialement.



    Joseph Attila PUSZTAY
    EhJoe       Logiciels       Romans       Ecrire
    mercredi 2 mars 2011 21:20