(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...