vb未知文本框内容数量，怎么将文本框内容赋值给变量？数组分割后存入变量的方法

2013-09-10 10:18:51 239 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

SAP LTMC实战指南：物料主数据高效导入全解析本文详细解析了SAP LTMC工具在物料主数据高效导入中的实战应用，包括工具选择、项目搭建、模板定制、数据导入全流程及常见问题解决方案。重点介绍了LTMC的预置模板、LTMOM灵活配置、数据校验机制等核心功能，帮助用户快速掌握SAP数据迁移技巧，提升工作效率。阅读详情

问题请教下各位，文本框的坐标文本,
例如：111,222回车333,444回车555,666,这样的格式不确定有多少组
怎样才能不下标越界，请教高手优化代码，或给方法，我是新手，请大家多多关照
Private Sub Command1_Click()
Dim linestring() As String
Dim temp1() As String
Dim temp2() As String
Dim temp3() As String
Dim temp4() As String
Dim temp5() As String

linestring = Split(Text1.Text, Chr(13))
temp1() = Split(linestring(0), ",")
temp2() = Split(linestring(1), ",")
temp3() = Split(linestring(2), ",")
temp4() = Split(linestring(3), ",")
temp5() = Split(linestring(4), ",")
For i = 0 To UBound(temp1)
Print "数组1的第" & i + 1 & "项是： " & temp1(i)
Print "数组2的第" & i + 1 & "项是： " & temp2(i)
Print "数组3的第" & i + 1 & "项是： " & temp3(i)
Print "数组4的第" & i + 1 & "项是： " & temp4(i)
Print "数组5的第" & i + 1 & "项是： " & temp5(i)
Next i
End Sub

...全文