数组的问题！帮忙看一下！

Question

Dim InputStr As String
 Dim FieldsStr() As String
FieldsStr() = Split(InputStr, -1)
为什么我用FieldsStr(0),FieldsStr(1)......
会提示下标越界呢？要怎么改呀

Answer 1

用 UBound(Fieldsstr) 取得数组上界，下标不能超过该值

Answer 2

InputStr如果这个字符串为：
1  2  3  4  1  2......
那怎么做呀
我要FieldsStr(0)=1
FieldsStr(1)=2
FieldsStr(2)=3
......

Answer 3

如果FieldsStr() = Split(InputStr, -1)这样
FieldsStr(0)=1  2  3  4  1  2
我不要这样的，要FieldsStr(0)=1
怎么改!

Answer 4

帮忙看一下！
例如我有一个txt文件：内容为:
1  2  3  4  1  2
2  1  2  2  1  0
......我想把把写入到数据库中,可是我现在得到的是:
FieldsStr(0)=1  2  3  4  1  2
我想得到的是:FieldsStr(0)=1有哪位帮一下忙！
msn:[email protected]
分可以再加！

Answer 5

FieldsStr = Split(InputStr," ")

Answer 6

InputStr="1 2 3 4 1 2"
FieldsStr=Split(InputStr," ",-1)
用空格来分隔就好了:)

Answer 7

晕，分隔符用-1是什么意思?
默认就是用空格的
FieldsStr = Split(InputStr)

Answer 8

哦，明白了，是少了个逗号吧？-1是第三个参数
FieldsStr = Split(InputStr,,-1)

Answer 9

你的字符之间的分隔符是什么？
如果是 Tab：
FieldsStr() = Split(InputStr, vbTab)如果是空格：
Do While InStr(InputStr, Space(2)) > 0
   InputStr = Replace(InputStr, Space(2), Space(1))
Loop
FieldsStr() = Split(InputStr, Space(1)) 

Answer 10

呵呵，如果有多个空格的话，先替换成一个空格：
Do While InStr(InputStr, "  ") > 0
   InputStr = Replace(InputStr, "  " , " ")
Loop

Answer 11

----of123()
还是 of123() 聪明!

Answer 12

例如我有一个txt文件：内容为:
1  2  3  4  1  2
2  1  2  2  1  0
1  2  2  2  1  2
当我读到最后一条时，会出现输入超出文尾的提示：While Not InputStr = ""
            InputStr = sr.ReadLine
            If InputStr = "" Then
                exit sub
            End If