VB6 구닥다리라 문제가 참 많다. 할 수 없이 쓰는데 돌겠다.ㅠ 0D 0A 개행문자 문제...

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)

이것도 편법인지는 모르겠는데 참... 할줄도 모르는거가지고 고생했네

Leave a Reply

Your email address will not be published. Required fields are marked *

 characters available

9 + = 19