مشکل خوندن متن فارسی از فایل

[Ner'zhul Arthas]

وقتی در وی بی دات نت یه فایل مثلا تکست رو میخونم تمام حروف فارسیش نیست میشه.
حروف فارسی رو از از متن خونده شده پاک میکنه.

مشکل چیه و چیکار کنم؟

[vahidiran]

اگه با خود Vb.net فارسی داخلش بنویسی براش مشکلی پیش نمیاد

[Ner'zhul Arthas]

داخل فایله یا داخل برنامه؟

راه دیگه ای هم نداره برای خوندن؟

[Ner'zhul Arthas]

یه روش پیدا کردم.

فایل تکست رو به جای
ANSI
Unicode
ذخیره کنیم درست میشه.
ولی حجمش میشه دو برابر.

راه دیگه ای نیست؟

[ghafoori]

دوست عزیز از کلاسهایه فضای text استفاده کردی
در این نیم اسپیس توابعی برای تبدیل از asni به unicode است مثلا کد زیر


Dim s As String
System.Text.ASCIIEncoding.Convert(System.Text.Enco ding.ASCII, System.Text.Encoding.BigEndianUnicode, b)
Dim d As System.Text.UTF8Encoding
s = d.GetString(b)


b ارایه ای از بایت است که از فایل می خوانی
البته خودم نمی دانم این کد به کار شما می اید یا نه خودم امتحان نکردم

[Ner'zhul Arthas]

مرسی حل شد.

شکل درست استفادش اینجوریه:



Dim b() As Byte = System.IO.File.ReadAllBytes("adresefile.txt")
Dim d As New System.Text.UnicodeEncoding
b = System.Text.UnicodeEncoding.Convert(System.Text.En coding.Default, System.Text.Encoding.Unicode, b)
Textbox1.Text = d.GetString(b)

[Ner'zhul Arthas]

شکل درست ترش هم اینجوریه:


Textbox1.text = System.IO.File.ReadAllText("...\file.txt", System.Text.Encoding.Default)

[sanjar.ir]

سلام
اگر فایل را خط به خط بخواهیم بخوانیم چطور این مشکل را باید حل کنیم.
چون برنامه ای که من نوشتم متن را خط به خط پردازش می کند. اگر بخواهم یکجا فایل را بخوانم تقریباً باید سورسش را از اول بنویسم و خیلی کار می برد.
من از LineInput و PrintLine استفاده می کنم.
البته عمده مسأله من هنگام ذخیره است. می خواهم به دلخواه ansi یا یونیکد یا یونیکد UTF-8 ذخیره کنم، بدون این که از نوت پد استفاده شود خود برنامه این کار را بکند.
اگر تابع یا کدی برای تبدیل String با یک Encoding به یک Encoding دیگر سراغ دارید لطفاً راهنمایی کنید.

[sanjar.ir]

اگر تابع یا کدی برای تبدیل String با یک Encoding به یک Encoding دیگر سراغ دارید لطفاً راهنمایی کنید.

من یک تابع نوشتم که رشته را به انسی تبدیل می کند و یک تابع نوشتم که رشته را به یونیکد تبدیل می کند.
اما عیبش این است که به جای رم از هارد یا ... استفاده می کند و این باعث کاهش سرعت می شود، اگر کسی می تواند راهنمایی کند تا این عیب بر طرف شود.


Function یونیکد2اسکی(ByVal یسطرمتن As String) As String
Dim محتوافایل() As String = {یسطرمتن}
Dim آدرس_فایل_موقت, متن_موقت As String
Dim ff, ط As Integer
ff = FreeFile()
آدرس_فایل_موقت = "stringtemp.tmp"
'نوشتن با کدبندی پیشفرض
FileOpen(ff, آدرس_فایل_موقت, OpenMode.Output, OpenAccess.Write, OpenShare.LockReadWrite)
PrintLine(ff, یسطرمتن)
FileClose(ff)
'خواندن به عنوان یونیکد
محتوافایل = IO.File.ReadAllLines(آدرس_فایل_موقت, System.Text.Encoding.UTF8)
یونیکد2اسکی = محتوافایل(0)
'
'حذف بدون بازگشت
FileOpen(ff, آدرس_فایل_موقت, OpenMode.Binary, OpenAccess.Write, OpenShare.LockReadWrite)
متن_موقت = "" : ط = یسطرمتن.Length
For ح = 0 To ط
متن_موقت += "........"
Next
FilePut(ff, متن_موقت)
FileClose(ff)
Kill(آدرس_فایل_موقت)
End Function
Function اسکی2یونیکد(ByVal یسطرمتن As String) As String
Dim محتوافایل() As String = {یسطرمتن}
Dim آدرس_فایل_موقت, متن_موقت As String
Dim ff, ط As Integer
ff = FreeFile()
آدرس_فایل_موقت = "stringtemp.tmp"
'نوشتن با کدبندی پیشفرض
FileOpen(ff, آدرس_فایل_موقت, OpenMode.Output, OpenAccess.Write, OpenShare.LockReadWrite)
PrintLine(ff, یسطرمتن)
FileClose(ff)
'خواندن به عنوان اسکی
محتوافایل = IO.File.ReadAllLines(آدرس_فایل_موقت, System.Text.Encoding.ASCII)
اسکی2یونیکد = محتوافایل(0)
'
'حذف بدون بازگشت
FileOpen(ff, آدرس_فایل_موقت, OpenMode.Binary, OpenAccess.Write, OpenShare.LockReadWrite)
متن_موقت = "" : ط = یسطرمتن.Length
For ح = 0 To ط
متن_موقت += "........"
Next
FilePut(ff, متن_موقت)
FileClose(ff)
Kill(آدرس_فایل_موقت)
End Function

[a_mohammadi_m]

سلام
در این مثال یک فایل متنی فارسی تحت Dos با کد پیج ایران سیستم تبدیل به یک DataTable با کد پیج Unicode می شود
در طراحی فرم از یک Boton ، یک Textbox ، یک OpenFileDialog و یک DataGrid استفاده شده
متن Textbox برای تعیین کاراکتر جدا کننده فیلدهای اطلاعاتی در نظر گرفته شده ( مثلا , یا ; یا | یا هر کاراکتر مجاز دیگه مثل فاصله خالی که باید قبل از کلیک روی دکمه تعیین شده باشه )





Imports System.IO
Imports System.Text
Imports System.Data.OleDb
Imports IranSystemConvertor

Public Class frmGetCSV_Data


Private Sub btnSelectFile_Click(sender As Object, e As EventArgs) Handles btnSelectFile.Click

Try
OpenFileDialog1.ShowDialog()
grdData.DataSource = GetCsvData(OpenFileDialog1.FileName, txtSeprator.Text)

Catch ex As Exception
MsgBox(ex.Message)
End Try

End Sub
Public Function GetCsvData(ByVal strFileName As String, ByVal strSeprator As String) As DataTable

Dim dt As New DataTable()
Dim line As String = Nothing

Dim i As Integer = 0

Try
Using sr As StreamReader = New StreamReader(strFileName, System.Text.Encoding.GetEncoding(1256))
line = sr.ReadLine()
Do While line IsNot Nothing

Dim data() As String = line.Split(strSeprator)
Dim DataUnicode(data.GetUpperBound(0)) As String

For j = data.GetLowerBound(0) To data.GetUpperBound(0)
DataUnicode(j) = ConvertTo.Unicode(data(j))
Next
If DataUnicode.Length > 0 Then
If i = 0 Then
For Each item In DataUnicode
dt.Columns.Add(New DataColumn())
Next item
i += 1
End If
Dim row As DataRow = dt.NewRow()
row.ItemArray = DataUnicode
dt.Rows.Add(row)
End If
line = sr.ReadLine()

Loop
End Using

Return dt
Catch ex As Exception
Return Nothing
End Try
End Function

End Class



در ضمن DLL مبدل نیز ضمیمه شد