关于字符串操作的问题，大家帮帮忙

Question

用这个函数可以做到InStr([start, ]string1, string2[, compare]) 到这看看吧http://www.hongen.com/pc/program/jiqiao/vbjiqiao/vb0106.htm

Answer 1

dim p1, p2 as integer
dim youwant as string
p1 = instr(1, yourStr, """)
p2 = instr(p1+1, yourStr, """)
youwant = mid(yourStr, p1+1, p2 - 1 - p1)

Answer 2

用Instr函数找到第一个特定字符的位置，记录
用Instr函数找到第2个特定字符的位置，记录用mid函数取出两个位置之间的字符串Private Sub Form_Load()
    Dim str As String, str1, str2
    Dim n1 As Integer, n2    str = """" + "123456" + """"
    n1 = InStr(str, """")
    str1 = Mid(str, n1 + 1)
    n2 = InStr(str1, """")
    str2 = Mid(str, n1 + 1, n2 - n1)
    MsgBox str2
    
End Sub