data.ini0078571023
0078558650
0078558581
0078550241
0078549468
0078551771
0078558565
0078557337
0078553524
0078551796
GetVal.au3$vfile = "data.ini"
$nRandomLine = Random(1,nReadLine($vfile)-1,1);注:nReadLine($vfile)-1,取INI文件的总行数,如果在最后一行是回车符则减1,没有回车符则不需减1
MsgBox(0,"第"&$nRandomLine&"的内容是",FileReadLine($vfile,$nRandomLine))
Func nReadLine($Val)
$file = FileOpen($Val, 0)
$xTemVal=0
While 1
$line = FileReadLine($file)
$xTemVal = $xTemVal + 1
If @error = -1 Then ExitLoop
Wend
FileClose($Val)
return $xTemVal
EndFunc
|