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

来源:百度知道 编辑:UC知道 时间:2024/05/22 17:45:51
例如文本框有一段字符串:
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、这样也能够获取双引号之间的字符串
总结:
还有许多方法可以使用,这里只是举例来开拓思路,具体实现还需要自己试行。加油

先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

so. 你用的什么编程语言??

为此编制了一个"提取"函数,将以下代码输入后直接调用即可。
如:text1内容为:aaaa"bbbbbb"aaaaa
则: Dim s As String
s=TiQu(Text1.Text)
s即得到bbbbbb.
对于多个双引号则只提取第一个引号内的。

Function TiQu(ByVal NeiRong As String) As String
On Err