$ini=@ScriptDir&"\ini.ini" ;定义ini文件路径
$var=IniRead($ini,"配置","卡号","") ;读取卡号的值
$array=StringSplit($var,";") ;通过分号分割$var
$log=@ScriptDir&"\log.txt" ;定义log.txt路径
$open=FileOpen($log) ;打开log.txt
$data=FileRead($open) ;读取log.txt文件内容,实际上不用fileopen获取句柄,直接读取也可,俺习惯使然
FileClose($open) ;关闭log.txt文件
For $i=1 To $array[0] ;循环判断log.txt中是否包含ini文件定义的卡号
$chk=StringInStr($data,$array[$i]) ;在$date中查找是否存在卡号字符串
If $chk<>0 Then ExitLoop ;如有,则跳出for...next循环,执行下面的程序
If $i=$array[0] Then Exit ;最后一次循环还是无发现,则退出程序
Next
|