作业帮 > 综合 > 作业

VB 如何提取括号中数字

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/09/14 00:34:54
VB 如何提取括号中数字
tir(31490)
豆豆(363009)
130—太子(3203768)
808一一月28(395840)


这样的一数组
如何只提取括号中的数字
加入到list中
稳定收益为王
你这个一行肯定只有一对括号么?
再问: 是的 就一对
再答: Private Function GetInBrackets(ByVal InString As String) As String a = InStr(1, InString, "(") b = InStrRev(InString, ")") GetInBrackets = Mid(InString, a + 1, b - a - 1) End Function Private Sub Command1_Click() Dim a(3) As String a(0) = "tir (31490)" a(1) = "豆豆 (363009)" a(2) = "130 —太子 (3203768)" a(3) = "808 一一月28 (395840)" For i = 0 To UBound(a) List1.AddItem GetInBrackets(a(i)) Next i End Sub