Bonjour
je cherche un faire un script qui control chaque ligne d'un fichier texte
par exemple j'utilise de sufix TEST et deriere c'est des chiffres.
Fichier texte
TEST01
TEST02
..
Faudrai qu'il me dise quand il y a un trou. Si il manque TEST09, faudrai
qu'il me le signal...
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
papou
Bonjour Essaie avec quelque chose comme ça : Const ForReading = 1 Dim fso, theFile, retstring, i Set fso = CreateObject("Scripting.FileSystemObject") Set theFile = fso.OpenTextFile("C:TempTexte.txt", ForReading, False) i = 0 Do While theFile.AtEndOfStream <> True i = i + 1 retstring = theFile.ReadLine If Right(retstring,1) <> CStr(i) Then Msgbox "Il manque la donnée " & i i = i + 1 End If Loop theFile.Close ReadEntireFile = retstring
Cordialement Pascal
"Titi" a écrit dans le message de news:
Bonjour je cherche un faire un script qui control chaque ligne d'un fichier texte par exemple j'utilise de sufix TEST et deriere c'est des chiffres. Fichier texte TEST01 TEST02 .. Faudrai qu'il me dise quand il y a un trou. Si il manque TEST09, faudrai qu'il me le signal...
Si quelqu'un a une soluce pour moi merci d'avance
Bonjour
Essaie avec quelque chose comme ça :
Const ForReading = 1
Dim fso, theFile, retstring, i
Set fso = CreateObject("Scripting.FileSystemObject")
Set theFile = fso.OpenTextFile("C:TempTexte.txt", ForReading, False)
i = 0
Do While theFile.AtEndOfStream <> True
i = i + 1
retstring = theFile.ReadLine
If Right(retstring,1) <> CStr(i) Then
Msgbox "Il manque la donnée " & i
i = i + 1
End If
Loop
theFile.Close
ReadEntireFile = retstring
Cordialement
Pascal
"Titi" <Titi@discussions.microsoft.com> a écrit dans le message de
news:AFA81725-8CFB-4614-8B1C-131E91124E60@microsoft.com...
Bonjour
je cherche un faire un script qui control chaque ligne d'un fichier texte
par exemple j'utilise de sufix TEST et deriere c'est des chiffres.
Fichier texte
TEST01
TEST02
..
Faudrai qu'il me dise quand il y a un trou. Si il manque TEST09, faudrai
qu'il me le signal...
Bonjour Essaie avec quelque chose comme ça : Const ForReading = 1 Dim fso, theFile, retstring, i Set fso = CreateObject("Scripting.FileSystemObject") Set theFile = fso.OpenTextFile("C:TempTexte.txt", ForReading, False) i = 0 Do While theFile.AtEndOfStream <> True i = i + 1 retstring = theFile.ReadLine If Right(retstring,1) <> CStr(i) Then Msgbox "Il manque la donnée " & i i = i + 1 End If Loop theFile.Close ReadEntireFile = retstring
Cordialement Pascal
"Titi" a écrit dans le message de news:
Bonjour je cherche un faire un script qui control chaque ligne d'un fichier texte par exemple j'utilise de sufix TEST et deriere c'est des chiffres. Fichier texte TEST01 TEST02 .. Faudrai qu'il me dise quand il y a un trou. Si il manque TEST09, faudrai qu'il me le signal...
Si quelqu'un a une soluce pour moi merci d'avance
Titi
Merci de ta réponse, je vais tester ça.
Bonjour Essaie avec quelque chose comme ça : Const ForReading = 1 Dim fso, theFile, retstring, i Set fso = CreateObject("Scripting.FileSystemObject") Set theFile = fso.OpenTextFile("C:TempTexte.txt", ForReading, False) i = 0 Do While theFile.AtEndOfStream <> True i = i + 1 retstring = theFile.ReadLine If Right(retstring,1) <> CStr(i) Then Msgbox "Il manque la donnée " & i i = i + 1 End If Loop theFile.Close ReadEntireFile = retstring
Cordialement Pascal
"Titi" a écrit dans le message de news:
Bonjour je cherche un faire un script qui control chaque ligne d'un fichier texte par exemple j'utilise de sufix TEST et deriere c'est des chiffres. Fichier texte TEST01 TEST02 .. Faudrai qu'il me dise quand il y a un trou. Si il manque TEST09, faudrai qu'il me le signal...
Si quelqu'un a une soluce pour moi merci d'avance
Merci de ta réponse, je vais tester ça.
Bonjour
Essaie avec quelque chose comme ça :
Const ForReading = 1
Dim fso, theFile, retstring, i
Set fso = CreateObject("Scripting.FileSystemObject")
Set theFile = fso.OpenTextFile("C:TempTexte.txt", ForReading, False)
i = 0
Do While theFile.AtEndOfStream <> True
i = i + 1
retstring = theFile.ReadLine
If Right(retstring,1) <> CStr(i) Then
Msgbox "Il manque la donnée " & i
i = i + 1
End If
Loop
theFile.Close
ReadEntireFile = retstring
Cordialement
Pascal
"Titi" <Titi@discussions.microsoft.com> a écrit dans le message de
news:AFA81725-8CFB-4614-8B1C-131E91124E60@microsoft.com...
Bonjour
je cherche un faire un script qui control chaque ligne d'un fichier texte
par exemple j'utilise de sufix TEST et deriere c'est des chiffres.
Fichier texte
TEST01
TEST02
..
Faudrai qu'il me dise quand il y a un trou. Si il manque TEST09, faudrai
qu'il me le signal...
Bonjour Essaie avec quelque chose comme ça : Const ForReading = 1 Dim fso, theFile, retstring, i Set fso = CreateObject("Scripting.FileSystemObject") Set theFile = fso.OpenTextFile("C:TempTexte.txt", ForReading, False) i = 0 Do While theFile.AtEndOfStream <> True i = i + 1 retstring = theFile.ReadLine If Right(retstring,1) <> CStr(i) Then Msgbox "Il manque la donnée " & i i = i + 1 End If Loop theFile.Close ReadEntireFile = retstring
Cordialement Pascal
"Titi" a écrit dans le message de news:
Bonjour je cherche un faire un script qui control chaque ligne d'un fichier texte par exemple j'utilise de sufix TEST et deriere c'est des chiffres. Fichier texte TEST01 TEST02 .. Faudrai qu'il me dise quand il y a un trou. Si il manque TEST09, faudrai qu'il me le signal...
Si quelqu'un a une soluce pour moi merci d'avance
Titi
est-ce qu'on peut faire la même chose avec des lettres ?
Bonjour Essaie avec quelque chose comme ça : Const ForReading = 1 Dim fso, theFile, retstring, i Set fso = CreateObject("Scripting.FileSystemObject") Set theFile = fso.OpenTextFile("C:TempTexte.txt", ForReading, False) i = 0 Do While theFile.AtEndOfStream <> True i = i + 1 retstring = theFile.ReadLine If Right(retstring,1) <> CStr(i) Then Msgbox "Il manque la donnée " & i i = i + 1 End If Loop theFile.Close ReadEntireFile = retstring
Cordialement Pascal
"Titi" a écrit dans le message de news:
Bonjour je cherche un faire un script qui control chaque ligne d'un fichier texte par exemple j'utilise de sufix TEST et deriere c'est des chiffres. Fichier texte TEST01 TEST02 .. Faudrai qu'il me dise quand il y a un trou. Si il manque TEST09, faudrai qu'il me le signal...
Si quelqu'un a une soluce pour moi merci d'avance
est-ce qu'on peut faire la même chose avec des lettres ?
Bonjour
Essaie avec quelque chose comme ça :
Const ForReading = 1
Dim fso, theFile, retstring, i
Set fso = CreateObject("Scripting.FileSystemObject")
Set theFile = fso.OpenTextFile("C:TempTexte.txt", ForReading, False)
i = 0
Do While theFile.AtEndOfStream <> True
i = i + 1
retstring = theFile.ReadLine
If Right(retstring,1) <> CStr(i) Then
Msgbox "Il manque la donnée " & i
i = i + 1
End If
Loop
theFile.Close
ReadEntireFile = retstring
Cordialement
Pascal
"Titi" <Titi@discussions.microsoft.com> a écrit dans le message de
news:AFA81725-8CFB-4614-8B1C-131E91124E60@microsoft.com...
Bonjour
je cherche un faire un script qui control chaque ligne d'un fichier texte
par exemple j'utilise de sufix TEST et deriere c'est des chiffres.
Fichier texte
TEST01
TEST02
..
Faudrai qu'il me dise quand il y a un trou. Si il manque TEST09, faudrai
qu'il me le signal...
est-ce qu'on peut faire la même chose avec des lettres ?
Bonjour Essaie avec quelque chose comme ça : Const ForReading = 1 Dim fso, theFile, retstring, i Set fso = CreateObject("Scripting.FileSystemObject") Set theFile = fso.OpenTextFile("C:TempTexte.txt", ForReading, False) i = 0 Do While theFile.AtEndOfStream <> True i = i + 1 retstring = theFile.ReadLine If Right(retstring,1) <> CStr(i) Then Msgbox "Il manque la donnée " & i i = i + 1 End If Loop theFile.Close ReadEntireFile = retstring
Cordialement Pascal
"Titi" a écrit dans le message de news:
Bonjour je cherche un faire un script qui control chaque ligne d'un fichier texte par exemple j'utilise de sufix TEST et deriere c'est des chiffres. Fichier texte TEST01 TEST02 .. Faudrai qu'il me dise quand il y a un trou. Si il manque TEST09, faudrai qu'il me le signal...
Si quelqu'un a une soluce pour moi merci d'avance
papou
Bonjour Globalement je dirai oui, en utilisant un tableau, maintenant il faut voir ce que tu souhaites plus précisément.
Cordialement Pascal
"Titi" a écrit dans le message news:
est-ce qu'on peut faire la même chose avec des lettres ?
Bonjour Essaie avec quelque chose comme ça : Const ForReading = 1 Dim fso, theFile, retstring, i Set fso = CreateObject("Scripting.FileSystemObject") Set theFile = fso.OpenTextFile("C:TempTexte.txt", ForReading, False) i = 0 Do While theFile.AtEndOfStream <> True i = i + 1 retstring = theFile.ReadLine If Right(retstring,1) <> CStr(i) Then Msgbox "Il manque la donnée " & i i = i + 1 End If Loop theFile.Close ReadEntireFile = retstring
Cordialement Pascal
"Titi" a écrit dans le message de news:
Bonjour je cherche un faire un script qui control chaque ligne d'un fichier texte
par exemple j'utilise de sufix TEST et deriere c'est des chiffres. Fichier texte TEST01 TEST02 .. Faudrai qu'il me dise quand il y a un trou. Si il manque TEST09, faudrai
qu'il me le signal...
Si quelqu'un a une soluce pour moi merci d'avance
Bonjour
Globalement je dirai oui, en utilisant un tableau, maintenant il faut voir
ce que tu souhaites plus précisément.
Cordialement
Pascal
"Titi" <Titi@discussions.microsoft.com> a écrit dans le message news:
605F5557-2DE5-4669-A833-FCBD92A7C677@microsoft.com...
est-ce qu'on peut faire la même chose avec des lettres ?
Bonjour
Essaie avec quelque chose comme ça :
Const ForReading = 1
Dim fso, theFile, retstring, i
Set fso = CreateObject("Scripting.FileSystemObject")
Set theFile = fso.OpenTextFile("C:TempTexte.txt", ForReading, False)
i = 0
Do While theFile.AtEndOfStream <> True
i = i + 1
retstring = theFile.ReadLine
If Right(retstring,1) <> CStr(i) Then
Msgbox "Il manque la donnée " & i
i = i + 1
End If
Loop
theFile.Close
ReadEntireFile = retstring
Cordialement
Pascal
"Titi" <Titi@discussions.microsoft.com> a écrit dans le message de
news:AFA81725-8CFB-4614-8B1C-131E91124E60@microsoft.com...
Bonjour
je cherche un faire un script qui control chaque ligne d'un fichier
texte
par exemple j'utilise de sufix TEST et deriere c'est des chiffres.
Fichier texte
TEST01
TEST02
..
Faudrai qu'il me dise quand il y a un trou. Si il manque TEST09,
faudrai
Bonjour Globalement je dirai oui, en utilisant un tableau, maintenant il faut voir ce que tu souhaites plus précisément.
Cordialement Pascal
"Titi" a écrit dans le message news:
est-ce qu'on peut faire la même chose avec des lettres ?
Bonjour Essaie avec quelque chose comme ça : Const ForReading = 1 Dim fso, theFile, retstring, i Set fso = CreateObject("Scripting.FileSystemObject") Set theFile = fso.OpenTextFile("C:TempTexte.txt", ForReading, False) i = 0 Do While theFile.AtEndOfStream <> True i = i + 1 retstring = theFile.ReadLine If Right(retstring,1) <> CStr(i) Then Msgbox "Il manque la donnée " & i i = i + 1 End If Loop theFile.Close ReadEntireFile = retstring
Cordialement Pascal
"Titi" a écrit dans le message de news:
Bonjour je cherche un faire un script qui control chaque ligne d'un fichier texte
par exemple j'utilise de sufix TEST et deriere c'est des chiffres. Fichier texte TEST01 TEST02 .. Faudrai qu'il me dise quand il y a un trou. Si il manque TEST09, faudrai
qu'il me le signal...
Si quelqu'un a une soluce pour moi merci d'avance
Titi
Bonjour,
Je cherche un faire un script qui consulterait les comptes ordinateurs dans un domain. par exemple : on utilise un prefix par defaut, "Ordi" et deriere on met deux chiffres entre 0 et 9, et des lettres en 1 et z "Ordi00, Ordi01, ...? Ordi0A, Ordi0B, ... Ordi1Z... etc" Faudrai qu'il detecte les trous, si entre ordi00 et Ordi10 il manque ordi06 faudrai le mettre dans un fichier...
Bonjour Globalement je dirai oui, en utilisant un tableau, maintenant il faut voir ce que tu souhaites plus précisément.
Cordialement Pascal
"Titi" a écrit dans le message news:
est-ce qu'on peut faire la même chose avec des lettres ?
Bonjour Essaie avec quelque chose comme ça : Const ForReading = 1 Dim fso, theFile, retstring, i Set fso = CreateObject("Scripting.FileSystemObject") Set theFile = fso.OpenTextFile("C:TempTexte.txt", ForReading, False) i = 0 Do While theFile.AtEndOfStream <> True i = i + 1 retstring = theFile.ReadLine If Right(retstring,1) <> CStr(i) Then Msgbox "Il manque la donnée " & i i = i + 1 End If Loop theFile.Close ReadEntireFile = retstring
Cordialement Pascal
"Titi" a écrit dans le message de news:
Bonjour je cherche un faire un script qui control chaque ligne d'un fichier texte
par exemple j'utilise de sufix TEST et deriere c'est des chiffres. Fichier texte TEST01 TEST02 .. Faudrai qu'il me dise quand il y a un trou. Si il manque TEST09, faudrai
qu'il me le signal...
Si quelqu'un a une soluce pour moi merci d'avance
Bonjour,
Je cherche un faire un script qui consulterait les comptes ordinateurs dans
un domain.
par exemple : on utilise un prefix par defaut, "Ordi" et deriere on met deux
chiffres entre 0 et 9, et des lettres en 1 et z
"Ordi00, Ordi01, ...? Ordi0A, Ordi0B, ... Ordi1Z... etc"
Faudrai qu'il detecte les trous, si entre ordi00 et Ordi10 il manque ordi06
faudrai le mettre dans un fichier...
Bonjour
Globalement je dirai oui, en utilisant un tableau, maintenant il faut voir
ce que tu souhaites plus précisément.
Cordialement
Pascal
"Titi" <Titi@discussions.microsoft.com> a écrit dans le message news:
605F5557-2DE5-4669-A833-FCBD92A7C677@microsoft.com...
est-ce qu'on peut faire la même chose avec des lettres ?
Bonjour
Essaie avec quelque chose comme ça :
Const ForReading = 1
Dim fso, theFile, retstring, i
Set fso = CreateObject("Scripting.FileSystemObject")
Set theFile = fso.OpenTextFile("C:TempTexte.txt", ForReading, False)
i = 0
Do While theFile.AtEndOfStream <> True
i = i + 1
retstring = theFile.ReadLine
If Right(retstring,1) <> CStr(i) Then
Msgbox "Il manque la donnée " & i
i = i + 1
End If
Loop
theFile.Close
ReadEntireFile = retstring
Cordialement
Pascal
"Titi" <Titi@discussions.microsoft.com> a écrit dans le message de
news:AFA81725-8CFB-4614-8B1C-131E91124E60@microsoft.com...
Bonjour
je cherche un faire un script qui control chaque ligne d'un fichier
texte
par exemple j'utilise de sufix TEST et deriere c'est des chiffres.
Fichier texte
TEST01
TEST02
..
Faudrai qu'il me dise quand il y a un trou. Si il manque TEST09,
faudrai
Je cherche un faire un script qui consulterait les comptes ordinateurs dans un domain. par exemple : on utilise un prefix par defaut, "Ordi" et deriere on met deux chiffres entre 0 et 9, et des lettres en 1 et z "Ordi00, Ordi01, ...? Ordi0A, Ordi0B, ... Ordi1Z... etc" Faudrai qu'il detecte les trous, si entre ordi00 et Ordi10 il manque ordi06 faudrai le mettre dans un fichier...
Bonjour Globalement je dirai oui, en utilisant un tableau, maintenant il faut voir ce que tu souhaites plus précisément.
Cordialement Pascal
"Titi" a écrit dans le message news:
est-ce qu'on peut faire la même chose avec des lettres ?
Bonjour Essaie avec quelque chose comme ça : Const ForReading = 1 Dim fso, theFile, retstring, i Set fso = CreateObject("Scripting.FileSystemObject") Set theFile = fso.OpenTextFile("C:TempTexte.txt", ForReading, False) i = 0 Do While theFile.AtEndOfStream <> True i = i + 1 retstring = theFile.ReadLine If Right(retstring,1) <> CStr(i) Then Msgbox "Il manque la donnée " & i i = i + 1 End If Loop theFile.Close ReadEntireFile = retstring
Cordialement Pascal
"Titi" a écrit dans le message de news:
Bonjour je cherche un faire un script qui control chaque ligne d'un fichier texte
par exemple j'utilise de sufix TEST et deriere c'est des chiffres. Fichier texte TEST01 TEST02 .. Faudrai qu'il me dise quand il y a un trou. Si il manque TEST09, faudrai
qu'il me le signal...
Si quelqu'un a une soluce pour moi merci d'avance
Titi
tu peux me contacter par mail : ou sur MSN
Bonjour Essaie avec quelque chose comme ça : Const ForReading = 1 Dim fso, theFile, retstring, i Set fso = CreateObject("Scripting.FileSystemObject") Set theFile = fso.OpenTextFile("C:TempTexte.txt", ForReading, False) i = 0 Do While theFile.AtEndOfStream <> True i = i + 1 retstring = theFile.ReadLine If Right(retstring,1) <> CStr(i) Then Msgbox "Il manque la donnée " & i i = i + 1 End If Loop theFile.Close ReadEntireFile = retstring
Cordialement Pascal
"Titi" a écrit dans le message de news:
Bonjour je cherche un faire un script qui control chaque ligne d'un fichier texte par exemple j'utilise de sufix TEST et deriere c'est des chiffres. Fichier texte TEST01 TEST02 .. Faudrai qu'il me dise quand il y a un trou. Si il manque TEST09, faudrai qu'il me le signal...
Si quelqu'un a une soluce pour moi merci d'avance
tu peux me contacter par mail : gregbot93@hotmail.com ou sur MSN
Bonjour
Essaie avec quelque chose comme ça :
Const ForReading = 1
Dim fso, theFile, retstring, i
Set fso = CreateObject("Scripting.FileSystemObject")
Set theFile = fso.OpenTextFile("C:TempTexte.txt", ForReading, False)
i = 0
Do While theFile.AtEndOfStream <> True
i = i + 1
retstring = theFile.ReadLine
If Right(retstring,1) <> CStr(i) Then
Msgbox "Il manque la donnée " & i
i = i + 1
End If
Loop
theFile.Close
ReadEntireFile = retstring
Cordialement
Pascal
"Titi" <Titi@discussions.microsoft.com> a écrit dans le message de
news:AFA81725-8CFB-4614-8B1C-131E91124E60@microsoft.com...
Bonjour
je cherche un faire un script qui control chaque ligne d'un fichier texte
par exemple j'utilise de sufix TEST et deriere c'est des chiffres.
Fichier texte
TEST01
TEST02
..
Faudrai qu'il me dise quand il y a un trou. Si il manque TEST09, faudrai
qu'il me le signal...
Bonjour Essaie avec quelque chose comme ça : Const ForReading = 1 Dim fso, theFile, retstring, i Set fso = CreateObject("Scripting.FileSystemObject") Set theFile = fso.OpenTextFile("C:TempTexte.txt", ForReading, False) i = 0 Do While theFile.AtEndOfStream <> True i = i + 1 retstring = theFile.ReadLine If Right(retstring,1) <> CStr(i) Then Msgbox "Il manque la donnée " & i i = i + 1 End If Loop theFile.Close ReadEntireFile = retstring
Cordialement Pascal
"Titi" a écrit dans le message de news:
Bonjour je cherche un faire un script qui control chaque ligne d'un fichier texte par exemple j'utilise de sufix TEST et deriere c'est des chiffres. Fichier texte TEST01 TEST02 .. Faudrai qu'il me dise quand il y a un trou. Si il manque TEST09, faudrai qu'il me le signal...
Si quelqu'un a une soluce pour moi merci d'avance
Titi
salut tu peux m'aider a faire le tableau s'il te plait ?
Bonjour Globalement je dirai oui, en utilisant un tableau, maintenant il faut voir ce que tu souhaites plus précisément.
Cordialement Pascal
"Titi" a écrit dans le message news:
est-ce qu'on peut faire la même chose avec des lettres ?
Bonjour Essaie avec quelque chose comme ça : Const ForReading = 1 Dim fso, theFile, retstring, i Set fso = CreateObject("Scripting.FileSystemObject") Set theFile = fso.OpenTextFile("C:TempTexte.txt", ForReading, False) i = 0 Do While theFile.AtEndOfStream <> True i = i + 1 retstring = theFile.ReadLine If Right(retstring,1) <> CStr(i) Then Msgbox "Il manque la donnée " & i i = i + 1 End If Loop theFile.Close ReadEntireFile = retstring
Cordialement Pascal
"Titi" a écrit dans le message de news:
Bonjour je cherche un faire un script qui control chaque ligne d'un fichier texte
par exemple j'utilise de sufix TEST et deriere c'est des chiffres. Fichier texte TEST01 TEST02 .. Faudrai qu'il me dise quand il y a un trou. Si il manque TEST09, faudrai
qu'il me le signal...
Si quelqu'un a une soluce pour moi merci d'avance
salut
tu peux m'aider a faire le tableau s'il te plait ?
Bonjour
Globalement je dirai oui, en utilisant un tableau, maintenant il faut voir
ce que tu souhaites plus précisément.
Cordialement
Pascal
"Titi" <Titi@discussions.microsoft.com> a écrit dans le message news:
605F5557-2DE5-4669-A833-FCBD92A7C677@microsoft.com...
est-ce qu'on peut faire la même chose avec des lettres ?
Bonjour
Essaie avec quelque chose comme ça :
Const ForReading = 1
Dim fso, theFile, retstring, i
Set fso = CreateObject("Scripting.FileSystemObject")
Set theFile = fso.OpenTextFile("C:TempTexte.txt", ForReading, False)
i = 0
Do While theFile.AtEndOfStream <> True
i = i + 1
retstring = theFile.ReadLine
If Right(retstring,1) <> CStr(i) Then
Msgbox "Il manque la donnée " & i
i = i + 1
End If
Loop
theFile.Close
ReadEntireFile = retstring
Cordialement
Pascal
"Titi" <Titi@discussions.microsoft.com> a écrit dans le message de
news:AFA81725-8CFB-4614-8B1C-131E91124E60@microsoft.com...
Bonjour
je cherche un faire un script qui control chaque ligne d'un fichier
texte
par exemple j'utilise de sufix TEST et deriere c'est des chiffres.
Fichier texte
TEST01
TEST02
..
Faudrai qu'il me dise quand il y a un trou. Si il manque TEST09,
faudrai
salut tu peux m'aider a faire le tableau s'il te plait ?
Bonjour Globalement je dirai oui, en utilisant un tableau, maintenant il faut voir ce que tu souhaites plus précisément.
Cordialement Pascal
"Titi" a écrit dans le message news:
est-ce qu'on peut faire la même chose avec des lettres ?
Bonjour Essaie avec quelque chose comme ça : Const ForReading = 1 Dim fso, theFile, retstring, i Set fso = CreateObject("Scripting.FileSystemObject") Set theFile = fso.OpenTextFile("C:TempTexte.txt", ForReading, False) i = 0 Do While theFile.AtEndOfStream <> True i = i + 1 retstring = theFile.ReadLine If Right(retstring,1) <> CStr(i) Then Msgbox "Il manque la donnée " & i i = i + 1 End If Loop theFile.Close ReadEntireFile = retstring
Cordialement Pascal
"Titi" a écrit dans le message de news:
Bonjour je cherche un faire un script qui control chaque ligne d'un fichier texte
par exemple j'utilise de sufix TEST et deriere c'est des chiffres. Fichier texte TEST01 TEST02 .. Faudrai qu'il me dise quand il y a un trou. Si il manque TEST09, faudrai
