Question

VB如何提取指定字符后的字符.

...
数数看6,6,后面是不是出现了上面的数字?

Answer 1

重新改过的程序，这次没什么问题了（主要是之前没有理解你的意图）：
strSrc = "6,8,6,6,6,6,8,6,6,6,5,6,6,10,10,6,8,6,11,7,7,10,"
strSch = "6,6,"
strPartSrc = Split(strSrc,",")
strPartSch = Split(strSch,",")
strDes = ""
For i = 0 To (UBound(strPartSrc)-UBound(strPartSch))
strFind = ""
For j = 0 To (UBound(strPartSch)-1)
strFind = strFind & strPartSrc(i+j)& ","
Next
'MsgBox strFind
If strFind = strSch Then
strDes = strDes & strPartSrc(i+2) & ","
End If
Next
msgbox strDes

Answer 2

dim strDes as string
dim strSrc as String
dim strSrch as String
Dim lPos as long

strSrc=文本框1.Text
strSrch=文本框2.Text
strDes=""
lPos=Instr(strSrc,strSrch)
while lPos<>0
lPos=lPos+len(strSrch)
strDes=strDes & Mid(strSrc,lPos,1) & ","
lPos=instr(lPos,strSrc,strSrch)
wend
文本框1.Text=strDes
'=============================
上边的代码刚漏掉一个逗号,根据要求重新调整,以下代码经过测试:

Dim strDes As String
Dim strSrc As String
Dim strSrch As String
Dim lPos As Long
Dim lTmp As Long

strSrc = 文本框1.Text
strSrch = 文本框2.Text
strDes = ""
lPos = InStr(strSrc, strSrch)
While lPos <> 0
lPos = lPos
lTmp = InStr(lPos + Len(strSrch) + 1, strSrc, ",")
strDes = strDes & Mid(strSrc, lPos + Len(strSrch) + 1, lTmp - lPos - Len(strSrch) - 1) & ","
lPos = InStr(lPos + 1, strSrc, strSrch)
Wend
文本框3.Text = strDes

Answer 3

Dim myPos As Integer, myStr As String, myStrEnd As Integer
myPos = 1
Do
myPos = InStr(myPos, Text1.Text, Text2.Text)
myStrEnd = InStr(myPos + Len(Text2.Text) + 1, Text1.Text, ",")
If myPos = 0 Or myStrEnd = 0 Then Exit Do
myStr = myStr & Mid(Text1.Text, myPos + Len(Text2.Text), myStrEnd - (myPos + Len(Text2.Text))) & ","
myPos = myPos + 1
Loop
Text3.Text = myStr

Answer 4

不理解意图，看不出来规律。。。

Answer 5

能把问题说的详细一点吗?