【已解决】数组写入ini文件问题

voiovoiov

想将以下数组写入ini里边


想要达到的效果：

代码：

For $i = 1 To $Array[0][0]
        $Series = StringRegExp($Array[$i][0], '(\w+)-', 1)
        If @error Then
                ContinueLoop
        Else
                IniWrite("c:/test.ini", "Class", "Series", $Series[0]&"-|")
                $SubSeries = StringRegExp($Array[$i][0], '-(\w+)', 1)
                If Not @error Then
                        IniWrite("c:/test.ini", "Class", $Series[0] & "-", $SubSeries[0] & "|")
                EndIf
        EndIf
Next

以上代码出来的实际效果：


请问是哪里错了？麻烦指导一下，谢谢。

afan

先取现有数据，再连接

Local $fini = "c:\test.ini"
For $i = 1 To $Array[0][0]
        $Series = StringRegExp($Array[$i][0], '(\w+)-', 1)
        If @error Then
                ContinueLoop
        Else
                IniWrite($fini, "Class", "Series", IniRead($fini, "Class", "Series", "") & $Series[0] & "-|")
                $SubSeries = StringRegExp($Array[$i][0], '-(\w+)', 1)
                If Not @error Then
                        IniWrite($fini, "Class", $Series[0] & "-", IniRead($fini, "Class", $Series[0] & "-", "") & $SubSeries[0] & "|")
                EndIf
        EndIf
Next

voiovoiov

afan 发表于 2022-5-24 17:03
先取现有数据，再连接

感谢A版，测试过没问题，受益匪浅