txt파일 불러오기 질문합니다...
보늬
2024.06.11
Private Sub LstBt1_Click(sender As Object, e As EventArgs) Handles LstBt1.Click
With OpenFileDialog1
.Filter = 텍스트파일(*.TXT)|*.txt|모든파일(*.*)|*.*
.FilterIndex = 1
.FileName = vbNullString
.Title = 금칙어가 포함된 텍스트파일을 선택해주세요.
.ShowDialog()
If (.FileName.Length = 0) Then
MsgBox(파일이 선택되지 않았습니다, vbCritical, Error!)
End If
Dim strArry As New StreamReader(OpenFileDialog1.FileName, System.Text.Encoding.UTF8)
OpenFileDialog1.RestoreDirectory = True
MsgBox(strArry.ReadToEnd)
End With
End Sub흑... 저렇게 했는데도 한글이 깨지는데, 어떻게 해야되나요. . .
-
겨울바람 2024-06-11
헉..감사합니다..
EUC-KR 없어서 뒤져보니..
Dim strArry As New StreamReader(OpenFileDialog1.FileName, System.Text.Encoding.Default)
라고 하면 되네요. 감사합니다. -
솔길 2024-06-11
제생각엔 인코딩방식이 UTF-8 유니코드가 아니라 EUC-KR 인가 한국어로 해야되는거아닐까요?