SolarView

한글 텍스트 파일을 읽기 위해서는 인코딩을 다음과 같이 지정해 주어야 한다.

[CODE lang-vb]'파일스트림 열기
Dim fs As New FileStream("myhangultext.txt", FileMode.Open, FileAccess.Read)
'
'스트림리더 열기
'*** 주의 : System.Text.Encoding.Default를 지정해야 '한글'을 읽어올 수 있음!!!
'시스템의 현재 ANSI 코드 페이지에 대한 인코딩을 가져옵니다
'Dim Reader As New StreamReader(fs, System.Text.Encoding.Default)
'--> 사실 이렇게 하면, 한글윈도우이어야 읽을 수 있다.
'명확히 한글을 읽을 수 있게 하려면 다음과 같이 해야 한다.
Dim Reader As New StreamReader(fs, System.Text.Encoding.GetEncoding(949))
'여기서 949는 한글에 대한 code page이다.
'
'자료를 읽기
Call Parse(Reader)
'
'스트림리더 닫기
Reader.Close()
[/CODE]

Posted by solarview