vbCr + vbLf 0A 0D Dim nextLine As String Dim i As Integer Dim FileNum As Integer Dim a As String FileNum = FreeFile Open "e:\data\code\VBStockFuture.csv" For Input As #FileNum i = 0 Do Until EOF(FileNum) ReDim Preserve StockCode(i) Line Input #FileNum, nextLine StockFutureCode(i) = nextLine i = i + 1 Loop Err: Close FileNum 어디서 이런걸 주서다가 쓰려고 하는데... 이렇게 하면 한줄씩 읽을 수 있다고 했는데... 죽어도 안되서 헥스코드로 열어봤더니 개행문자가 0D 0A로 돼 있다 여긴 문제가 없는데... UTF8로 저장한 문선데.. 그게 문제인건가 제대로 인식을 못하는 것 같다 파일을 통째로 읽어서 저장을 해 버린다 VB6은 UTF8이건 뭐건 헥스에서 개행문자를 발견했으면 개행을 해야지 0D 0A인데 그걸 왜 이렇게 헤매는건지 vbCr은 먼 음표모양이고 vbLf는 다이아1개짜리 카드모양.. 0D 0A로 뜬다 Line저걸로 해서 일단 배열로 가져오고 저장문자배열 = Split(문자열,vbLf) 로 처리했다 Line Input #FileNum, nextLine StockCode = Split(nextLine, vbLf) 이것도 편법인지는 모르겠는데 참... 할줄도 모르는거가지고 고생했네