Aidez moi je vous en supplie !

Question

Bonjour à tous,

Dans ma form, j'ai plusieures textbox (en fait j'en ai une en index, et le nombre de textbox varie en fonction d'un nombre de fichiers :
Si j'ai un fichier dans mon path, il y a une textbox, si j'ai deux fichiers, deux textbox etc... Tout cela a partir d'une seule textbox.)

Bon.
Expliquons maintenant le problème:

Je voudrais que le programme trouve les parties communes des noms des fichiers et les selectionnes dans toutes les textbox.

Exemple:

Projet1.vbp
Projet1.frm
Projet2.frm
Projet2.vbp 

Dans ces differentes textbox (ici au nombre de 4) je voudrais qu'il me selectionne la partie commune. (soit: "projet")

Comment faire SVP?

D'avance merci

cs_Groucho · Answer

Groucho
Soit N le nombre de textbox
faire une boucle qui test les caracteres de chaque textbox et qui s'arrete dés que l'un diffère.

Exemple
dim t as long
dim Rg as long
dim Encore as boolean
dim Commun as string
Rg=0
encore=true
commun=""
while encore
  rg=1+rg
  'on suppose que les textbox ne sont pas vides, sinon tester.
  commun=left$(textbox(1),rg)
  for t = 2 to N
    if left$(textbox(t),rg)<>Commun then
       t=N
       encore=false  
    end if
  next t
wend
'Le dernier caractère n'est pas identique, on le supprime.
if len(commun)>1 then
  Commun=left$(Commun,len(Commun)-1)
else
  Commun=""
end if

z980x · Answer

je ne comprends pas trop ce code...
Je dois le placer ou et que fait -til exactement?
Voila !

cs_Groucho · Answer

Groucho
Ce code est à mettre dans une procédure, laquelle sera appelée soit par un bouton soit quand le texte du dernier textbox est affecté.
Ce code passe en revue les RG premiers caractères de chaque textbox, tant qu'ils sont identiques il les concatène dans la varable COMMUN et RG augmente de 14, on cherche si le suivent est identique.
En sortie de procédure, la chaine commune aux textbox se trouve dans COMMUN.

Aidez moi je vous en supplie !

3 réponses

Discussions similaires