Reconnaissance caractèreRésolu

Question

Bonjour,
Je r&#233;alise une interface utilisateur sur VBA Access, je souhaite reconna&#238;tre dans une textebox apr&#232;s avoir lu le texte, un caract&#232;re de type ';' qui peut appara&#238;tre plusieurs fois entre diff&#233;rents chiffres, et le transformer dans le code par 'AND' (ou encore '14*' = '1400 AND 1401 AND 1402...'). Je veux surtout savoir comment lire une cha&#238;ne de caract&#232;re et rechercher des caract&#232;res pr&#233;d&#233;finis. 
Merci

Polack77 · Accepted Answer

pour l'autre question le plus simple a mon avie c'est de tester si * est pr&#233;sant "instr(1,vaiable,"*")" retourne la position du carac puis avec left(1,variable) tu recup la 1&#233;r lettre de ton string puis "val(left(1,varable))" tu recup la valeur.
Voila

 D'oh! Nuts!
 Mmmmm...
 DONUTS

Polack77 · Answer

Salut,
Cette fonction te retourne une chaine de carac en replacent un carac ou chaine de carac par un(e) autre.
Chaine = Replace(Chaine,FindString,ReplaceString)
donc ici ta variable &#224; la place de chaine, ";" a la place de findstring, "AND" a la place de replacestring
Tu devrais pouvoir t'en sortir avec &#231;a.
Bonne journ&#233;e

 D'oh! Nuts!
 Mmmmm...
 DONUTS

mortalino · Answer

Salut

Essaie la fonction Replace :
Replace(TextBox1.Text, ";", "AND")         'c'est pour remplacer un caractere

Sinon, voit dans l'aide de VB les fonctions Trim, Mid et Len   (traitement des caracteres)


@ ++

  Mortalino

Polack77 · Answer

salut mortalino &#231;a roule? H&#233; pour une fois j'ai r&#233;pondu avent toi 

 D'oh! Nuts!
 Mmmmm...
 DONUTS

mortalino · Answer

Salut Polack ,

Ca va bien et toi ?
A peine j'ai valider mon Post, j'ai vu le tient. J'ai pens&#233; la m&#234;me chose !! 

  Mortalino

cs_observatoire · Answer

Merci je vais voir &#231;a!

cs_observatoire · Answer

Apparement votre solution marche plut&#244;t bien, mais comment puis-je faire dans le cas o&#249;:
j'ai soit "20" dans la zone de texte et que je veux "VARIABLE=20" dans mon code
ou "20-25" dans la zone de texte et que je veux "VARIABLE>=20 AND VARIABLE <=25" dans mon code.
J'imagine qu'il faut que j'identifie les entiers 20 et 25...


Autre question, peut-&#234;tre du m&#234;me ordre: je veux que 2* soit reconnu dans mon code comme VARIABLE=(20 ou 21 ou 22 ou 23 ou 24 ou 25...)

Polack77 · Answer

Si j'ai bien compris tu veut la valeur contenu dans ton string.
La fonction pour ceup cette valeur c'est "val(variable)" ex: var("12") retourneras la valeur 12.
Tu peut recup le code ascii d'une lettre avec asc(variable) (cette fonction est utile pour comvertire B en 2 : asc("B") - asc("A") + 1
Voila avec &#231;a ca dois aller
salut.

 D'oh! Nuts!
 Mmmmm...
 DONUTS

cs_observatoire · Answer

C'est pas mal, mais le probl&#232;me c'est que je peux avoir plusieurs caract&#232;res &#224; la suite: "1;21-5;6;7*;8-95" donc c'est pas toujours possible d'utiliser dans mes conditions uniquement le premier caract&#232;re ou le dernier. Puis-je lire un nombre &#224; gauche de "-" ou de "*" par exemple?

cs_JMO · Answer

Bonjour,

Exemple en passant par un tableau... à adapter

MyString = "1;21-5;6;7*;8-95"
MyArray = Split(MyString, ";", -1, 1)

MsgBox MyArray(0) &vbCrLf& MyArray(1) &vbCrLf& MyArray(2) &vbCrLf& MyArray(3) &vbCrLf& MyArray(4) 

jean-marc

Polack77 · Answer

Avec la fonction split tu peut utiliser egalement ubound(split(truc)) qui te renvoie le nombre d'&#233;l&#233;ment de ton string (Attention le tableau commance &#224; 0 et pas &#224; 1)
LBound te permet de recup la 1&#233;r "case" (num du 1&#233;r &#233;l&#233;ment soit 0 avec split) de ton tableau

 D'oh! Nuts!
 Mmmmm...
 DONUTS

cs_JMO · Answer

Bonsoir,

Effectivement, merci Polack77, mon exemple était incomplet.

MyString = "1;21-5;6;7*;8-95;200;4+1"

MyArray = Split(MyString, ";", -1, 1)
For i = 0 to UBound(MyArray)
Resultat = Resultat &vbCrLf& MyArray(i) 
Next
MsgBox Resultat

jean-marc

Polack77 · Answer

Pense &#224; valider la(les) r&#233;ponce(s) qui t'on permis de r&#233;soudre ton probl&#233;me (pourcois pas m&#234;me le d&#233;rnier message que tu &#224; poster avec le code qui vas bien ).

 D'oh! Nuts!
 Mmmmm...
 DONUTS

cs_observatoire · Answer

Merci. &#231;a marche jusque l&#224; : je n'ai pas encore test&#233; toutes les possibilit&#233;s pour 6* ou *5. J'ai juste une petite modif &#224; faire: ce n'est pas "val(left(1,variable))" mais "val(left(variable,1))".

Polack77 · Answer

Oups d&#233;sol 

 D'oh! Nuts!
 Mmmmm...
 DONUTS

Reconnaissance caractère

15 réponses

Discussions similaires