VB :$'Résolu

Question

Bonjour,

Je débute en vb, et je ne connais pas les fonctions principales...
Je voudrais savoir, comment je pourrais sélectionner la partie d'une phrase...
Un genre de $gettok en Mirc si ont veux

J'explike j'ai une phrase ki arrive sous la forme :

partie1&partie2&partie3

Je voudrais sélectionner la partie1, partie2, partie3 séparément

Voila
Merci d'avance

Sage2603

MaxSoldier · Accepted Answer

Et bien si tu as des séparateur genre : Partie1;Partie2; ... Il te suffit de faire : ' Initialisation au premier caractère iPos = 1 ' Boucle de Récupération des caractères While Mid$(Text1.Text, iPos, 1) <> ";" Partie1 = Partie1 & Mid$(Text1.Text, iPos, 1) iPos = iPos + 1 Wend ' Saut du Séparateur iPos = iPos + 1 ' Boucle de Récupération des caractères While Mid$(Text1.Text, iPos, 1) <> ";" Partie2 = Partie2 & Mid$(Text1.Text, iPos, 1) iPos = iPos + 1 Wend -=Ar$£nik=-

cs_ITALIA · Answer

Sinon :

Pos1 = InStr(1, Text1, "&") ' Determination du Premier &
Pos2 = InStr(Pos1 + 1, Text1, "&")  ' Determination du Second &

MsgBox Mid(Text1, 1, Pos1 - 1) & vbCrLf & Mid(Text1, Pos1 + 1, (Pos2 - Pos1) - 1) & vbCrLf & Mid(Text1, Pos2 + 1, Len(Text1) - Pos2)

It@li@

econs · Answer

ou bien encore :


Dim tablo() As String

tablo=Split(chaine,"&",,vbTextCompare)


tu auras alors :

tablo(1) = Partie1
tablo(2) = Partie2
...
tablo(n) = Partien

Note : Le nombre de parties 'n' s'obtient en faisant UBound(tablo)

Manu

regisd01 · Answer

Bien je vous remercie pour ces 3 exemples :p
Il me seront surment d'une grabde utilité ;)

@+ et Merci

Sage2603

regisd01 · Answer

Bien je vous remercie pour ces 3 exemples :p
Il me seront surment d'une grabde utilité ;)

@+ et Merci

Sage2603

regisd01 · Answer

oops ca s'est mis deux fois :o

cs_ITALIA · Answer

n'oublies pas de cocher reponses Acceptées

It@li@

cs_EBArtSoft · Answer

Comme le dit si bien econ (attention le tableau doit etre du type variant ) :

Dim Tbl As Variant
Tbl = Split("partie1&partie2&partie3","&")

debug.print Ubound(Tbl) 'Nombre d'item
debug.print Tbl(0) 'Item 1
debug.print Tbl(1) 'Item 2

@+

E.B.

cs_EBArtSoft · Answer

econs> désolé je rectifis c'est "econs" avec un "S"  ;) 

...Politesse oblige...

@+

E.B.

cs_rene38 · Answer

Bonjour
Quelques bizarreries :

econs >
Dim tablo() As String
tablo=  Split(chaine,"&",,vbTextCompare)

tu auras alors :
 N'oublie pas tablo(0) = Partie 0 
tablo(1)  = Partie 1
tablo(2) =  Partie 2
...
tablo(n) = Partie n
Note : Le nombre de parties 'n' s'obtient en faisant UBound(tablo)
 Le nombre de parties est n + 1 

 EBArtSoft > 

Dim Tbl sans parenthèses As Variant
Tbl   = Split("partie1&partie2&partie3","&")

debug.print Ubound(Tbl) 'Nombre d'item
debug.print Tbl(0) 'Item 1
debug.print Tbl(1) 'Item 2

cs_EBArtSoft · Answer

rene38>

Je ne vois aucune bizzarerie dans ce que j'ai ecris ?

( 1 )  le type variant peut contenir un tableau donc pas de () 
sinon c'est un tableau de vari...

Non !!  en fait j'ai pas besoin de justifier. Met le code dans une forme et lance l'application tu vera par toi même.
 ;) 

@+ 

E.B.

cs_rene38 · Answer

EBArtSoft> En effet, pas de bizarrerie - mea culpa !
MAIS : 
"debug.print Ubound(Tbl) 'Nombre d'item"
NON : le nombre d'item est Ubound(Tbl) + 1

cs_EBArtSoft · Answer

lol oui c'est vrais...

n'a trouvé quand même  ;) 

@+

E.B.

VB :$'

13 réponses

Discussions similaires