ini 写入格式问题`

renren

如何读取 txt 文件中这样 顺序的 数据，

再 写入 ini 文件 XX关键字 =  这样的格式

afan

Local $Str = _
                'SKZB01' & @CRLF & _
                ' SKZB03' & @CRLF & _
                ' SKZB76 ' & @CRLF & _
                'SKZB14t  ' & @CRLF & _
                '  SKzb52t' & @CRLF & _
                'servert  ' & @CRLF & @CRLF
MsgBox(0, '原字符串', $Str)
Local $sVal = StringRegExpReplace($str, '\h*\r\n\h*(?=\V)|(?<=\S)\s*$', ';')
MsgBox(0, '替换结果', $sVal)

IniWrite('test.ini', 'Uselist', 'maclist', $sVal)

veket_linux

;读文件
$fileHandle = FileOpen(@ScriptDir & "\1.txt")
$buf = FileRead($fileHandle)
FileClose($fileHandle)

;拆分到数组
$array = StringSplit($buf, @CRLF, 1)

;再用分号拼接上
$buf = ""
For $i = 1 To $array[0] - 1
        $buf &= $array[$i] & ";"
Next
$buf &= $array[$i]

;写入Ini
IniWrite(@ScriptDir & "\2.ini", "Uselist", "maclist", $buf)

半芯竹

回复 1# renren
真有点怀疑你是否版主。。

#include <File.au3>
Local $CountLines = _FileCountLines("1.txt")
Local $file = FileOpen("1.txt", 0)
Local $line[100],$temp
If $file = -1 Then
    MsgBox(4096, "错误", "不能打开文件.")
    Exit
EndIf
For $i =1 To $CountLines
     $line[$i] = FileReadLine($file)
    If @error = -1 Then ExitLoop
        $temp=$temp&$line[$i]&';'
Next
FileClose($file)
IniWrite(@ScriptDir&"\my.ini", "Uselist", "maclist", $temp)

你看下这是你要的效果么？

lpxx

回复  renren
真有点怀疑你是否版主。。

你看下这是你要的效果么？
半芯竹 发表于 2012-11-2 21:14

哈哈，这个有意思。

hzxymkb

回复 4# 半芯竹


    版主就要会AU3？我也不会AU3哇！

夜猫猫

A斑 是灌水来着