Séparateur dans un fichier texte
thekissman
Messages postés
33
Date d'inscription
vendredi 25 avril 2003
Statut
Membre
Dernière intervention
28 juillet 2004
-
23 mai 2003 à 09:57
stevebelgium Messages postés 180 Date d'inscription lundi 17 mars 2003 Statut Membre Dernière intervention 7 juin 2003 - 23 mai 2003 à 10:51
stevebelgium Messages postés 180 Date d'inscription lundi 17 mars 2003 Statut Membre Dernière intervention 7 juin 2003 - 23 mai 2003 à 10:51
A voir également:
- Séparateur dans un fichier texte
- Vba écrire dans un fichier texte - Conseils pratiques -Visual Basic / VB.NET
- Fichier .ini - Conseils pratiques -Visual Basic / VB.NET
- Fichier json - Conseils pratiques -Javascript
- Séparateur de texte - Forum Visual Basic
- Souligner texte illustrator - Forum Graphisme/design
5 réponses
stevebelgium
Messages postés
180
Date d'inscription
lundi 17 mars 2003
Statut
Membre
Dernière intervention
7 juin 2003
1
23 mai 2003 à 10:04
23 mai 2003 à 10:04
avec la function split c'est facille
fichier = c:\a.txt
separateur = x <= tu peux choisir
Private Sub Command2_Click()
Dim Temp As String
Dim Arr
Temp = ""
Open "c:\a.txt" For Input As #1
Temp = Input(LOF(1), #1)
Close #1
Arr = Split(Temp, "X") 'X <= seperateur
For x = 0 To UBound(Arr)
MsgBox Arr(x)
Next x
End Sub
fichier = c:\a.txt
separateur = x <= tu peux choisir
Private Sub Command2_Click()
Dim Temp As String
Dim Arr
Temp = ""
Open "c:\a.txt" For Input As #1
Temp = Input(LOF(1), #1)
Close #1
Arr = Split(Temp, "X") 'X <= seperateur
For x = 0 To UBound(Arr)
MsgBox Arr(x)
Next x
End Sub
thekissman
Messages postés
33
Date d'inscription
vendredi 25 avril 2003
Statut
Membre
Dernière intervention
28 juillet 2004
23 mai 2003 à 10:26
23 mai 2003 à 10:26
Slt et merci.
Mais le "x" de la boucle à la fin du code correspond à quoi STP?
Dieu t'aime
Mais le "x" de la boucle à la fin du code correspond à quoi STP?
Dieu t'aime
thekissman
Messages postés
33
Date d'inscription
vendredi 25 avril 2003
Statut
Membre
Dernière intervention
28 juillet 2004
23 mai 2003 à 10:31
23 mai 2003 à 10:31
Excuse C bon G trouvé, merci !
Tu sais comment je peux extraires ces mots vers Access 2000.
Je comptais utiliser un texte box pour chaque "mot" mais puis-je utiliser des varialbes temp pour servir de passerelle entre le fichier texte et ma B2D?
Dieu t'aime
Tu sais comment je peux extraires ces mots vers Access 2000.
Je comptais utiliser un texte box pour chaque "mot" mais puis-je utiliser des varialbes temp pour servir de passerelle entre le fichier texte et ma B2D?
Dieu t'aime
stevebelgium
Messages postés
180
Date d'inscription
lundi 17 mars 2003
Statut
Membre
Dernière intervention
7 juin 2003
1
23 mai 2003 à 10:34
23 mai 2003 à 10:34
j'ai oublier , tu dois aussi dire
dim x as integer
avec la function split to as 1 array et avec le loop tu peux voir cq est dedans
example => seperateur = C
fichier = AAACBBCGG
donc
Arr(0) = "AAA"
Arr(1) = "BB"
Arr(2) = "GG"
le code
For x 0 To UBound(Arr) ' 0 to 2
MsgBox Arr(x) ' 0,1,2
Next x
dim x as integer
avec la function split to as 1 array et avec le loop tu peux voir cq est dedans
example => seperateur = C
fichier = AAACBBCGG
donc
Arr(0) = "AAA"
Arr(1) = "BB"
Arr(2) = "GG"
le code
For x 0 To UBound(Arr) ' 0 to 2
MsgBox Arr(x) ' 0,1,2
Next x
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
stevebelgium
Messages postés
180
Date d'inscription
lundi 17 mars 2003
Statut
Membre
Dernière intervention
7 juin 2003
1
23 mai 2003 à 10:51
23 mai 2003 à 10:51
Moi je travaille avec access97 . Et j'ai deja attendu qu'il y a quand meme une grande difference . Tu dois 1 fois chercher sur le net pour ca . Bonne prog !