교체 문자 구분

Question

I이 샘플 값을 쉼표로 구분 된 파일 : 1,1076103,22 11 월-16,21051169501083, AAA, TEXT

질문 : 어떻게 "AAA, TEXT는"

이 결과는 이런 식으로해야되는 마지막 열에서 쉼표를 대체 : 1,1076103,22 11 월-16,21051169501083, AAATEXT

Answer 1

는 간단하다, 문자열을 사용하는 방법을 조금 배우십시오)

그런 다음 호출 : 그것을 반환 할 부품의 최대 수를 말하는 인수를 취 an overload of String.Split 있습니다

Dim finished As String = MDP("1,1076103,22-NOV-16,21051169,50,1083,AAA,TEXT") 

Answer 2

. 이처럼 사용할 수 있습니다

Option Infer On 
Option Strict On 

Module Module1 

    'TODO: think up a good name for this function 
    Function X(s As String) As String 
     Dim nReturnParts = 7 
     Dim parts = s.Split({","c}, nReturnParts) 
     If parts.Count < nReturnParts Then 
      Throw New ArgumentException($"Not enough parts - needs {nReturnParts}.") 
     End If 

     parts(nReturnParts - 1) = parts(nReturnParts - 1).Replace(",", "") 
     Return String.Join(",", parts) 

    End Function 

    Sub Main() 
     Dim s() = {"1,1076103,22-NOV-16,21051169,50,1083,AAA,TEXT", 
      "1,1076103,22-NOV-16,21051169,50,1083,BBBTEXT", 
      "1,1076103,22-NOV-16,21051169,50,1083,C,C,C,TEXT"} 

     For Each a In s 
      Console.WriteLine(X(a)) 
     Next 

     Console.ReadLine() 

    End Sub 

End Module 

출력 :

1,1076103,22 11 월-16,21051169501083, AAATEXT
1,1076103,22 11 월-16 , 21051169501083, BBBTEXT
1,1076103,22 11 월-16,21051169501083, CCCTEXT 당신이 마지막으로 다음 문자열은 지난 2 intem을 분할 할 때마다 먹고 싶어하면