Bonjour,
J'ai un peu avancé sur mon code et j'en suis venu à l'idée de créer un tableau et à le remplir avec les éléments de mon document texte. Voici le code mis à jour :
Set objFSO = CreateObject("Scripting.FileSystemObject" )
Set objFile = objFSO.OpenTextFile("chemin fichier", 1)
Set ficok= objFSO.CreateTextFile("chemin fichier", 2)
Set ficerror= objFSO.CreateTextFile("chemin fichier", 2)
Dim tab
tab = Array (14251,5)
Do until objFile.AtEndOfStream
ligne = objFile.ReadLine
Champs = SPLIT(ligne, ";", -1, 1)
ip1 = Champs(0)
ip2 = Champs(3)
for i=1 to 14251
for j=1 to 5
tab(i,j)=Champs(j)
Next
Next
For Each ip1in tab
For Each ip2 in tab
if tab(i,0) = tab(i,3) then
truc = Champs (2)
srvok = ip1 & ";" & truc
ficok.WriteLine srvok
else
srv = "Le serveur : " & ip1 & " n'existe pas dans la liste"
ficerror.WriteLine srv
End If
Next
Next
Loop
objFile.Closec
Mais disons que sa ne marche toujours pas
. Il n'arrive pas à remplir mon tableau avec les informations du documents.
Mon idée étant de suivre le commentaire de Chelmi 18 :
Pour chaque IP_Gauche
Pour chaque IP_Droite
Si IP_Gauche = IP_Droite
Fin SI
IP_Droite suivante
IP_Gauche suivante
Sauf que pour sa, je dois créer un tableau avant et je n'arrive pas à le remplir.
Sa fait maintenant 2 semaines que je travailles sur ce script et je commence à désespérer.
Marc L en réponse à ta proposition d'utiliser excel, ce n'ai pas possible. Je dois absolument produire un script pour résoudre mon problème.
Merci pour vos messages Chinou
Message édité par chinou44 le 12-02-2016 à 15:07:49