Vb.net 如何在textbox.contain（）代码之间选择字符串？

实际上我想做的是在文本框中查找字符串。例如，我的想法是使用IF来查找当前字符串

如果Textbox1.Contain（“”），则 '我想选择to do MySQL命令之间的字符串。 如果结束

---

我该怎么做？谢谢你们的帮助

我不熟悉VB。但可能您想尝试使用正则表达式。它对于搜索和提取非常有用。 像下面这样的方法应该可以奏效

Dim strBetween As String
strBetween = Regex.Match(TextBox1.text, "<(.*?)>").Value

Dim STRB在字符串之间
strBetween=Regex.Match（TextBox1.text，“”）.Value

或者，您可以按照以下示例进行操作：

Sub Main()
    Dim regex As Regex = New Regex("<(.*?)>")
    Dim match As Match = regex.Match(TextBox1.text)
    If match.Success Then
        Console.WriteLine(match.Value)
    End If
End Sub

Sub-Main（）
作为正则表达式的Dim正则表达式=新正则表达式（“”）
Dim match As match=regex.match（TextBox1.text）
如果匹配，那么成功
Console.WriteLine（匹配.Value）
如果结束
端接头

---

请让我知道它是否有效。

我不熟悉VB。但可能您想尝试使用正则表达式。它对于搜索和提取非常有用。 像下面这样的方法应该可以奏效

Dim strBetween As String
strBetween = Regex.Match(TextBox1.text, "<(.*?)>").Value

Dim STRB在字符串之间
strBetween=Regex.Match（TextBox1.text，“”）.Value

或者，您可以按照以下示例进行操作：

Sub Main()
    Dim regex As Regex = New Regex("<(.*?)>")
    Dim match As Match = regex.Match(TextBox1.text)
    If match.Success Then
        Console.WriteLine(match.Value)
    End If
End Sub

Sub-Main（）
作为正则表达式的Dim正则表达式=新正则表达式（“”）
Dim match As match=regex.match（TextBox1.text）
如果匹配，那么成功
Console.WriteLine（匹配.Value）
如果结束
端接头

---

请让我知道它是否有效。

一个不影响正则表达式的解决方案可能是这样的（这取决于您的需要）：

公共模块扩展
公共函数GetFirstStringBetween（ByVal发送方作为字符串，
ByVal分隔符作为字符串，
ByVal分隔符（RB作为字符串）作为字符串
如果sender.Contains（delimiterA）和also sender.Contains（delimiterB），则
Dim rightPart As String=sender.Substring（sender.IndexOf（delimiterA）+1）
如果rightPart.Contains（delimiterRB），则
返回rightPart.Substring（0，发送方.IndexOf（delimiterB）-1）
如果结束
如果结束
寄件人
端函数
端模块

用法：

Dim str As String = "<Hello World> <Bye World>"
Dim result As String = str.GetFirstStringBetween("<", ">")

Console.WriteLine(result)

Dim str As String=“”
Dim结果为String=str.GetFirstStringBetween（“”）
控制台写入线（结果）

一个不影响正则表达式的解决方案可能是这样的（这取决于您的需要）：

公共模块扩展
公共函数GetFirstStringBetween（ByVal发送方作为字符串，
ByVal分隔符作为字符串，
ByVal分隔符（RB作为字符串）作为字符串
如果sender.Contains（delimiterA）和also sender.Contains（delimiterB），则
Dim rightPart As String=sender.Substring（sender.IndexOf（delimiterA）+1）
如果rightPart.Contains（delimiterRB），则
返回rightPart.Substring（0，发送方.IndexOf（delimiterB）-1）
如果结束
如果结束
寄件人
端函数
端模块

用法：

Dim str As String = "<Hello World> <Bye World>"
Dim result As String = str.GetFirstStringBetween("<", ">")

Console.WriteLine(result)

Dim str As String=“”
Dim结果为String=str.GetFirstStringBetween（“”）
控制台写入线（结果）

但我收到一个错误消息，说“GetFirstStringBetween”不是“String”的成员。那是什么错误？抱歉，事实上，我在vb中也很新：D@Johns是的，我错了，我忘了将属性分配给扩展方法，请参阅更新的代码。我认为此解决方案对我很有帮助。谢谢你的努力。上帝保佑你们：但我得到一个错误，说“GetFirstStringBevering”不是“String”的成员。那是什么错误？抱歉，事实上，我在vb中也很新：D@Johns是的，我错了，我忘了将属性分配给扩展方法，请参阅更新的代码。我认为此解决方案对我很有帮助。谢谢你的努力。上帝保佑你，我很抱歉。。但如果你不介意告诉我，什么是正则表达式？我在使用正则表达式时出错了。错误是“属性访问必须分配给属性或使用其值。抱歉，我的示例代码不是完整的代码。”。您得到的错误是，因为值是属性，所以您可能必须将其分配给其他变量或使用它。我编辑了答案。我真的很抱歉，但我无法得到你的解决方案，但无论如何，非常感谢你的努力：D上帝保佑你也许这对我任务的另一部分很有用：我很抱歉问。。但如果你不介意告诉我，什么是正则表达式？我在使用正则表达式时出错了。错误是“属性访问必须分配给属性或使用其值。抱歉，我的示例代码不是完整的代码。”。您得到的错误是，因为值是属性，所以您可能必须将其分配给其他变量或使用它。我编辑了答案。我真的很抱歉，但我无法得到你的解决方案，但无论如何，非常感谢你的努力：D上帝保佑你也许这对我任务的另一部分有用：D