论坛 › 『 提问交流 』 › 练习读写ini文件，给我一样的新手参考...

cashiba 发表于 2016-11-2 23:51:46

练习读写ini文件，给我一样的新手参考...

本帖最后由 cashiba 于 2016-11-3 18:34 编辑


Local $File=@ScriptDir & "\idx.ini"
local $Farr=["F1","F2","F3"]   ;字段名集合
Local $Seca = [["K1", "T1"], ["K2", "T2"]]   ;字段F1的内容
Local $Secb = [["K3", "T3"], ["K4", "T4"],["K5", "T5"]]   ;字段F2的内容
Local $Secc = [["K6", "T6"], ["K7", "T7"],["K8", "T8"],["K9", "T9"]]   ;字段F3的内容
Local $Sarr=[$Seca,$Secb,$Secc]   ;以上三字段内容集合

WritIniAll($File,$Farr,$Sarr)
Func WritIniAll($File,$Farr,$Sarr)
for $i=0 to UBound($Farr)-1
    If @error Then
       ConsoleWrite("写入INI文件失败." & @CRLF)
        Else
       IniWriteSection($File, $Farr[$i],$Sarr[$i],0)
           If @error Then ConsoleWrite("写入INI字段失败." & @CRLF)
        EndIf
next
EndFunc

ReadIniAll($File)
Func ReadIniAll($File)
Local $Farr= IniReadSectionNames($File)
for $i=1 to $Farr
    local $KTar= IniReadSection($File, $Farr[$i])
    If @error Then
       ConsoleWrite("读取INI文件失败." & @CRLF)
        Else
           ConsoleWrite("[" & $Farr[$i] & "]" & @CRLF)
       For $j = 1 To $KTar
         ConsoleWrite($KTar[$j] & " = " & $KTar[$j] & @CRLF)
       Next
        EndIf
next
EndFunc

cfanpc 发表于 2016-11-3 17:07:59

数组看晕了谢谢分享

cashiba 发表于 2016-11-3 18:27:21

数组看晕了谢谢分享
cfanpc 发表于 2016-11-3 17:07 http://www.autoitx.com/images/common/back.gif
数组都差不多已经简化成模型了，足够能看明白啦....
{:face (303):}

abcd1258 发表于 2016-11-5 15:14:32

谢谢楼主分享

chishingchan 发表于 2016-11-6 19:41:21

楼主发错版块了，这个可不属于提问版块。{:face (303):}

xin266 发表于 2016-11-7 08:32:04

不错            的哦

ddrs 发表于 2016-11-7 13:56:25

谢谢楼主分享

ddrs 发表于 2016-11-7 13:56:25

谢谢楼主分享

lbgws2 发表于 2016-11-16 11:29:55

很好,正需要的,谢谢了

dnvplj 发表于 2016-11-28 11:05:46

很好，谢谢分享，LZ要是做个完整版的就最好了，把读到的信息显示到界面上。

查看完整版本: 练习读写ini文件，给我一样的新手参考...