在某些单词 vb.net 之后或之前去除字符串答案

【问题标题】：Strip String after or before certain word vb.net在某些单词 vb.net 之后或之前去除字符串
【发布时间】：2013-06-17 16:37:21
【问题描述】：

我想截取一个字符串，取某个单词之前的内容和某个单词之后的内容。

例子：

Dim string As String = "Dr. John Smith 123 Main Street 12345"
Dim cut_at As String = "Smith"
Dim string_before, string_after As String

--cutting code here--

string_before = "Dr. John "
string_after = " 123 Main Street 12345"

我将如何在 vb.net 中执行此操作？

【问题讨论】：

标签： vb.net string cut

【解决方案1】：

你可以使用String.Split:

Dim original As String = "Dr. John Smith 123 Main Street 12345"
Dim cut_at As String = "Smith"

Dim stringSeparators() As String = {cut_at}
Dim split = original.Split(stringSeparators, 2, StringSplitOptions.RemoveEmptyEntries)

Dim string_before = split(0)
Dim string_after = split(1)

【讨论】：

【解决方案2】：

你可以使用 split() 函数或者这个

    Dim mystr As String = "Dr. John Smith 123 Main Street 12345"
    Dim cut_at As String = "Smith"
    Dim x As Integer = InStr(mystr, cut_at)

    Dim string_before As String = mystr.Substring(0, x - 2)
    Dim string_after As String = mystr.Substring(x + cut_at.Length-1)

【讨论】：