Question

按键精灵数字和元素的问题。

Dim intX, intY,arr(19),arr_new(20)

arr_new = Array(arr(1), arr(2), arr(3), arr(4), arr(5),arr(6),arr(7),arr(8),arr(9),arr(10),arr(11),arr(12),arr(13),arr(14), arr(15),arr(16),arr(17),arr(18),arr(19),arr(20))

我是想把很多号码放到一个文本里然后逐行读取，读取后忽略第一行的内容，生成新的数组，但是以上方法可以实现，但是每次只能放入20个号码，想请教一下各位大大，如果放更多的号码这两个地方该怎么写，难道文本里有多少号码，arr_new = 这里就要写多少吗？

Answer 1

你上面定义的是Dim arr(19),arr_new(20)，所以arr最多放20个元素，arr_new放21个元素（从0开始算的），超过就不行，如果你放100个，你至少要定义arr(99)，当然你定义arr(1000)也可以，假如你想动态分配，就用另外的方法定义，方法如下：
m=20
ReDim arr(m)
这样，数组元素就根据m的值改变，你不确定个数可以这样做，前面m的值就读文本，统计账号个数，然后用ReDim arr(m)

追问

具体代码该怎么写，能给个例子脚本吗？我是新手，谢谢了

追答

已经很详细了，再说，你文本的内容我不清楚，也无法提供代码给你，别老拿自己是新手就可以什么都不管，我当时学的时候也是新手，我学了两个月才学会读文件，谁一开始都是新手。

追问

在这里问是为了解决问题的，你这样说我还是一头雾水，有例子脚本的话可以根据例子脚本理解每个命令的意思，这样学更简单。

文本内容全及格式如下
321321
654646546
654654

追答

文件路径我放在C:\123.txt

Text = Plugin.File.ReadFileEx("C:\123.txt")
MyArray = Split(Text, "|")
m = UBound(MyArray)
MessageBox m

ReDim arr(m)

这样，m的值就出来了，我前面提到：前面m的值就读文本，统计账号个数，然后用ReDim arr(m)，就是这个意思，你说你是新手，不会写代码。按键精灵其实有代码例子，请看图：

这已经很详细了，现在我问你，你有耐心去看过吗？