yinle 发表于 2009-7-19 15:00:57

数组赋值报错,请帮我指出错误

本帖最后由 yinle 于 2009-7-19 15:07 编辑

第一次弄数组 测试了帮助文件里面的代码 如下:
#include <Array.au3>

Dim $avArray
$avArray = "JPM"
_ArrayDisplay( $avArray, "原来的数组" )
_ArrayAdd( $avArray,"Brian")
_ArrayDisplay( $avArray, "更新后的数组" )

运行成功

可我自己的代码就报错,运行不能继续,请帮我指出错误
#include <IE.au3>
#include <Array.au3>

Dim $a,$b,$c,$d,$e,$f,$g,$h,$i,$j,$l,$m,$n,$o,$p,$q,$r,$s,$t,$u,$x,$y

Dim $arr
$arr = 'abcdefghijklmnopqrst'
y = 0
.
.
省略
.
.
For $x = 1 to 690 Step 1
Do
      If StringInStr($s,$k) == 0 Then ExitLoop
        $s = StringRight($s,StringLen($s)-StringInStr($s,$k)+1-StringLen($k))
        $m = StringLeft($s,StringInStr($s,$l)-1)
      $u = $k & $m
        If y == 0 Then $arr =$u
        If y > 0 Then _ArrayAdd($arr,$u)
        MsgBox(0,"",$k&$m&@CRLF&string($y))
        _ArrayDisplay( $arr, "数组" )
        $y = $y + 1
Until 0
Next

如上,运行到 “If y = 0 Then $arr =$u” 时候提示错误“Error parsing function call.”
如果注释掉这行 运行到下一行 “If y > 0 Then _ArrayAdd($arr,$u)”也提示同意的错误,以上DIM中 除了$x $y是整形,其他全部变量都是字符串,数组$arr是字符串数组,并且确保$u是非空字符串,但是长度要比赋值时候要长得多。

请帮我指出错误,困恼我2天了 .....谢谢

yinle 发表于 2009-7-19 16:46:34

:face (3):
我太白痴了 不好意思太白痴的错误了

不用回复了
页: [1]
查看完整版本: 数组赋值报错,请帮我指出错误