한글 텍스트 파일을 읽기 위해서는 인코딩을 다음과 같이 지정해 주어야 한다.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 |
'파일스트림 열기 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() |