VB6 엑셀파일 읽고 쓰는 예제

Public objXcl As Excel.Application
Set objXcl = Excel.Application
objXcl.Workbooks.Add
objXcl.Sheets(1).Select

'Open csv file, then read
Do Until EOF(nFileNbr)
Input #nFileNbr, sTextField(0), sTextField(1), sTextField(2), sTextField(3)

With objXcl
Range("B1").Select
.Range("B1").Value = sTextField(0)
Range("B2").Select
.Range("B2").Value = sTextField(1)
Range("B3").Select
.Range("B3").Value = sTextField(2)
End With
Loop

    FileNum = FreeFile
    Open "e:\data\code\VBElw.csv" For Input As #FileNum
    Line Input #FileNum, nextLine
    ElwCode = Split(nextLine, vbLf)
    n5 = UBound(ElwCode)
    'Open "e:\data\code\VBElw.csv" For Input As #FileNum
    'i = 0
    'Do Until EOF(FileNum)
        'ReDim Preserve StockCode(i)
        'Line Input #FileNum, nextLine
        'LinesFromFile = LinesFromFile + nextLine + vbCr + vbLf
        'splitLine = Split(nextLine, ",")
        'elwCode(i) = splitLine(0)
        'ElwCode(i) = nextLine
        'i = i + 1
    'Loop
    
    FileNum = FreeFile
    Open "e:\data\code\VBStockFuture.csv" For Input As #FileNum
    Line Input #FileNum, nextLine
    StockFutureCode = Split(nextLine, vbLf)
    n6 = UBound(StockFutureCode)
    'Line Input #FileNum, LinesFromFile
    'splitLines = Split(LinesFromFile, ",")
'
    'sFilename = splitLines(0)
    'sFilename = splitLines(1)
    'sFilename = splitLines(2)
    'i = 0
    'Do Until splitLines(i) <> Null
    'splitLine = Split(splitLines(i), ",")
    'elwCode(i) = splitLine(0)
    'i = i + 1
    'Loop
    'Text1.Text = splitLine(0)

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)

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

메모리에디터 프로그램들


GameWiz32
OneStepAhead Software(http://www.gw32.de)


ArtMoney SE(http://www.artmoney.ru)


펌질에 대한 의견.. 이랄까 핑계랄까

블로그 방문자를 늘리려고 펌질을 하는 사람도 있다.
광고를 올려놓고.. 돈을 벌려고
또는 개인적인 만족감을 위해서

그리고 제3의 경우들...
그냥 자료에 대한 소유욕
퍼놔야 검색이 쉬우니까

마지막으로 인터넷에서 그 자료가 사라지기 전에 모아두기 위해서

나는 인터넷에서 그 자료가 사라지기 전에 모아두기 위해서 퍼놓는 경우가 많다.

깨진 링크를 보는것도 지겹다.

로또 1등되면 인터넷 역사박물관 db를 만들어보고싶다.
10억은 어림도 없고 100억은 되야 할 수 있을듯..