Scorpio974
Messages postés19Date d'inscriptionmardi 24 avril 2007StatutMembreDernière intervention17 septembre 2007
-
20 juin 2007 à 09:17
Scorpio974
Messages postés19Date d'inscriptionmardi 24 avril 2007StatutMembreDernière intervention17 septembre 2007
-
20 juin 2007 à 13:43
Bonjour !
J'ai un texte avec des données bien structurées (espacés par des tabulations) :
Champ1 Champ2 Champ3
J'aimerais savoir commment faire pour récuperer par exemple le Champ2 dans une RichTextBox (ou une TextBox), et l'envoyer dans une autre RichTextBox (ou une TextBox).
Pendant l'envoi, je souhaite ajouter des balises au Champ en question. Ex : Champ2.
jrivet
Messages postés7392Date d'inscriptionmercredi 23 avril 2003StatutMembreDernière intervention 6 avril 201260 20 juin 2007 à 09:54
Salut,
Bon si j'ai bien copris, essaie ce code.
Option Explicit
Private Sub Command1_Click()
'Une feuille avec deux texbox: Text1 et Text2
'Un Bouton Command1. Text1 = "Coco Caca Cucu"
Dim Champs() As String
Dim NewChamps As String
Dim Cpt As Integer
Champs = Split(Text1.Text, " ")
For Cpt = LBound(Champs) To UBound(Champs)
NewChamps = NewChamps & "[b]" & Champs(Cpt) & "[\b] "
Next Cpt
Text2.Text = NewChamps
End Sub<hr />, ----
[code.aspx?ID=41455 By Renfield]
cs_MPi
Messages postés3877Date d'inscriptionmardi 19 mars 2002StatutMembreDernière intervention17 août 201823 20 juin 2007 à 11:40
Il faut connaître la structure exacte de ton texte.
ex:
A B C
D E F
G H I
Ici, entre les lettres, il y a une tabulation, et à la fin de chaque ligne un saut de ligne
Tu peux donc séparer tout le texte en utilisant Split et vbcrlf
Tableau = Split(Texte, vbCrLf)
ce qui te donneTableau(0) A B C, Tableau(1) D E F, ...
Avec une boucle tu lis chaque item de ce tableau que tu "re"Split mais avec vbTab
For i = 0 to UBound(Tableau)
tablo2 = Split(tableau(i), vbTab)
ce qui te donnetablo2(0) A, tablo2(1) B, ...
Il te reste à copier ces valeurs où tu veux en y ajoutant les balises comme te suggères JRivet