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
| fini="c:\windows\win.ini"
Set oFso = CreateObject("Scripting.FileSystemObject")
if not ofso.fileexists(fini) then _
msgbox "fichier non trouvé",, fini : wscript.quit
z="Variables valeurs" & vbcr & _
"=============================" & vbcr
Set f = oFso.OpenTextFile(fini)
while Not f.AtEndOfStream
l=f.readline
if instr(1,l,"=") > 0 then
t= split(l,"=")
' +--------------------------------------------------+
' | la variable sera dans t(0) |
' | la valeur sera dans t(1) |
' +--------------------------------------------------+
z=z & rpad(t(0),20) & " " & t(1) & vbcr
end if
Wend
f.Close
msgbox z
'----------------complète par des espaces à droite------------------------------
function rpad(y,z)
rpad= y & string(z-len(y)," ")
end function |
Partager