[VBNET] 텍스트 파일 읽기 (txt File Read) - 한글 깨짐 방지

* VBNET 텍스트 파일 읽기 (txt File Read) 한글 깨짐 방지 예제...

 

메인화면

전체 소스코드

Form1.vb

 

Public Class Form1

    Private Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button1.Click

        Dim ofd As OpenFileDialog = New OpenFileDialog

        ofd.Filter = "텍스트 파일(*.txt) | *.txt"

        If ofd.ShowDialog() = Windows.Forms.DialogResult.OK Then
            label1.Text = ofd.FileName

            '한글 깨짐
            'Using sr As System.IO.StreamReader = New System.IO.StreamReader(label1.Text)
            '1 첫번째 방법...
            'Using sr As System.IO.StreamReader = New System.IO.StreamReader(label1.Text, System.Text.Encoding.Default)
            '2 두번째 방법...
            Using sr As System.IO.StreamReader = New System.IO.StreamReader(label1.Text, System.Text.Encoding.GetEncoding(949))
                textBox1.Text = sr.ReadToEnd()
            End Using

        End If

    End Sub
End Class

 

 

*예제 결과

 

기본 파일 위치만 지정 했을 경우

 

파일 기본 위치 및 엔코딩 까지 지정했을 경우

 

 

https://kdsoft-zeros.tistory.com/34

[VBNET] File Create Delete Read Write Ex