关于按键精灵数组的一个问题
我想给一个二维数组赋值dimi,Text,MyArray(2,2)Text=File.ReadFileEx("C:\123.txt")MyArray=Split(Text...
我想给一个二维数组赋值dim i,Text,MyArray(2,2)
Text = File.ReadFileEx("C:\123.txt")
MyArray= Split(Text, "|")
MessageBox MyArray(1,1)调试的时候它老说第二行缺少对象’FILE‘,第三行类型不匹配我在txt里面写的是0|1|2|3|4|5|6|7|8跪求高手给个解答,小弟万分感激 展开
Text = File.ReadFileEx("C:\123.txt")
MyArray= Split(Text, "|")
MessageBox MyArray(1,1)调试的时候它老说第二行缺少对象’FILE‘,第三行类型不匹配我在txt里面写的是0|1|2|3|4|5|6|7|8跪求高手给个解答,小弟万分感激 展开
2013-06-24
展开全部
n=0
Text = Plugin.File.ReadFileEx("c:\123.txt")
txtArray=Split(Text,"|")
Dim b4(2,2)
For i=0 to 2For j=0 to 2b4(i,j)= txtArray(n)
n=n+1
Next
Next
Text = Plugin.File.ReadFileEx("c:\123.txt")
txtArray=Split(Text,"|")
Dim b4(2,2)
For i=0 to 2For j=0 to 2b4(i,j)= txtArray(n)
n=n+1
Next
Next
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询