在一组字符周围获取字符串项

Question

好的，我在我的项目的最后一部分…如果我有这样的字符串:

 James Williams 432 Co Rd 1 Cullman Al 35055
 Or     
 James Williams 432 Co Rd 12 Cullman Al 35055 
 Or
 James Williams 432 Co Rd 123 Cullman Al 35055 
 Or
 James Williams 432 Co Rd 1234 Cullman Al 35055 

，这些数字可以是0到9之间的任意数。我怎么能分配CR和数字(s)后立即到字符串值????

我必须从文件中解析地址信息…解析器可以很好地处理不包含CR(县城路)的地址。所以我想我可以剥离地址部分的字符串，我传递到解析器使用类似的东西…

  Dim _holder as string = {Gets a value I can track already in the current Function}
  DIM _Address as string = Nothing
  IF _holder.contains("Co Rd") Then
      _Address = { "Numbers just before Co Rd" + " " + "Co Rd" + "Numbers Just after Co Rd"}
  End If

Answer 1

这在很大程度上取决于数据的有效性，但这里有一个快速示例:

Private Function ExtractAddressWithCoRd(ByVal input As String) As String
  Dim add1 As String = String.Empty
  Dim add2 As String = String.Empty
  Dim parts() As String = input.Split(" "c)
  For i As Integer = 0 To parts.Length - 1
    If parts(i) = "Co" AndAlso i > 0 Then
      add1 = parts(i - 1)
    ElseIf parts(i) = "Rd" AndAlso i < parts.Length - 1 Then
      add2 = parts(i + 1)
    End If
  Next
  Return add1 + " Co Rd " + add2
End Function