读取ini 用iniread怎么读取这样的格式？

xin266

[haoma]
1136613=123
311534=123
106278840=123
29508515=123



请问用iniread怎么写？

duck904

MsgBox(0,"",iniRead ( "a.ini", "haoma", "1136613", "" ))

IniWrite("a.ini","haoma","1136613","321")

MsgBox(0,"",iniRead ( "a.ini", "haoma", "1136613", "" ))

xin266

[haoma]
account=passs

我的意思是 用iniread 读取 不用 IniReadSection读取



    ini 有很多行    account  和pass 都是数字 会变的

duck904

你key不知道，不用IniReadSection太难了吧，常规做法用IniReadSection读取account和pass的数组

你非要用那就，读到account List 后再一个个iniRead读呗，我是小白乱说的

魔导

小弟没看明白楼主要的是什么
1.读取某个值？
2.读取很多的值和关键字？
3.用 IniRead 读取很多的值？

魔导

1.

IniRead("a.ini","haoma","1136613","321")

2.

IniReadSection("a.ini","haoma")

3.

$a = IniReadSection("总记录.ini","2012年08月14日")
For $i = 1 To $a[0][0]
        MsgBox(0,0,IniRead("总记录.ini","2012年08月14日",$a[$i][0],"0"))
Next

HebeMoon

你的key不固定并且未知的情况下，就必须要用IniReadSection读呀，楼上第3个代码就可以满足你的需求呢！

pris

您的用户组升级为 新手上路 4 分钟前
看看我能做什么
您的用户组升级为 注册会员 10 分钟前
看看我能做什么

--怎么我又回到 新手上路，谁干的？

pris

注册会员 又回来了？

xin266

IniReadSection读 取的qq号码 经常会在前面多出一个字母 不知道是不是bug

魔导

回复 10# xin266


    没有发现您说的这么个情况啊  ，您试试这个码看：

For $i = 0 To 10
IniWrite (@ScriptDir&'\我的QQ账号.ini', "QQ账号",'第一'&$i&'个QQ',$i&$i&$i&$i&$i&$i&$i&$i)
Next
$qq = IniReadSection(@ScriptDir&'\我的QQ账号.ini', "QQ账号")
For $i = 1 To $qq[0][0]
MsgBox(0,"这是第"&$i&"个QQ。",$qq[$i][1])
Next

txxdhnt

学习了，      顶起来

魔导

怎么 说？   还没搞定？
楼主冒个泡啊

xin266

回复 12# 魔导

Local $var = IniReadSection("acc.ini", "haoma")
        If @error Then
                MsgBox(4096, "", "错误, 读取INI文件失败.")
        Else
                For $i = 1 To $var[0][0]
                        Run("D:\Program Files\Tencent\Bin\QQ.exe")
                        Sleep(500)
                        WinWait("QQ2012", "", "900")
                        Sleep(500)
                        ControlClick("QQ2012", "", "Edit1", "left")
                        Sleep(200)
                        Send("+{TAB}")
                        Send($var[$i][0])

看我这样写读取ini 有啥问题不  主要就是读取号码的时候        qq号前面  有时会 自动添加一个字母

duck904

不知道为什么会多出些字符，单可以把字符处理掉

Local $var = IniReadSection("acc.ini", "haoma")
        If @error Then
                MsgBox(4096, "", "错误, 读取INI文件失败.")
        Else
                For $i = 1 To $var[0][0]
                        Run("D:\Program Files\Tencent\Bin\QQ.exe")
                        Sleep(500)
                        WinWait("QQ2012", "", "900")
                        Sleep(500)
                        ControlClick("QQ2012", "", "Edit1", "left")
                        Sleep(200)
                        Send("+{TAB}")
                        ;Send($var[$i][0])
                                                $sNewStr = StringRegExpReplace ( $var[$i][0], "(\D*)(\d+)(\D*)","$2");处理成纯数字
                                                Send($sNewStr)