• 新记

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

    例如文本框有一段字符串：
    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
    我只要前面双引号内的字符串

    举报该文章
    相关建议   推荐于2016-02-15
    可以给你提供些思路：
    方法一：
    前提背景：一字符串在双引号之间，这里可以默认以双引号开头，双引号结尾，那么
    1、可以用startsWith()这个方法来判断是否以双引号其中一个开头
    2、可以用endsWith()这个方法来判断是否以双引号其中一个结尾
    方法二：
    前提背景：只有一组双引号引起来的字符串，且一字符串在双引号之间，这里可以默认以双引号开头，双引号结尾，那么
    1、可以直接通过循环来将读取字符串，用charAt()来规避第一个和字符串最后一位的引号
    2、这样也能够获取双引号之间的字符串
    总结：
    还有许多方法可以使用，这里只是举例来开拓思路，具体实现还需要自己试行。加油
    温馨提示：内容为网友见解，仅供参考
    其他看法
    第1个回答  推荐于2016-04-10
    先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本回答被提问者采纳
    第2个回答  2007-08-31
    为此编制了一个"提取"函数，将以下代码输入后直接调用即可。
    如：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
    第3个回答  2007-08-26
    一楼的是废话
    Chr(34)是双引号
    第4个回答  2007-08-25
    myArray = Split(Text1.Text, Chr(34))
    MsgBox myArray(1)
    12
    相似回答
    大家正在搜
    相关问题
    如何获取字符串中所有双引号之间的字符串？
    如何提取字符串中双引号的内容
    java 如何获取字符串中双引号中间的字符
    ASP如何提取双引号之间的一段不定长的字符串呢？
    如何获得一个字符串中第一个双引号和第二个双引号之间的字符串？
    js 中如何去除字符串中的双引号
    java获取双引号间的值
    如何取单引号之间的内容shell