【已解决】数组写入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

先取现有数据，再连接

1. Local $fini = "c:\test.ini"
   
2. For $i = 1 To $Array[0][0]
   
3.         $Series = StringRegExp($Array[$i][0], '(\w+)-', 1)
   
4.         If @error Then
   
5.                 ContinueLoop
   
6.         Else
   
7.                 IniWrite($fini, "Class", "Series", IniRead($fini, "Class", "Series", "") & $Series[0] & "-|")
   
8.                 $SubSeries = StringRegExp($Array[$i][0], '-(\w+)', 1)
   
9.                 If Not @error Then
   
10.                         IniWrite($fini, "Class", $Series[0] & "-", IniRead($fini, "Class", $Series[0] & "-", "") & $SubSeries[0] & "|")
    
11.                 EndIf
    
12.         EndIf
    
13. Next

复制代码

voiovoiov

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

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