VB.net删除并保留文本框中的单词

时间:2016-01-23 21:00:07

标签: vb.net

[{“name”:“chrisjj”,“uuid”:“d086112c-6e25-31a0-acf0-f95c3ca98784”,“expiresOn”:“2016-02-22 23:04:35 +0000”}] < / p>

[{“name”:“ben”,“uuid”:“d086112c-7a26-33b5-ucf3-j96c1ca26854”,“expiresOn”:“2015-011-12 22:04:35 +0000”}] < / p>

基本上我正在研究一个项目一段时间,我正在尝试保留名称chrisjj和ben并从visual basic 2012中删除文本框中的其余文本,如果你有任何想法会有很大的帮助

2 个答案:

答案 0 :(得分:1)

您可以使用正则表达式来实现您想要的效果。

Dim Input As String = RichTextBox1.Text
Dim MC As MatchCollection = Regex.Matches(Input, Regex.Escape("[{""name"":""") & "[chrisjj|ben].*?" & Regex.Escape("]"), RegexOptions.IgnoreCase)
Dim Output As New List(Of String)

For i = 0 To MC.Count - 1
    Output.Add(MC(i).Value)
Next
MsgBox(String.Join(vbNewLine, Output.ToArray()))

我认为这就是你想要的。这个正则表达式匹配[{&#34; name&#34;:&#34;然后chrisjj或ben继续,直到]被发现。

答案 1 :(得分:0)

您可以这样做:

If InStr(Textbox1.Text, "chrisjj") Then
Textbox1.text = "chrisjj"
else if InStr(Textbox1.Text, "ben") Then
Textbox1.text = "ben"
end if

InStr Function返回第一次出现的一个字符串在另一个字符串中的位置。

同时

if TextBox1.Text.Contains("chrisjj") Then
TextBox1.Text = TextBox1.Text = "chrisjj"
ElseIf TextBox2.Text.Contains("ben") Then
TextBox1.Text = TextBox1.Text = ben
end if

String.Contains Method (String)返回一个值,指示在此字符串中是否出现指定的子字符串。