如何 利用AU3调动目录下所有ini文件关键字内容的位置？[已解决]

afan

回复 15# minbiao


    这么做有什么意义呢？你是不是想统计修改了多少个？

minbiao

是的！ 刚刚开始学AU3，想多接触一些！

afan

#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[0]
        $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

谢谢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[0]
        $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',"列表")

afan

#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[0]
        $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[0]
        IniWrite($aFile[$i], "配置", "12300", "48")
Next

lion.lee

佩服afan兄的耐心！真幸运咱们论坛有这样热心的版主，afan兄辛苦了！

水木子

佩服afan兄的耐心！真幸运咱们论坛有这样热心的版主，afan兄辛苦了！
lion.lee 发表于 2010-6-27 10:23

是啊！有这么热心的版主，真是我们的福气。

minbiao

佩服afan兄的耐心！真幸运咱们论坛有这样热心的版主，afan兄辛苦了！

没错！小弟确实受益匪浅， afan大大辛苦了！ 万分感谢！

非典男人

学习受教了 谢谢 楼主及楼上的 能人

feicuiboy

afan真乃神人啊。耐心。。。