求助啊，vb怎么提取分钟
答案:1 悬赏:70 手机版
解决时间 2021-02-27 16:09
- 提问者网友：龅牙恐龙妹
- 2021-02-27 00:23
求助啊，vb怎么提取分钟
最佳答案
- 五星知识达人网友：旧脸谱
- 2021-02-27 01:55
Dim Ystr As String
Dim Tstr() As String
Dim n As Integer
Dim YesNo As Boolean
Dim Lstr As String
Dim i As Integer
Ystr = "iegiuhrjknbe.walhio[jkgshaugui]bhsagyueajbdnbs,u[kauyuibaqjbcu]nbagajshvbhj[我啊不能兼顾噶额级别]jhasbdjhjaehujhejb[你看历史回顾IU感激不尽安静]hi回去啊U价格比较昂贵醋意[bjkhajhiuqahilhg]nbjklsabhjkbj"
n = 0
YesNo = False
For i = 1 To Len(Ystr)
If Not YesNo Then
If Mid(Ystr, i, 1) = "[" Then
Lstr = Mid(Ystr, i, 1)
YesNo = True
End If
Else
Lstr = Lstr & Mid(Ystr, i, 1)
If Mid(Ystr, i, 1) = "]" Then
n = n + 1
ReDim Preserve Tstr(n) As String
Tstr(n) = Lstr
YesNo = False
End If
End If
Next i
For i = 1 To UBound(Tstr)
Debug.Print Tstr(i)
Next i
Dim Tstr() As String
Dim n As Integer
Dim YesNo As Boolean
Dim Lstr As String
Dim i As Integer
Ystr = "iegiuhrjknbe.walhio[jkgshaugui]bhsagyueajbdnbs,u[kauyuibaqjbcu]nbagajshvbhj[我啊不能兼顾噶额级别]jhasbdjhjaehujhejb[你看历史回顾IU感激不尽安静]hi回去啊U价格比较昂贵醋意[bjkhajhiuqahilhg]nbjklsabhjkbj"
n = 0
YesNo = False
For i = 1 To Len(Ystr)
If Not YesNo Then
If Mid(Ystr, i, 1) = "[" Then
Lstr = Mid(Ystr, i, 1)
YesNo = True
End If
Else
Lstr = Lstr & Mid(Ystr, i, 1)
If Mid(Ystr, i, 1) = "]" Then
n = n + 1
ReDim Preserve Tstr(n) As String
Tstr(n) = Lstr
YesNo = False
End If
End If
Next i
For i = 1 To UBound(Tstr)
Debug.Print Tstr(i)
Next i
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯