410521a 发表于 2010-7-6 21:48:44

这样的随机数读取`` 我写的有错吗？》[已解决]

本帖最后由 410521a 于 2010-7-7 19:22 编辑

$suiji = IniReadSection("Config.ini", "Config")
If @error Then
msgBox(0,"","读取失败")
else
$suijishu = $suiji
$chaifen = StringSplit($suijishu, '|', 1)
MsgBox(0,"",$chaifen&@crlf&$chaifen&@crlf&$chaifen&@crlf&$chaifen&@crlf&$chaifen)$suijishu = $suiji   
endif
这行要怎么写？ 哪位大哥如果回答了`记得要带上注释``标记每个函数的说明比如
ini
config
123456=的的|5|655|123456|www

1         2            3
这是1    这是2      这是3

410521a 发表于 2010-7-6 22:19:51

自问自答$suiji = IniReadSection("Config.ini", "Config")
If @error Then
MsgBox(0,"","读取失败")
Else
$suijishu = $suiji
$chaifen = StringSplit($suijishu, '|', 1)
MsgBox(0,"",$chaifen&@crlf&$chaifen&@crlf&$chaifen&@crlf&$chaifen&@crlf&$chaifen)
EndIf

410521a 发表于 2010-7-6 22:26:08

但有出错机率为什么？

D:\??\??\??01\????.au3 (441) : ==> ?????????????.:
$suijishu = $suiji
$suijishu = ^ ERROR

水木子 发表于 2010-7-6 22:48:22

要达到什么目的呢？？？

410521a 发表于 2010-7-6 22:57:24

回复 4# 水木子


    目的达到了``但按的多了会出错

水木子 发表于 2010-7-6 23:04:20

你这个数组元素只有为1的时候才能正常显示啊！超出了当然会出错。

只有1组随机没什么意义啊！

410521a 发表于 2010-7-7 08:54:40

回复 6# 水木子


    大哥说清楚点行吗？我对数组`不感冒``

3mile 发表于 2010-7-7 10:26:38

Local $suiji,$chaifen,$suijishu
$suiji = IniReadSection("config.ini", "config")
If @error Then
        MsgBox(0, "", "读取失败")
Else
        $suijishu = $suiji;UBound($suiji)-1使数组值有效
        $chaifen = StringSplit($suijishu, '|', 1)
        MsgBox(0, "", $chaifen & @CRLF & $chaifen & @CRLF & $chaifen & @CRLF & $chaifen & @CRLF & $chaifen)
EndIf

config.ini内容如下
123456=的的|5|655|123456|www
ABCDEf=dsfe|3234|dfs|rewrew|dfd
dfir=dsif|非国大|右拐灰质|膛地|堆肥|门当户对|无奇不有|服务庆|阿姆斯特丹|零配件

3mile 发表于 2010-7-7 10:28:06

回复 1# 410521a
注意语气也许会得到更多的帮助

410521a 发表于 2010-7-7 11:18:41

回复 8# 3mile


    好像不行`

3mile 发表于 2010-7-7 12:40:55

回复 10# 410521a

如果有错误请给出错信息。

410521a 发表于 2010-7-7 12:53:39

回复 11# 3mile


    把INI数据里边删除只留一个试试

3mile 发表于 2010-7-7 13:22:26

经测试：Random(1,1,1)将返回错误Local $suiji, $chaifen, $suijishu
$suiji = IniReadSection("config.ini", "config")
If @error Then
        MsgBox(0, "", "读取失败")
Else
        $random = Random(1, UBound($suiji) - 1, 1)
        If $random = 0 Then $random = 1;定义随机数不可为０
        $suijishu = $suiji[$random];UBound($suiji)-1使数组值有效
        $chaifen = StringSplit($suijishu, '|', 1)
        MsgBox(0, "", $chaifen & @CRLF & $chaifen & @CRLF & $chaifen & @CRLF & $chaifen & @CRLF & $chaifen)
EndIf

410521a 发表于 2010-7-7 15:44:13

回复 13# 3mile


    非常感谢``

rikthhpgf2005 发表于 2010-7-7 16:14:38

有有意思{:face (382):}
页: [1]
查看完整版本: 这样的随机数读取`` 我写的有错吗？》[已解决]