728x90


Private Sub Form_Load()
Dim TArr() As String
Dim TestStr As String

TestStr = "명인바보=_=;; 명인은 천재다 명인은 고수다, 명인은 초보다"
TArr() = Split(TestStr, "명인")

Dim i As Long
For i = LBound(TArr) To UBound(TArr)
Debug.Print "|" & TArr(i) & "|" '직접실행창에 출력
Next
End Sub

Split 함수를 사용할때 꼭
배열을 설정할때 배열길이를 설정하면 안된다
위 처럼 Tarr() 식으로 선언을 해주어야 한다.

Split 함수 사용방법
배열() = Split(전체문장,짜를기준)
출력예제
배열() = Split("가1나1다1라1마1바","1")

이런식으로 해보면






형식으로 배열에 저장이 됩니다.

Split와 반대대는 함수는 Join 함수 반대로
특정 기준으로 붙여주는 함수

MSDN에 나온 설명

설명

지정된 하위 문자열의 개수를 포함하는 0을 기수로 하는 1차원 배열입니다.

구문

Split(expression[, delimiter[, count[, compare]]])

Split 함수 구문은 다음과 같은 구성 요소로 되어 있습니다.

구성 요소 설명
expression 필수. 하위 문자열과 구분 기호를 포함하는 문자식. expression이 길이가 0인 문자열("")이면 Split는 빈 배열, 즉 요소와 데이터가 전혀 없는 배열을 반환합니다.
delimiter 선택. 하위 문자열의 한계를 식별하기 위해 사용되는 문자열. 생략하면 공백 문자(" ")가 구분 기호로 가정됩니다. delimiter가 길이가 0인 문자열이면 전체 문자열을 포함하는 단일 요소가 반환됩니다.
count 선택. 반환할 문자열 수로 –1은 모든 하위 문자열이 반환됨을 의미합니다.
compare 선택. 하위 문자열을 평가할 때 사용할 비교 종류를 나타내는 숫자값. 값에 대한 설명은 아래 설정을 참조하십시오.

설정

compare 인수의 값은 다음과 같습니다.

상수 설명
vbUseCompareOption –1 Option Compare문의 설정을 사용하여 비교를 수행합니다.
vbBinaryCompare 0 이진 비교를 수행합니다.
vbTextCompare 1 텍스트 비교를 수행합니다.
vbDatabaseCompare 2 Microsoft Access 전용. 데이터베이스의 정보를 기반으로 비교를 수행합니다.


+ Recent posts