(VB6) 탭 분리 형식 Text 파일 데이터 읽기

주요 코드

Private Sub File_Open() Dim FileNum As Integer Dim Arr_SplitItems() As String Dim LineNum As Integer FileNum = FreeFile Open File1.Path & "\\" & File1.List(0) For Input As FileNum LineNum = 1 Text1.Text = Input(LOF(FileNum), #FileNum) Seek #FileNum, 1 Do While Not EOF(FileNum) Line Input #FileNum, Record Arr_SplitItems = Split(Record, vbTab) For i = 0 To UBound(Arr_SplitItems) VSFlexGrid1.TextMatrix(LineNum, i + 1) = Arr_SplitItems(i) Next i LineNum = LineNum + 1 Loop Close #FileNum End Sub

 

Open 파일위치 For Input As 파일번호

Input() 은 데이터 전체를 가져올 때 사용

Seek는 포인터 위치를 변경할 때 사용

Split(데이터, 분리 문자)에서 vbTab을 입력하면 탭으로 나눠짐