Question

求用vb求双引号之间的子串。设计一个窗体，在窗体上添加两个标签框，两个文本框和两个命令按钮。

求双引号之间的子串。设计一个窗体，在窗体上添加两个标签框，两个文本框和两个命令按钮。运行程序时，首先在第一个文本框中输入一串字符（假定输入的字符串含有双引号），单击“计算”，将在第二个文本框中输出双引号之间的字符。若单击“结束”，结束程序运行

Answer 1

提示：
方法1：
假设只有一对双引号，那么，可以使用VB的；
InStr（）函数和InStrRev（）函数，Mid（）函数。
方法2：
采用VB的Len（）函数和MID（）函数，从左开始逐个检查字符，找到第1个双引号后，开始截取字符一直到找到第2个双引号结束。

追问

能不能用Vb完整的写出来- -

追答

呵呵，要好好学习啊！
用方法2：
界面我就不贴了：
代码如下：
Option Explicit
'计算按钮
Private Sub Command1_Click()
Dim Ys As String
Dim Ns As String
Dim L As Integer
Dim i As Integer
Dim StartYesNo As Boolean
Dim EndYesNo As Boolean
StartYesNo = False
EndYesNo = False
Ys = Text1.Text
L = Len(Ys)
Ns = ""
For i = 1 To L
If Not StartYesNo Then
If Mid(Ys, i, 1) = """" Then
StartYesNo = True
End If
Else
If Not EndYesNo Then
If Mid(Ys, i, 1) """" Then
Ns = Ns & Mid(Ys, i, 1)
Else
Exit For
End If
End If
End If
Next i
Text2.Text = Ns
End Sub
'结束按钮
Private Sub Command2_Click()
End
End Sub

Answer 2

Private Sub Command1_Click()
Dim f, s
f = InStr(Text1, """")
If f > 0 Then s = InStr(f + 1, Text1, """")
If s > 0 Then
Text2 = Mid(Text1, f + 1, s - f - 1)
Else
Text2 = "错误，少于两个双引号"
End If
End Sub