[VBA] RESOLU Extraction d'une chaine de caractères

RESOLU Extraction d'une chaine de caractères [VBA] - VB/VBA/VBS - Programmation

Marsh Posté le 15-07-2006 à 14:55:39    

Bonjour,  
dans une macro VBA, je voudrais remplir une liste (listbox ou combobox) avec des lignes venant d'un fichier TXT
Ensuite je voudrais recuperer uniquement une partie de cette ligne
 
je regardé les fonctions RTIM, LTRIM, mais ca ne vas pas me suffire
il me faudrai une fonction qui puisse me permettre de ne garder que la chaine située entre 2 caractères
mon idée serait de dire qu'il faut garder les caractères situés entre le premier/ et le deuxième/
 
 
Ex:  
voici ce qu'il y aurait dans le fichier TXT et dans la liste sous VBA
ASNA2026v3 / 4.8 / 1.4256
ASNA2026v3A / 5.52 / 1.65
ASNA2026v4 / 6.335 / 1.9
 
 
lors d'une validation sur    "ASNA2026v3A / 5.52 / 1.65"   , je voudrait garder "5.52", ou mieux, recuperer 3 variables "ASNA2026v3A"     "5.52"    "1.65"
 
Avez vous une idée ?


Message édité par daniel-12 le 15-07-2006 à 22:06:08
Reply

Marsh Posté le 15-07-2006 à 14:55:39   

Reply

Marsh Posté le 15-07-2006 à 17:05:52    

bonjour,
tu peux faire des boucles la dessus :

Code :
  1. Sub InitArray()
  2. Dim Tablo() As String
  3. Monstring = "ASNA2026v3 / 4.8 / 1.4256"
  4. Tablo = Split(Monstring, "/" )
  5. For i = LBound(Tablo) To UBound(Tablo)
  6. Tablo(i) = Trim(Tablo(i))
  7. MsgBox Tablo(i)
  8. Next
  9. End Sub


A+

Reply

Marsh Posté le 15-07-2006 à 17:49:25    

Merci ça à l'ai de fonctionner
je vais adapter cette formule à mon programme et vais aussi me pencher sur les fonctions split, Lbound, Ubound que je ne connaissais pas.
 
Visiblement cette méthode me permet de recuperer les 3 valeurs d'un coup
c'est l'idéal en fin de compte
 
 
A+ et merci encore

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed