论坛 › 『 提问交流 』 › 数组变非数组问题？？？求助

bj17209 发表于 2012-8-7 23:30:00

数组变非数组问题？？？求助

If Not FileExists(@TempDir & '\key.ico') Then Exit (MsgBox(48, $ip, "服务器授权文件错误！"))
        Dim $avArray
        Dim $a, $array
        $disk = @TempDir & "\key.ico"
        _FileReadToArray($disk, $avArray)

       
       
        For $x = 1 To $avArray
                $aAa = $avArray[$x]
                Local $array = StringRegExp($aAa, '(.*)#(.*)', 1)
                $a = $array
                $b = $array
                MsgBox("", "", $a)
        Next



        Local $aiResult = _ArrayFindAll($a, $ip)
        Local $aiResultmac = _ArrayFindAll($a, $MAC)



key.ico
的内容为sdfwqrdvwwerf2334#1
                Local $array = StringRegExp($aAa, '(.*)#(.*)', 1)
                $a = $array
需要读取#号左面的值付给$a 但是就错误就出现在这里，
提示子脚本使用了非数组变量！
帮帮忙啊

afan 发表于 2012-8-7 23:43:13

只有一行干嘛还 _FileReadToArray?
只有一行干嘛还 For?
$aAa = 'sdfwqrdvwwerf2334#1'
$array = StringRegExp($aAa, '(.+)#(.+)', 1)
MsgBox(0, $array, $array)

bj17209 发表于 2012-8-8 01:17:56

大哥，是多行啊！！！
是有好多行啊，我不过是举例一个啊
sdfsafdafgarf#1
daf23fafa342#1
af35yhthhfsg#1

afan 发表于 2012-8-8 01:29:11

大哥，是多行啊！！！
是有好多行啊，我不过是举例一个啊
sdfsafdafgarf#1
daf23fafa342#1
af35yhthhfs ...
bj17209 发表于 2012-8-8 01:17 http://www.autoitx.com/images/common/back.gif


    一楼在哪里看出多行了？ 多行的话有没有空行或非xxx#x格式的行？
你的问题其实很简单

bj17209 发表于 2012-8-8 02:38:31

大哥，给个解决方法啊
一到 $a = $array
就停止了啊！！
提示子脚本使用了非数组变量！
帮帮忙啊，急死了啊

afan 发表于 2012-8-8 02:48:50

回复 5# bj17209


    答非所问…… 睡了

shqf 发表于 2012-8-8 10:30:23

本帖最后由 shqf 于 2012-8-8 10:31 编辑

在适当的地方插入数组调试语句，看看数组变量$avArray、$array 的内容或相应语句的@error的值再作判断吧。很有可能是文件内容的问题，导致StringRegExp($aAa, '(.*)#(.*)', 1)语句匹配不成功。

查看完整版本: 数组变非数组问题？？？求助