vb 实现类似word 页码选择的功能，用在仪器通道的选择

来源：百度知道 编辑：UC知道 时间：2024/05/30 10:30:02
vb 实现类似word 页码选择的功能，用在仪器通道的选择方面。例如我的仪器有60个通道，我要选择其中的连续的几个或不连续的几个工作。
如在文本框中输入“1-5” ，代表选择1到5共5个通道工作，“1，5”，表示选择1和5 这两个通道工作。
请各位高手指点
我还想加入输入验证的功能，只能输入类似“1-5”，“1，5”或“1-5，7，9”的字符串，含有字母或其他字符的输入都是非法输入。

Dim a() As String
Dim b() As String
x = InputBox("请选择通道")
If InStr(x, ",") Then '如果输入为"1,3,5"式
a() = Split(x, ",")
For i = 0 To UBound(a)
Print "通道" & a(i) & "开"

Next i
Else
If InStr(x, "-") Then '如果输入"1-5"式的
b() = Split(x, "-")
For i = CInt(b(0)) To CInt(b(1))
Print "通道" & i & "开"
Next i
Else
If x <> "" Then Print "通道" & x & "开" '如果既无"," 也无"-"

End If
End If

用正则表达式来校验该会省事些,还有以上代码也没考虑那种混合型,自己写写吧.