IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VB 6 et antérieur Discussion :

Lire le contenu d'un TextBox lettre par lettre


Sujet :

VB 6 et antérieur

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre régulier Avatar de imparator_42
    Homme Profil pro
    Étudiant
    Inscrit en
    Novembre 2007
    Messages
    242
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Novembre 2007
    Messages : 242
    Points : 122
    Points
    122
    Par défaut Lire le contenu d'un TextBox lettre par lettre
    Bonjour, je voudrais savoir comment on fait pour lire le contenu d'un TextBox lettre par lettre et séparer genre
    1er caractère : 1
    2e caractère : C
    ..

    Merci de me donner quelque piste...

    J'arrive à savoir le nombre de caractère avec : Len(Text1.Text)

  2. #2
    Inactif  

    Profil pro
    Inscrit en
    Juillet 2007
    Messages
    4 555
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juillet 2007
    Messages : 4 555
    Points : 5 535
    Points
    5 535
    Par défaut
    Bonjour,

    Rien ne devrait t'empêcher de faire une boucle pour lire chaque caractère à l'aide de la fonction Mid.
    Je n'aime toutefois pas ce procédé.

    Rien ne devrait non plus t'empêcher d'utiliser StrConv avec VbUnicode, mais il te serait alors nécessaire d'utiliser la fonction Split (et je ne l'aime pas non plus)...

    StrConv et VBFromUnicode recoivent ma préférence, dans le cas qui t'intéresse, ainsi, donc, avec un tableau d'octets :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    Dim titi() As Byte
       titi = StrConv(Text1.Text, vbFromUnicode)
     
       For i = 0 To UBound(titi)
         MsgBox Chr(titi(i))
       Next

  3. #3
    Membre expert Avatar de OhMonBato
    Homme Profil pro
    Inscrit en
    Mars 2007
    Messages
    2 660
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Morbihan (Bretagne)

    Informations professionnelles :
    Secteur : Industrie

    Informations forums :
    Inscription : Mars 2007
    Messages : 2 660
    Points : 3 685
    Points
    3 685
    Par défaut
    Bonjour,
    Regardes dans l'aide de VB les instructions Left,Right,Mid.
    Pour VB6 : N'oubliez pas d'aller voir la FAQ et les Tutoriels
    Vous trouvez une reponse particulierement utile ? Votez pour !

  4. #4
    Membre régulier Avatar de imparator_42
    Homme Profil pro
    Étudiant
    Inscrit en
    Novembre 2007
    Messages
    242
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Novembre 2007
    Messages : 242
    Points : 122
    Points
    122
    Par défaut
    le truc MID j'arrive à l'utiliser mais je ne l'aime pas trop ( comme dit ucfoutu )

    Mid(Text1.Text, 1, 1) .....

    la méthode de ucfoutu me convient
    merci de votre aide.

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Réponses: 3
    Dernier message: 30/05/2012, 17h55
  2. Lire le contenu d'un fichier mot par mot
    Par mlaiti dans le forum Débuter
    Réponses: 6
    Dernier message: 19/03/2008, 11h15
  3. Lire le contenu d'un champ mot par mot
    Par mlaiti dans le forum SQL
    Réponses: 4
    Dernier message: 17/03/2008, 11h49
  4. Réponses: 5
    Dernier message: 21/08/2007, 18h02
  5. Réponses: 6
    Dernier message: 23/01/2007, 17h20

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo