Titre: RESOLU: erreur a la suite d'un split sur un fichier txt
Posté par: wiNux le le 28-07-2003 a 14:26:15
j'ai une erreur à la suite d'un split sur une ligne d'un fichier texte que je parcour dans une boucle while
chaque ligne du fichier est construit de la manière suivante :
txt;txt;txt;txt;txt
voici mon erreur :'( quand je veux afficher le fichier dans l'explorateur:
Erreur d'exécution Microsoft VBScript (0x800A0009)
Indice en dehors de la plage: '[number: 2]'
Et voila une partie du script:
Do While not fich.atEndOfStream
ligne = fich.readLine
tab_cer = split(ligne,";",-1,1)
if Request.QueryString("CH") = "G" Then
response.write(tab_cer(0)&" - "&tab_cer(1)&" - "&tab_cer(2)&" - "&tab_cer(3)&"<br>")
D'avance merci pour votre aide précieuse
;) |
Titre: Re:prerreur a la suite d'un split sur un fichier txt
Posté par: Netah le le 28-07-2003 a 15:08:49
Ce script marche tres bien, je l'ai testé :
Code:
<%
Set fs = Server.CreateObject("Scripting.FileSystemObject")
dir = Server.MapPath("./")
F_Path = dir & "\toto.txt"
If fs.FileExists(F_Path) Then
Set RF = fs.OpenTextFile(F_Path,1,False)
Do While not RF.atEndOfStream
ligne = RF.readLine
tab_cer = split(ligne,";",-1,1)
response.write(tab_cer(0)&" - "&tab_cer(1)&" - "&tab_cer(2)&" - "&tab_cer(3)&"<br>")
loop
RF.close
Set fs=nothing
End If
%>
|
|
J'ai donc cherché à reproduire le message d'erreur. Pour cela j'ai enlevé des infos du fichier texte et ... bingo, voila l'erreur magique. Tu dois manquer de champs dans ton fichier texte par rapport à ce que tu cherches dans ton script.
Tu peux vérifier ton fichier texte, vérifier ton script ou ajouter avant la lecteur du fichier :
Code:
Bonne continuation |
Titre: Re:prerreur a la suite d'un split sur un fichier txt
Posté par: wiNux le le 28-07-2003 a 15:56:11
merci beaucoup
en fait y'a quelque ligne qui n'ont pas tous les paramètres.
J'avais pa vu y'a plus de mille enregistrements
@+ et encore merci |
Forum-webmaster | Actionné par YaBB SE
© 2001-2003, YaBB SE Dev Team. Tous droits réservés.
|