半夜问个VB很简单的问题

Question

如果一个字符传是"abcdefghijklmn"
要获取fgh
用instr的方法应该怎样

Answer 1

Option ExplicitPrivate Sub Command1_Click()
    Dim s As String
    s = "abcdefghijklmn"
    MsgBox Mid$(s, InStr(s, "fgh"), 3)
End Sub

Answer 2

Dim s As String
dim a as string 
dim i as integer
s = "abcdefghijklmn"
i=instr(1,s,"fgh")
a=mid$(s,i,3)

Answer 3

晕我的意思Fgh是随机的啊 不一定是什么

Answer 4

... 我记的以前写的时候很简单啊 好象instr 还有
mid

Answer 5

Private Sub Command1_Click()
    Dim s As String
    Dim b As String
    b = Trim(Text1.Text)
    s = "atextfghijklmn"
    MsgBox Mid$(s, InStr(s, b), Len(b))
End Sub

Answer 6

Private Sub Command1_Click()
 Dim nPos As Integer
 Dim strTemp As String
 nPos = InStr(Text2.Text, Text1.Text) '查找位置
 If (nPos = 0) Then
    MsgBox "注意:区分大小写。没有找到"
    Exit Sub
 End If
 strTemp = Mid(Text2.Text, nPos, Len(Text1.Text)) '截取字符串
 MsgBox strTemp
End Sub