1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38
|
Const ForReading = 1,ForAppending = 8
strNewFile = "H:\Provider_PROD.csv"
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(strNewFile, ForReading)
elemline=0
Dim TBProv(100,2)
Do Until f.AtEndOfStream
strLine = f.ReadLine
elem=split(strLine,",")
TBProv(elemline,0) = elem(0)
TBProv(elemline,1) = elem(1)
TBProv(elemline,2) = elem(2)
' wscript.echo TBProv(elemline,0) & " " & TBProv(elemline,1) & " " & TBProv(elemline,2)
elemline=elemline+1
Loop
'wscript.echo elemline
for i=0 to elemline
wscript.echo TBProv(i,0)
next
'MsgBox elem(1,0) & " ==> "& elem(1,1) & " ==> "& elem(1,2),64,"liste_provider"
'MsgBox elem(0) & " =====> "& elem(1),64,"liste_provider"
providerbox = inputbox ("Entrer l'acronyme du provider: " , _
"Creation de compte FTP spécial" , "AA")
numerobox = inputbox ("Entrer le(s) numéros(s) de l'agence: " , _
"Creation de compte FTP spécial" , "9999")
wscript.echo "Provider : " & providerbox &vbcr& "Numéro d'agence : " & numerobox |
Partager