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

cashiba

Local $File=@ScriptDir & "\idx.ini"
local $Farr[3]=["F1","F2","F3"]     ;字段名集合
Local $Seca[2][2] = [["K1", "T1"], ["K2", "T2"]]     ;字段F1的内容
Local $Secb[3][2] = [["K3", "T3"], ["K4", "T4"],["K5", "T5"]]     ;字段F2的内容
Local $Secc[4][2] = [["K6", "T6"], ["K7", "T7"],["K8", "T8"],["K9", "T9"]]     ;字段F3的内容
Local $Sarr[3]=[$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[0]
    local $KTar= IniReadSection($File, $Farr[$i])
    If @error Then
       ConsoleWrite("读取INI文件失败." & @CRLF)
        Else
           ConsoleWrite("[" & $Farr[$i] & "]" & @CRLF)
       For $j = 1 To $KTar[0][0]
           ConsoleWrite($KTar[$j][0] & " = " & $KTar[$j][1] & @CRLF)
       Next
        EndIf
next
EndFunc

cfanpc

数组看晕了  谢谢分享

cashiba

数组看晕了  谢谢分享
cfanpc 发表于 2016-11-3 17:07

数组都差不多已经简化成模型了，足够能看明白啦....

abcd1258

谢谢楼主分享

chishingchan

楼主发错版块了，这个可不属于提问版块。

xin266

不错              的哦

ddrs

谢谢楼主分享

ddrs

谢谢楼主分享

lbgws2

很好,正需要的,谢谢了

dnvplj

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