break on
dim $inifile, $tmpfile, $ini, $arrSections, $arrKeys, $section, $key, $d1, $d2
$arrInifiles =
@scriptdir+"\test\file000.ini",
@scriptdir+"\test\file001.ini",
@scriptdir+"\test\file002.ini",
@scriptdir+"\test\file003.ini",
@scriptdir+"\test\file004.ini",
@scriptdir+"\test\file005.ini",
@scriptdir+"\test\file006.ini",
""
right( " size",8 )
right( " time1",8 )
right( " time2",8 )
" filename"
?
for each $inifile in $arrInifiles
if $inifile
$tmpfile = @scriptdir+"\"+@ScriptName+".tmp"
COPY $inifile $tmpfile
$size = GetFileSize($tmpfile)
;-- read with ini functions --
$start = @TICKS
$ini = IniArray( $tmpfile )
$arrSections = IniSections($ini)
for each $section in $arrSections
$arrKeys = IniKeys( $ini, $section )
for each $key in $arrKeys
$value = ReadIniArray( $ini, $section, $key )
next
next
$d1 = @TICKS - $start
;-- read with ReadProfileString --
$start = @TICKS
$arrSections = ReadProfileString( $tmpfile, "", "" )
$arrSections = split($arrSections, chr(10) )
for each $section in $arrSections
if $section
$arrKeys = ReadProfileString( $tmpfile, $section, "" )
$arrKeys = split($arrKeys, chr(10) )
for each $key in $arrKeys
if $key
$value = ReadProfileString( $tmpfile, $section, $key )
endif
next
endif
next
$d2 = @TICKS - $start
right( " "+$size,8 )
right( " "+$d1,8 )
right( " "+$d2,8 )
" "
$inifile
?
DEL $tmpfile
endif
next
;-- insert your ini functions here