字符串数组问题
我这边样把一个字符串进行分割,
Dim str As String 'str中的值是这样的:1,2,3,4,5,6
Dim strings() As String
strings() = Split(str, ", ") '分段读也字符中的数据。
Text1.Text = strings(0)
Text2.Text = strings(1)
Text3.Text = strings(2)
Text4.Text = strings(3)
Text5.Text = strings(4)
Text6.Text = strings(5)
Text7.Text = strings(6)
前面几句没有问题,只是在Text7.Text = strings(6)出现了问题,因为没有对strings(6)进行赋值,我用 strings(6) = " " 来判断也不行,有没有哪位高手知道这个strings(6)怎么进行判断?
[解决办法]
你数组上标最大值是5,不可能为6啊
如果你非要给text7赋值的话可以这样
Dim str As String 'str中的值是这样的:1,2,3,4,5,6
Dim strings() As String
strings() = Split(str, ", ") '分段读也字符中的数据。
Text1.Text = strings(0)
Text2.Text = strings(1)
Text3.Text = strings(2)
Text4.Text = strings(3)
Text5.Text = strings(4)
Text6.Text = strings(5)
if ubound(strings)=6 then
Text7.Text = strings(6)
else
text7.text= "数组上标超出界限 "
end if