Problème avec Split VBA ACCESS

Problème avec Split VBA ACCESS - VB/VBA/VBS - Programmation

Marsh Posté le 04-06-2009 à 11:04:06    

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!  
 
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! :)  
 

Reply

Marsh Posté le 04-06-2009 à 11:04:06   

Reply

Marsh Posté le 04-06-2009 à 17:22:53    

Et dans ta varaible fic tu récupéres quelque chose ?

Reply

Marsh Posté le 04-06-2009 à 17:39:38    

Supprime dans la ligne de déclaration les "()" de montab
pour obtenir :
Dim fichier, fic, monTab, machaine, chemin As String  

Reply

Marsh Posté le 04-06-2009 à 17:42:00    

Hello Paul Hood!
Merci de ta réponse, en fait j'ai résolu mon problème, j'ai oublié de revenir le signaler!
c'est au niveau de mes déclarations de variables de type string, seule la variable "chemin" était de type string, les autres étaient de type variant donc forcément Split ne renvoyait rien!
Erreur bête qui m'a tenue une bonne partie de la journée!!
 
Merci quand même,
bonne journée!

Reply

Marsh Posté le 04-06-2009 à 17:43:33    

Ah bah je viens de voir ton dernier post!
tu avais tout compris!
merci Paul Hood!

Reply

Sujets relatifs:

Leave a Replay

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