shop-wiz logo
Follow Us on Facebook Follow Us on Google+ Follow Us on Twitter Follow Us on LinkedIn
제목 utf-8에서 파일 쓰기
등록일 2010.04.30 HIT 7710 작성자 폰돌
utf-8 에서 파일을 만들면 기본적으로 unicode 가 생성되는데 
이경우 unicode는 엄밀히 말해 utf-16이라서 asp에서 처리가 되지 않는다.
이경우 파일작성 요령입니다.


    Sub makeFile_adminInfo(strText, FILEPATH)
        if utf-8 이면 then
            Call util.WriteToFile(strText , FILEPATH)
        else ascii이면
            Dim FSO, ForWriting, FILE
            SET FILE = FSO.createTextFile(FILEPATH, ForWriting)
            SET FSO   = Server.CreateObject("Scripting.FileSystemObject")
            IF FSO.fileExists(FILEPATH) THEN FSO.DeleteFile(FILEPATH)    
            FILE.WriteText strText        
            FILE.CLOSE
            Set FSO    = Nothing : Set FILE = Nothing
            ''On Error Resume Next
        end if
    End Sub    


    Sub WriteToFile (strText, strFile)''utf-8에서 사용시
        Dim Stream
        Set Stream = CreateObject ("ADODB.Stream")
        With Stream
        .Open
        .CharSet = "utf-8"
        .WriteText strText
        .SaveToFile strFile, 2
        End With
        Set Stream = Nothing
    End Sub
댓글보기
등록된 댓글이 없습니다.

Powered by shop-wiz since 2002, e-mail:wangta69@naver.com