论坛 › 已解决问题区 › 【已解决】数组写入ini文件问题

voiovoiov 发表于 2022-5-24 16:33:31

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

本帖最后由 voiovoiov 于 2022-5-24 17:10 编辑

想将以下数组写入ini里边


想要达到的效果：

代码：

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

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


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

afan 发表于 2022-5-24 17:03:17

先取现有数据，再连接
Local $fini = "c:\test.ini"
For $i = 1 To $Array
        $Series = StringRegExp($Array[$i], '(\w+)-', 1)
        If @error Then
                ContinueLoop
        Else
                IniWrite($fini, "Class", "Series", IniRead($fini, "Class", "Series", "") & $Series & "-|")
                $SubSeries = StringRegExp($Array[$i], '-(\w+)', 1)
                If Not @error Then
                        IniWrite($fini, "Class", $Series & "-", IniRead($fini, "Class", $Series & "-", "") & $SubSeries & "|")
                EndIf
        EndIf
Next

voiovoiov 发表于 2022-5-24 17:09:49

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

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

查看完整版本: 【已解决】数组写入ini文件问题