renren 发表于 2012-11-2 20:35:41

ini 写入格式问题`

本帖最后由 renren 于 2012-11-2 20:36 编辑


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

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

afan 发表于 2012-11-2 21:07:58

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 发表于 2012-11-2 21:09:57


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

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

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

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

半芯竹 发表于 2012-11-2 21:14:11

本帖最后由 半芯竹 于 2012-11-2 21:17 编辑

回复 1# renren
真有点怀疑你是否版主。。
#include <File.au3>
Local $CountLines = _FileCountLines("1.txt")
Local $file = FileOpen("1.txt", 0)
Local $line,$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 发表于 2012-11-3 00:43:01

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

你看下这是你要的效果么？
半芯竹 发表于 2012-11-2 21:14 http://www.autoitx.com/images/common/back.gif

哈哈，这个有意思。

hzxymkb 发表于 2012-11-3 13:46:50

回复 4# 半芯竹


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

夜猫猫 发表于 2012-11-3 13:58:52

A斑 是灌水来着
页: [1]
查看完整版本: ini 写入格式问题`