在 vb.net 字符串中查找字符

Question

我有一个关于以下代码的堆栈溢出问题：

For Each DeltaCharB As Char In DeltaString
    If DeltaCharB = "[" Then
        Dim DeltaIndexB As Integer = TB8.IndexOf("[B|")
        Dim DeltaStringB As String = TB8.Substring(DeltaIndexB + 3, TB8.IndexOf("]", DeltaIndexB + 1) - DeltaIndexB - 3)
        MsgBox(DeltaStringB)
    Else
        'Do nothing
    End If
Next

产生的问题是，如果代码运行 X 次后发现字符“[”，则字符串在消息框中显示相同 X 次。

但是我只想让它处理 1X。我尝试更改以下行，但正如我预期的那样，一次只允许一个字符。

If DeltaCharB = "[B|" Then

通常用于搜索的字符串如下：

{[A|Text belonging to entry A][B|Text belonging to entry B][C|Text belonging to entry C]}.... ect...ect

有人知道如何解决这个问题吗？

Answer 1

为什么需要循环？您的分隔符定义明确，您可以这样做：

Function GetContent(byval input as string, byval delimiter as string) as string
    Dim fullDelimiter = "["& delimiter &"|"
    Dim BeginPosition as Integer = input.IndexOf(fullDelimiter)
    if BeginPosition > -1 then
        BeginPosition += fullDelimiter.Length
        Dim EndPosition = input.IndexOf("][", BeginPosition)
        if EndPosition > -1 then
            return input.SubString(BeginPosition, EndPosition - BeginPosition)
        end if
    end if
    return ""
End Function

及用法：

Dim s as string = "[A|Text belonging to entry A][B|Text belonging to entry B][C|Text belonging to entry C]"

Dim content = GetContent(s, "B")

内容现在包含“属于条目 B 的文本”

请注意，使用此代码，分隔符可以是[ 和| 之间的任意长度的字符串。

适合任何输入格式的更通用的解决方案意味着也接受函数中的结束分隔符：

Function GetContent(byval input as string, byval FromDelimiter as string, byval ToDelimiter as string) as string
    Dim BeginPosition as Integer = input.IndexOf(FromDelimiter)
    if BeginPosition > -1 then
        BeginPosition += FromDelimiter.Length
        Dim EndPosition = input.IndexOf(ToDelimiter, BeginPosition)
        if EndPosition > -1 then
            return input.SubString(BeginPosition, EndPosition - BeginPosition)
        end if
    end if
    return ""
End Function