f_g1348
سه شنبه 16 اسفند 1390, 13:01 عصر
سلام
من كدي نوشتم كه متن يك فايل متني رو بخونه و درون يك textbox بريزه ولي وقتي متن رو در textbox نمايش ميده بصورت مربع مربع مي باشد ( متن فارسي مي باشد )
كد بصورت زير مي باشد
لطفاً من را راهنمايي كنيد
Private Sub FileReader()
Dim utf8 As New Text.UTF8Encoding
Dim OpenFile As New OpenFileDialog
OpenFile.ShowDialog()
If OpenFile.FileName <> "" Then
TextBox2.Clear()
Dim fs As New FileStream(OpenFile.FileName, FileMode.Open, FileAccess.Read)
Dim ar(fs.Length) As Byte
For i As Integer = 0 To fs.Length - 1
ar(i) = fs.ReadByte
Next
TextBox2.Text = utf8.GetString(ar)
fs.Close()
End If
End Sub
من كدي نوشتم كه متن يك فايل متني رو بخونه و درون يك textbox بريزه ولي وقتي متن رو در textbox نمايش ميده بصورت مربع مربع مي باشد ( متن فارسي مي باشد )
كد بصورت زير مي باشد
لطفاً من را راهنمايي كنيد
Private Sub FileReader()
Dim utf8 As New Text.UTF8Encoding
Dim OpenFile As New OpenFileDialog
OpenFile.ShowDialog()
If OpenFile.FileName <> "" Then
TextBox2.Clear()
Dim fs As New FileStream(OpenFile.FileName, FileMode.Open, FileAccess.Read)
Dim ar(fs.Length) As Byte
For i As Integer = 0 To fs.Length - 1
ar(i) = fs.ReadByte
Next
TextBox2.Text = utf8.GetString(ar)
fs.Close()
End If
End Sub