用如何实现这样的功能

来源：百度知道 编辑：UC知道 时间：2024/05/16 11:05:17
我建立了两个Text.
第一个Text1是控件数组(Text1(0)到Text1(9)十个元素组成的).

另一个是Text2不是数组。。

问题：
我想在Text2输入一些数字用“/”来分。
点击按钮时把Text2的内容按照“/”来分发送到Text1数组。
如果超过10有提示“输入的内容不能超过十个”

上面的过程如何实现？

注意有点小问题，就是输入的字符串如果小于10组最后也要加上"/"，否则会出现小错误，暂时没有想到怎么解决，先用着
Dim s, s1 As String
Private Sub Command1_Click()
Dim i, sum As Integer
s = Text2.Text
For i = 1 To Len(s)
If Mid(s, i, 1) = "/" Then sum = sum + 1
If sum >= 10 Then
MsgBox "输入的内容不能超过十个"
Exit Sub
End If
Next i

For i = 0 To 8
If Len(s) = 0 Then Exit For
Call jq
Text1(i).Text = s1
Next i
If i = 9 Then Text1(9).Text = s
Print i
End Sub

Sub jq()
Dim i As Integer
For i = 1 To Len(s) + 1
If Mid(s, i, 1) = "/" Then
s1 = Left(s, i - 1)
s = Right(s, Len(s) - i)
Exit For
End If
Next i
End Sub

如果是在WEB上的话，可以使用js处理。

先用String对象接收text2里的字符串
再用String[]对象接收text2.split("/"),注意"/"的正确表示方法
先判断String[]的长度 如果大于10就提示 else 按数组的下标分配到text1中