下标越界 - 编程论坛

#2

lovechang1982013-07-29 16:30

谢谢诸位，我知道了，b我没有指定具体的维数，j=0 to 5 中应该把5改成ubound（b）即可

#3

风吹过b2013-07-29 17:34

temp=replace(........   这行，容易导致出错。
修改为

   temp=station(i)            '给初值
do
   j=len(temp)                        '取长度
   temp=replace(temp,"  "," ")        '替换
loop while j<>len(temp)               '如果替换后的长度不等于替换前的长度，继续替换

另外，需要考虑 station(i) 为空的情况，也就是在读取数据时，要先判断一下数据是否为空，如果为空，需要跳过该行。

[ 本帖最后由风吹过b 于 2013-7-29 17:35 编辑 ]

#4

lovechang1982013-07-30 21:06

回复 3楼风吹过b

真的很谢谢你，我这样确实容易出错，因为我是超级菜鸟，而且对编程又是比较不在行。

就是关于你说的空行不读的问题，我就想问一下如果是末尾行是空行怎么解决？
另外您看这一段代码
Dim i As Integer, arr() As Integer
s = StrConv(InputB(LOF(1), 1), vbUnicode)
Close #1
While InStr(s, "  ") '空格处理
  s = Replace(s, "  ", " ")
Wend
s1 = Split(s, vbCrLf) '分行处理
这样做我把txt的所有字符行全都读入了，但是其中有些是我不想要的，比如前几行，我该怎么做呢？有时候就因为这个行数的原因总是导致下标超界的问题，烦恼不已
试了很多办法但都感觉是治标不治本，虽然能做出来，但是对于以后如果碰到不是这个固定行数的文件就又要修改读入的代码。。。

此外比如我有2w行，这其中包括前5行没用的，还有后面的2w-5行数据的头一列是从0 to 2w-4，我有一列我需要读入的行数，比如
    a（1）=5，a(2)=264,....一直到a（10）=n，这样很随机的一组数，我就要读这2w-5行中的这些行有什么简便的方法么，
最笨的当然是做一个循环从1到10，然后比较a（i）=data（j,0）了，然后输出j，在赋值就可以解决，但是觉得比较麻烦，应该有更简单的办法吧？
最后再次感谢你的热心帮助。
谢谢