如何截取双引号之间的字符串

Posted 2023-04-01

例如文本框有一段字符串：
aaaa"bbbbbb"aaaaa
aaaaa"1111111111"333333
aaaaa"11111111111111111111"333333
我想截取双引号之间的字符串
即所得结果为
bbbbbb
1111111111
11111111111111111111
例如文本框有一段字符串：
aaaa"bbbbbb"aaaaa
aaaaa"1111111111"333333
aaaaa"11111111111111111111"333333
aaaaa"11111111111111111111"333333
aaaaa"11111111111111111111"333333
我想截取双引号之间的字符串
即所得结果为
bbbbbb
1111111111
11111111111111111111
并且删除重复项

如果有多个双引号
aaaa"bbbbbb"aaaaa aaaa"bbbbbb"aaaaa
aaaaa"1111111111"333333 aaaaa"11111111111111111111"333333
aaaaa"11111111111111111111"333333aaaaa"11111111111111111111"333333
aaaaa"1111111111"333333 aaaaa"11111111111111111111"333333
aaaaa"11111111111111111111"333333aaaaa"11111111111111111111"333333
我只要前面双引号内的字符串

可以给你提供些思路：
方法一：
前提背景：一字符串在双引号之间，这里可以默认以双引号开头，双引号结尾，那么
1、可以用startsWith()这个方法来判断是否以双引号其中一个开头
2、可以用endsWith()这个方法来判断是否以双引号其中一个结尾
方法二：
前提背景：只有一组双引号引起来的字符串，且一字符串在双引号之间，这里可以默认以双引号开头，双引号结尾，那么
1、可以直接通过循环来将读取字符串，用charAt()来规避第一个和字符串最后一位的引号
2、这样也能够获取双引号之间的字符串
总结：
还有许多方法可以使用，这里只是举例来开拓思路，具体实现还需要自己试行。加油 参考技术A 先BS一下，这里是一个帖解决一个问题
如果再问相关问题可重开一个帖

一个按钮一个文本框
Private Sub Command1_Click()
Dim i As Integer
Dim myarray() As String
Dim ss() As String
ss = Split(Text1.Text, Chr(13))
Text1.Text = ""
For i = 0 To UBound(ss)
myarray = Split(ss(i), Chr(34))
Text1.Text = Text1.Text & myarray(1) & vbCrLf
Next
End Sub本回答被提问者采纳 参考技术B 为此编制了一个"提取"函数，将以下代码输入后直接调用即可。
如：text1内容为：aaaa"bbbbbb"aaaaa
则: Dim s As String
s=TiQu(Text1.Text)
s即得到bbbbbb.
对于多个双引号则只提取第一个引号内的。

Function TiQu(ByVal NeiRong As String) As String
On Error Resume Next
Dim k As Boolean
Dim m As Integer
m = 0
k = False
TiQu = ""
For i = 1 To Len(Trim(NeiRong))
If Mid(Trim(NeiRong), i, 1) = Chr(34) Then
k = True
m = m + 1
ElseIf k = True And m = 1 Then
TiQu = TiQu & Mid(Trim(NeiRong), i, 1)
ElseIf Mid(Trim(NeiRong), i, 1) = Chr(34) And m = 2 Then
Exit Function
End If
Next i
End Function 参考技术C 一楼的是废话
Chr(34)是双引号 参考技术D myArray = Split(Text1.Text, Chr(34))
MsgBox myArray(1)