VB6.0如何获取两个引号之间的内容

来源：百度知道 编辑：UC知道 时间：2024/05/31 00:15:53
如何获得TEXT1.text里面""之间的内容不显示引号和引号之外的内容!
谢谢
比如
TEXT1里面有
ABC"123"
那么就之要123去掉""之外的内容
我的号没分了
在这里我只能说谢谢了~~~要看明白了

复制两个引号之间的内容就性了.

'VB截取函数 ，cutstring(输入字符串，前置标记，后置标记)
Public Function Cutstring(tein As String, s1 As String, s2 As String)
On Error Resume Next
Dim i, a
Dim k As Integer
Cutstring = ""
For i = 1 To Len(tein)
a = Mid(tein, i, 1)
If a = s1 Then
k = i
ElseIf a = s2 Then
Cutstring = jiequ & Mid(tein, k, i - k + 1) & vbCrLf
End If '
Next
End Function
VB截取函数 。
例子：a=" 2012年 《小说》作者：老舍2013年 《散文》 作者：沈从文。"
Cutstring(a,"《","》"），
输出结果：《小说》
《散文》