字符串读取

Question

请问哪一个函数能够实现 “从一个字符串中提取出另外一个字符串”？？
请各位大侠帮忙！！多谢

Answer 1

参考一下：把符串中的一子串替换为另一子串
Function sReplace(SearchLine As String, SearchFor As String, ReplaceWith As String)
    Dim vSearchLine As String, found As Integer
    
    found = InStr(SearchLine, SearchFor): vSearchLine = SearchLine
    If found <> 0 Then
        vSearchLine = ""
        If found > 1 Then vSearchLine = Left(SearchLine, found - 1)
        vSearchLine = vSearchLine + ReplaceWith
        If found + Len(SearchFor) - 1 < Len(SearchLine) Then _
            vSearchLine = vSearchLine + Right$(SearchLine, Len(SearchLine) - found - Len(SearchFor) + 1)
    End If
    sReplace = vSearchLine
    
End Function

Answer 2

dim str as string
dim strResult as string str="asfdsf"
 strResult=left(str,2)

Answer 3

用MID("字符串","开始位置","截取长度")最为简单又特别实用。