在vb中，有“...tasdldjffhhkkghfgy...(代表多个字符)”在text1。

Dim a为Long，b为Long，nStr为String

获取两个以s开头的字符:

a = InStr(Text1。文本，“s”)

如果a & gt那么0

nStr = Mid(Text1。文本，2)

MsgBox "以s ="& "开头的两个字符；nStr

如果…就会结束

获取d和h之间的字符:

a = InStr(Text1。文本，“d”)

b = InStr(a + 1，Text1。文本，“h”)

如果a & gt0和b & gt那么0

nStr = Mid(Text1。文本，a + 1，b - a - 1)

MsgBox "d和h = "& "之间的字符；nStr

如果…就会结束

末端接头