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

bj17209

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[0]
                $aAa = $avArray[$x]
                Local $array = StringRegExp($aAa, '(.*)#(.*)', 1)
                $a = $array[0]
                $b = $array[1]
                MsgBox("", "", $a)
        Next



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



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

afan

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

bj17209

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

afan

大哥，是多行啊！！！
是有好多行啊，我不过是举例一个啊
sdfsafdafgarf#1
daf23fafa342#1
af35yhthhfs ...
bj17209 发表于 2012-8-8 01:17

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

bj17209

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

afan

回复 5# bj17209


    答非所问…… 睡了

shqf

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