这么做有什么意义呢？你是不是想统计修改了多少个？ 是的！ 刚刚开始学AU3，想多接触一些！ #include <File.au3>
$Dir = @ScriptDir & '\文件'
$File = _FileListToArray($Dir, '*.ini', 1)
If @error Then Exit MsgBox(0, 1, @error)
$x = 0
For $i = 1 To $File
$s_File = $Dir & '\' & $File[$i]
$val = IniRead($s_File, "配置", "12300", "")
If $val <> '48' Then
IniWrite($s_File, "配置", "12300", "48")
$x += 1
Endif
Next
msgbox(0, 0, '已修改文件数量：' & $x) 本帖最后由 minbiao 于 2010-6-24 18:38 编辑
谢谢afan ！小弟想多学几种方法
我自己搞了一个代码，就是把$val <> '48' 的文件名都提取到name.ini，
然后如何再读取name.ini里面的文件名列表来修改相应文件呢？#include <File.au3>
$Dir = @ScriptDir & '\文件
$File = _FileListToArray($Dir, '*.ini', 1)
If @error Then Exit MsgBox(0, 1, @error)
For $i = 1 To $File
$s_File = $Dir & '\' & $File[$i]
$val = IniRead($s_File, "配置", "12300", "")
If $val <> '48' Then IniWriteSection(@ScriptDir & '\name.ini',"列表", $File[$i])
Next
$filename = IniReadSection (@ScriptDir & '\name.ini',"列表") #include <File.au3>
$Dir = @ScriptDir & '\文件'
$File = _FileListToArray($Dir, '*.ini', 1)
If @error Then Exit MsgBox(0, 1, @error)
Dim $data = '', $txtFile = @ScriptDir & '\name.txt', $aFile
For $i = 1 To $File
$s_File = $Dir & '\' & $File[$i]
$val = IniRead($s_File, "配置", "12300", "")
If $val <> '48' Then $data &= $s_File & @CRLF
Next
FileWrite($txtFile, $data)
_FileReadToArray($txtFile, $aFile)
For $i = 1 To $aFile
IniWrite($aFile[$i], "配置", "12300", "48")
Next 佩服afan兄的耐心！真幸运咱们论坛有这样热心的版主，afan兄辛苦了！ 佩服afan兄的耐心！真幸运咱们论坛有这样热心的版主，afan兄辛苦了！
lion.lee 发表于 2010-6-27 10:23 http://www.autoitx.com/images/common/back.gif
是啊！有这么热心的版主，真是我们的福气。{:face (411):} 佩服afan兄的耐心！真幸运咱们论坛有这样热心的版主，afan兄辛苦了！
没错！小弟确实受益匪浅， afan大大辛苦了！ 万分感谢！ 学习受教了 谢谢 楼主及楼上的 能人 afan真乃神人啊。耐心。。。
页:
1
[2]