Mid函数显示文本框的内容?

Question

我这里有个VB界面,其中有个文本框里显示的内容问题1:
我想把其中的某个字符用MID()函数给弄出来
这个文本框回显示如下内容:
+CMGS: 143
    OK
+CMTI: "SM",2
我想把"2"弄出来
但是这个显示的内容有几排,而且还有空格,
我该怎么知道这个"2"是第几个字符呢?问题2:
文本框Text2.Text的内容是不是string呀,可以用在MId函数里吗?谢谢!!!!

Answer 1

问题2:
文本框Text2.Text的内容是不是string呀,可以用在MId函数里吗?
你说对了了,全部都是自符,你可以放心使用
问题一
你可以DIM X AS STRING
X =TEXT1.TEXT
然后使用INSTR涵数搜索特定字符的位置,然后使用MID取数据

Answer 2

i=instr(text1.text,",2")
s=mid$(text1.text,i+1,1)

Answer 3

i=instr(text1.text,",2")
s=mid$(text1.text,i+1,1)

Answer 4

i=instr(text1.text,",2")
s=mid$(text1.text,i+1,1)这样的写法，非常搞笑！直接写成s = "2"不就得了。

Answer 5

如果这个"2"(或者其他数字)总是类似这样的格式出现的话：
+CMTI: "SM",2   '这个最后应该有个回车符的s = ""
i = InStr(text1.text, "+CMTI: ""SM"",")
If i > 0 Then
    j = InStr(i, text1.text, vbCr)
    If j > i Then
        s = Mid(text1.text, i + 12, j - i - 12)
    Else
        s = Mid(text1.text, i + 12)
    End If
End If