我在使用VB取字符串时遇到这样问题,不知如何解决,请大家帮忙参考。
Private Sub Command2_Click()
Dim i, l, b As Integer
Dim s, a, ls, rs, email As String
For i = 0 To List1.ListCount
a = List1.List(i)
l = Len(a)
a = Left(a, l - 2)
就是在这出现的实时错误5
s = Right(a, l - 8)
b = InStr(1, s, "[email] : ")
ls = Right(s, l - b - 19)
ls = LCase(ls)
rs = Mid(s, 3, b - 1)
rs = "----" + rs
email = ls + rs
List1.List(i) = email
Next i
End Sub
|