스플릿, 특정 스플릿을 이스케이프 처리합니다.

Question

여러 개의 질문과 답변이 포함되어 있고 CSV처럼 구성되어있는 셀이 있습니다. 따라서 이러한 모든 질문과 답변을 구분 기호로 분리하여 분리하면 분리 기호가 쉽게 구분됩니다.

불행히도 쉼표를 소수 구분 기호로 사용하는 일부 값이 있습니다. 그 사건에 대한 분할을 피할 수있는 방법이 있습니까?

다행히도 분리 기호로 ","를 사용하여 데이터를 분할 할 수 있지만이 경우가 아니라면 수동으로 10 진수 구분 기호를 쉼표에서 점으로 바꾸는 것 외에 해결책이 있습니까?

예 :

"가격 : 0.09, 수량 : 12 판매 : 예" 을 분할 사용 ("가격 : 0.09, 수량 : 12 판매 : Yes (예)", ",") 것 수율 :

가격 : 0
09
수량 : 12
이 판매 : 네

Answer 1

하나의 가능성은,이 테스트 데이터 제공, 분할 후 배열을 통해 루프, 그리고에는 :가 없습니다 때마다 문자열, 이 항목을 이전 항목에 추가하십시오.

이 다음과 같을 수 수행하는 기능 : 예를 들어, 분리 caharacters : 및 매개 변수에 ,을함으로써 개선의 여지가 있다고

Public Function CleanUpSeparator(celldata As String) As String() 
    Dim ret() As String 
    Dim tmp() As String 
    Dim i As Integer, j As Integer 

    tmp = Split(celldata, ",") 
    For i = 0 To UBound(tmp) 
     If InStr(1, tmp(i), ":") < 1 Then 
      ' Put this value on the previous line, and restore the comma 
      tmp(i - 1) = tmp(i - 1) & "," & tmp(i) 
      tmp(i) = "" 
     End If 
    Next i 

    j = 0 
    ReDim ret(j) 
    For i = 0 To UBound(tmp) 
     If tmp(i) <> "" Then 
      ret(j) = tmp(i) 
      j = j + 1 
      ReDim Preserve ret(j) 
     End If 
    Next i 

    ReDim Preserve ret(j - 1) 

    CleanUpSeparator = ret 
End Function 

참고.