bonsoir, je tente de remplir un tableau en vbs de la facon suivante mais fort de constater que j'obtiens une erreur : "indice en dehors de la plage" au moment du "redim preserve"..... je crains fort de ne pas maitriser la fonction array merci d'avance de m'aider... :
[If objFSO.FileExists(FileUser) then set objFile = objFSO.OpentextFile(FileUser,1) m = 0 Do Until objfile.AtEndofStream ReDim preserve arrstrUser(m,9) line = objFile.readline matricule = Split(line, ":" )(0) Nom = Split(line, ":" )(1) Prenom = Split(line, ":" )(2) Attache = Split(line, ":" )(3) CtrFrais = Split(line, ":" )(4) DateNaissance = Split(line, ":" )(5) DateEntrance = Split(line, ":" )(6) DateExit = Split(line, ":" )(7) Attribut = Split(line, ":" )(9) arrstrUser(m,0) = matricule arrstrUser(m,1) = Nom arrstrUser(m,2) = Prenom arrstrUser(m,3) = Attache arrstrUser(m,4) = CtrFrais arrstrUser(m,5) = DateNaissance arrstrUser(m,6) = DateEntrance arrstrUser(m,7) = DateExit arrstrUser(m,8) = Attribut m = m + 1 loop objFile.Close]
nota : pour ceux qui ne verrai pas ce que je cherche à faire il s'agit d'alimenter un tableau (dynamique) avec pour information tt les utilisateurs d'1 fichier tabulé avec leurs attributs correspondant.
Marsh Posté le 03-11-2006 à 02:16:57
bonsoir,
je tente de remplir un tableau en vbs de la facon suivante mais fort de constater que j'obtiens une erreur : "indice en dehors de la plage" au moment du "redim preserve"..... je crains fort de ne pas maitriser la fonction array merci d'avance de m'aider... :
[If objFSO.FileExists(FileUser) then
set objFile = objFSO.OpentextFile(FileUser,1)
m = 0
Do Until objfile.AtEndofStream
ReDim preserve arrstrUser(m,9)
line = objFile.readline
matricule = Split(line, ":" )(0)
Nom = Split(line, ":" )(1)
Prenom = Split(line, ":" )(2)
Attache = Split(line, ":" )(3)
CtrFrais = Split(line, ":" )(4)
DateNaissance = Split(line, ":" )(5)
DateEntrance = Split(line, ":" )(6)
DateExit = Split(line, ":" )(7)
Attribut = Split(line, ":" )(9)
arrstrUser(m,0) = matricule
arrstrUser(m,1) = Nom
arrstrUser(m,2) = Prenom
arrstrUser(m,3) = Attache
arrstrUser(m,4) = CtrFrais
arrstrUser(m,5) = DateNaissance
arrstrUser(m,6) = DateEntrance
arrstrUser(m,7) = DateExit
arrstrUser(m,8) = Attribut
m = m + 1
loop
objFile.Close]
nota : pour ceux qui ne verrai pas ce que je cherche à faire il s'agit d'alimenter un tableau (dynamique) avec pour information tt les utilisateurs d'1 fichier tabulé avec leurs attributs correspondant.