VB 一个很难截取的字符串！

答案:3 悬赏:30 手机版

解决时间 2021-07-31 07:14

提问者网友：骨子里的高雅
2021-07-30 21:07

a="aaa,567/xyz在,98/爱爱爱,456789/..,.../String,Integer/……"

已知: b="爱爱爱"

如何截取出 "456789"

最佳答案

五星知识达人网友：神鬼未生
2021-07-30 21:44

Private Sub Command1_Click()
Dim a, b
a = "aaa,567/xyz在,98/爱爱爱,456789/..,.../String,Integer/……"
b = "爱爱爱"
MsgBox m1(a, b)
End Sub
Function m1(a, b)
Dim c, d
c = InStr(1, a, b)
If c > 0 Then
d = InStr(c, a, "/")
m1 = Mid(a, c, d - c)
End If
End Function

全部回答

1楼网友：山有枢
2021-07-30 22:42

截取两遍就OK 了

第一次以'/'为分隔符截取字符保存含有b字符串的string

第二次以','为分隔符截取字符去掉含有b字符串的string

然后去一下前后空格就是了~!

O(∩_∩)O~

2楼网友：狂恋
2021-07-30 22:17

Private Sub Form_Load() Dim a As String a = "aaa,567/xyz在,98/爱爱爱,456789/..,.../String,Integer/……" For i = 1 To Len(a) If Mid(a, i, 4) = "爱爱爱," Then Text1.Text = Mid(a, i + 4, 6) End If Next End Sub

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息