Problème avec Split VBA ACCESS

Bonjour tout le monde,

Ce post vient à la suite du premier, en fait la chaîne que je récupère à partir du fichier est trsè dense. Et j'ai besoin de couper cette chaîne avec Split pour récupérer certains éléments précis.
Le problème c'est que quand je fais Split, eh bah ça fait rien du tout, je n'ai mm pas de message d'erreur du style, dépassement de capacité....

Une idée?
voici le code! merci!

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Sub test() Dim fp As Integer Dim fichier, fic, monTab(), machaine(), chemin As String fic = "" chemin = "C:\...\relation.txt" On Error Resume Next fp = FreeFile   Open chemin For Input As #fp While Not EOF(fp) Line Input #fp, fichier fic = fic & fichier Wend Close #fp   monTab = Split(fic, "<") 'Split(fic, "detailler(") MsgBox monTab(1) machaine = Split(Mid(monTab(1), 1), "'") MsgBox machaine(0) End Sub

---

quand je fais MsgBox de monTab(1), il n'ya rien qui s'affcihe la message box n'apparaît même pas!

Merci d'avance à tous!

Petite question : est-ce que tu as vérifié si dans fic tu as bien ton texte?

Merci pour ta réponse Toutyx.

Oui j'ai vérifier que j'avai bien le texte, javai fai un MsgBox fic (mais je l'ai enlevé pour le forum, ça n'avait pas d'intérêt) et la message box affichait au moins le début de la chaîne, car comme je t'ai dit elle est très longue.

et quand je fais msgbox monTab(1), la msgbox n'apparaît mm pas, et le code continu comme si de rien n'était, et rien ne se passe, pas de msg d'erreur.
bizarre...

tu s une idée? peut-être que la chaîne de caractère contenue dans split est trop dense?
Je tiens à préciser que la taille du fichier relation.txt est de 306ko.
Merci.:D

Dans ce cas j'essaierai de procéder comme ça :

1 boucler tant qu'il y a des lignes dans le fichier
2 récupérer une ligne du fichier
3 Split sur cette ligne
4 concaténer le résultat dans le tableau

Maintenant je ne sais pas si on peut récupérer ligne par ligne...

En espérant que ça peut t'aider.
Antony

Salut,
essaye d'adapter le code issu de la :faq: pour lire le contenu du fichier :
http://access.developpez.com/sources...s#FichierTexte

Re!
Désolée de ne répondre que maintenant je suis en stage et j'ai un autre problème à résoudre en même temps!

en tout cas merci toutyx pour l'info.:D

Bon malheureusement ça ne fonctionne toujours pas, Split ne renvoie rien je te montre le code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Sub test() Dim fp As Integer Dim fichier, fic, monTab(), machaine(), chemin As String fic = "" chemin = "C:\...\relation.txt" On Error Resume Next fp = FreeFile   Open chemin For Input As #fp While Not EOF(fp) Line Input #fp, fichier 'fichier contient donc la dernière ligne du fichier fp Wend Close #fp   monTab = Split(fichier, "a") MsgBox monTab(1) machaine = Split(Mid(monTab(2), 1), "'") MsgBox machaine(0) End Sub

---

La msgbox au niveau du split ne me renvoi rien, alors que dans fichier, il y a 3 fois la lettre a...
je ne sais pas trop quoi faire...

une idée?
merci beaucoup!

C'était tout con!!
en fait ma ligne ou je déclare mes chaine de caractères n'était pas bonne!

je mettai toute mes variable en ligne au lieu de faire ça!

Code:

---

1 2 3 4 5 6

Dim fp As Integer Dim fichier As String Dim fic As String Dim monTab() As String Dim machaine() As String Dim chemin As String

---

et donc toute les variable sauf la dernière était de type variant. donc là maintenant c'est explicite, et split fonctionne bien!

merci à tous pour vos réponses!:zoubi:

Ah tant mieux !!
Ah là là comme quoi des fois on cherche des complications là ou il y en n'a pas ...

Tssss vba quand tu nous tiens...
On te lâcherait bien ;)