[已解决]ini格式转换困惑

jycel

解决方法：二楼
二个配置文件
listA.ini和listBini
listA.ini格式
[程序列表]
病毒免役=病毒免役.bat
服务优化=服务优化.bat
磁盘清理=磁盘清理.bat
端口关闭=端口关闭.bat

listBini格式
[字段名]
正确定的
关键字=病毒免役|服务优化|磁盘清理|端口关闭


我从listA.ini中读取配置文件，转换成listB.ini的格式
如我写的代码
前面会生成一个空字符，不知道还有没有更好的方法不要它
因为表中中关键字我无法确定有多位，有可能更多！
错误的：关键字=|毒免役|服务优化|磁盘清理|端口关闭

$ini="listA.ini"
$list="listB.ini"
Dim $listsj=IniReadSection($ini,"程序列表")
If @error Then
        MsgBox(0,"提示:附加程序列表读取失败！原因:未找到相关数据！")
Else
                IniDelete($list,"字段名","关键字")
        For $l = 1 to $listsj[0][0]
                $j=IniRead($list,"字段名","关键字","")
                IniWrite($list,"字段名","关键字",$j&"|"&$listsj[$l][0])
        next
EndIf

afan

Dim $ini = "listA.ini", $list = "listB.ini"
$listsj = IniReadSection($ini, "程序列表")
If @error Then Exit (MsgBox(0, "提示:附加程序列表读取失败！原因:未找到相关数据！"))
IniDelete($list, "字段名", "关键字")
For $l = 1 To $listsj[0][0]
        $j = IniRead($list, "字段名", "关键字", "")
        If $l = 1 Then IniWrite($list, "字段名", "关键字", $listsj[$l][0])
        If $l > 1 Then IniWrite($list, "字段名", "关键字", $j & "|" & $listsj[$l][0])
Next

jycel

学习了！谢谢哈！