mmmxtina
Messages postés67Date d'inscriptionmardi 26 mai 2009StatutMembreDernière intervention 9 avril 2013
-
4 juin 2009 à 11:40
mmmxtina
Messages postés67Date d'inscriptionmardi 26 mai 2009StatutMembreDernière intervention 9 avril 2013
-
4 juin 2009 à 17:03
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!
r1r2
Messages postés22Date d'inscriptionmardi 23 janvier 2007StatutMembreDernière intervention31 mars 2010 4 juin 2009 à 16:08
Vu tes déclarations de variables : Dim fichier, fic, monTab(), machaine(), chemin As String
Seule chemin est String, les autres sont Variant !
Il faut donc mettre : Dim fichier As String, fic As String, monTab() As String, machaine() As String, chemin As String
(surtout monTab() et machaine()) et ça devrait passer.
mmmxtina
Messages postés67Date d'inscriptionmardi 26 mai 2009StatutMembreDernière intervention 9 avril 2013 4 juin 2009 à 15:39
Re!
Désolée de répondre maintenant, je suis en stage, et j'ai un autre problème à élucider en même temps!
Donc déjà merci PCPT et r1r2 pour vos réponse.
Alors PCPT pour te répondre, je n'ai pas voulu mettre le vrai chemin du fichier par soucis de confidentialité c'est tout, tinkiet pas, le chemin n'est pas "C:\...\relation.txt". je suis d'accord avec toi, ça aurai été bizarre...
Sinon r1r2, j'ai fait ce que tu m'a dit j'ai enlevé le On Error Resume Next et maintenant j'ai une erreur au niveau du Split qui me dit:
"erreur 13, incompatibilité de type"
Bizarre, j'ai vérifié, fic n'est pas vide, il contient bien ce qu'il y a dans le fichier relation.txt, et fic est bien un string donc comprends pas....
une idée?
Meric beaucoup!
Vous n’avez pas trouvé la réponse que vous recherchez ?
mmmxtina
Messages postés67Date d'inscriptionmardi 26 mai 2009StatutMembreDernière intervention 9 avril 2013 4 juin 2009 à 17:03
Re,
en effet c'était ça!!!!
Je m'en suis rendu compte assez tardivement et c'était bien mes déclarations le problème!!
J'était en train de faire des tests puis autre chose, donc c'est pour ça que je répond que maintenant!