Vb6 : 탭으로 구분 된 텍스트 구분

Question

수천 개의 행과 탭으로 구분 된 여러 개의 열이있는 파일이 있습니다. 개별적으로 반복하고 싶습니다. 열을 배열에 놓으면 다른 열에 배치 할 수 있습니다. 응용 프로그램을 개별적으로 실행 한 후 다음 행으로 이동하십시오. 불행하게도 나는 약까지이 같은 가지고 :

Open mytextfile.txt For Input As #FileHandle 
Do While Not EOF(FileHandle) 
Line Input #FileHandle, IndividualLine 
StringToBreakup = IndividualLine 
Loop 

그래서

Answer 1

사용을 배열로 최대

Dim StringArray as Variant 

Open mytextfile.txt For Input As #FileHandle 
Do While Not EOF(FileHandle) 
Line Input #FileHandle, IndividualLine 
StringToBreakup = IndividualLine 

StringArray = Split(StringToBreakup, CHR(9)) 

Process array here... 

Loop 

Answer 2

Dim str() as String 

Open mytextfile.txt For Input As #FileHandle 
    Do While Not EOF(FileHandle) 
    Line Input #FileHandle, IndividualLine 
    str = Split(IndividualLine, vbTab) 
    Debug.Print str(0) 'First array element 
Loop 

명확히하기 위해 분할 명령을 개별 라인을 깨는 갈 것입니다 방법 : 나는 Variants를 사용하지 않고 vbTab을 사용할 것이다.