vb在文本框中如何自动识别行和列
vb 6.0中想在文本框中自动识别行和列，写了一个代码，Dim c() As String
Dim cc() As String
c = Split(Text1.Text, Chr(13) & Chr(10))
cc(i) = Split(c(i))
m=ubound(c())+1
n=ubound(cc())+1
但是如果用户输入的数据后按了回车或多个空格和回车就显示下标越界了，麻烦大家帮帮忙！ --------------------编程问答-------------------- 加上一个判断，去掉空行。 --------------------编程问答-------------------- 我是新手 麻烦帮我把代码简单写下被 是用trim函数吗 谢谢 --------------------编程问答-------------------- Dim c() As String
Dim cc() As String
on error goto errhandler '数组可能为空，必须对此类错误做简单处理
c = Split(trim(Text1.Text), vbcrlf) '回车换行有直接的VB常量可以用，不需要自己生成
cc = Split(c(0)," ") '使用第一行，可以避免多余的回车产生的错误
m=ubound(c)
if c(m)<>"" then m=m+1 '判断最后是否有多余的回车，如果有，则抛弃，否则保留
n=ubound(cc)+1
exit sub
errhandler： --------------------编程问答-------------------- 如果输入的数据是这样的
1 2 3
4 5 6
7 8 9
这样的行和列就不对了怎么办
就是7 8 9下面有两行里面有空格
谢谢 --------------------编程问答-------------------- 改变n的算法吧
dim i as long
m=0
for i=0 to ubound(c)
if trim(c(i))<>""then
m=m+1
end if
next
n=0
for i=0 to ubound(cc)
if trim(cc(i))<>"" then n=n+1
next --------------------编程问答-------------------- 谢谢 成功了
补充：VB , 控件
