load کردن فایل utf در لیست باکس

[samiasoft]

سلام دوستان

من در حالت عادی که فایل تکست بصورت ansi ذخیره شده باشه میتوانم ان را در لیست باکس نشون بدم

اما برای حروف فارسی که در داخل فایل تکست هستند و بصورت utf ذخیره شدند وقتی داخل لیست باکس لود میکنم درست نمایش داده نمیشن

ایا راه حلی دارید؟

این سورس رو ضمیمه شده رو ببنید.

[vbhamed]

سلام
اين يك نمونه براي يونيكد

[samiasoft]

آیا نمیشه برای ذخیره بصورت یونیکد یا utf8 از CommonDialog استفاده کرد؟

من هرچه تلاش کردم نشد محل ذخیره یا لود فایل رو با استفاده از CommonDialog انتخاب کنم:افسرده:

[vbhamed]

سلام
ذخيره به صورت Unicode كلا ارتباطي به Common Dialog نداره، كار اين دو تا متفاوته
نمونه كار با Common Dialog هم تو سايت هم تو كل اينترنت فراوونه

[samiasoft]

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

Private Sub cmdSave_Click()
CommonDialog1.FileName = ""
CommonDialog1.Filter = "Text Files (.txt) |*.txt|"

Dim sCarCe As ADODB.Stream
CommonDialog1.ShowSave
Set sCarCe = New ADODB.Stream
If CommonDialog1.FileName <> "" Then

sCarCe.Open
sCarCe.Charset = "UTF-8"
sCarCe.WriteText Text1.Text

sCarCe.SaveToFile CommonDialog1.FileName, adSaveCreateOverWrite
Set sCarCe = Nothing
End If
End Sub

Private Sub cmdLoad_Click()
CommonDialog1.FileName = ""
CommonDialog1.Filter = "Text Files (.txt) |*.txt|"

Dim sCarCe As ADODB.Stream
CommonDialog1.ShowOpen
Set sCarCe = New ADODB.Stream


If CommonDialog1.FileName <> "" Then
sCarCe.Open
sCarCe.Charset = "UTF-8"
sCarCe.LoadFromFile CommonDialog1.FileName
Text1.Text = sCarCe.ReadText

Set sCarCe = Nothing
End If
End Sub



که این برای تکست باکس بود.
برای لیست باکس چطوری عمل کنم؟

[vbhamed]

سلام
رشته اي كه از فايل خونده شده رو با تابع Split و بر اساس كاراكتر vbCrLf به صورت آرايه در بياريد و عناصر آرايه رو در ليست بريزيد

[samiasoft]

متاسفانه بلد نیستم اینو انجام بدم:خجالت: یعنی اینگونه بنویسم؟

St() = Split(sCarCe.ReadText, vbCrLf)
For i = 0 To List1.ListCount - 1
List1.AddItem St(i)
Next i

[hmbarnamenevis]

St() = Split(sCarCe.ReadText, vbCrLf)
For i = LBound(St) To UBound(St)
List1.AddItem St(i)
Next i

[samiasoft]

ممنون از شما...کد لود کردن رو بصورت زیر نوشتم

CommonDialog1.FileName = ""
CommonDialog1.Filter = "Text Files (.txt) |*.txt|"
Dim St() As String
Dim sCarCe As ADODB.Stream
CommonDialog1.ShowOpen
Set sCarCe = New ADODB.Stream

List1.Clear

If CommonDialog1.FileName <> "" Then
sCarCe.Open
' type zakhire dade -- Unicode - Ansi - Unicode big endian - UTF-8
sCarCe.Charset = "UTF-8"
sCarCe.LoadFromFile CommonDialog1.FileName
m = sCarCe.ReadText

St() = Split(m, vbCrLf)
For i = LBound(St) To UBound(St)
List1.AddItem St(i)
Next i

Set sCarCe = Nothing
End If

اما برای ذخیره کردن چطوری عمل کنیم؟:متفکر:

[vbhamed]

سلام
براي ذخيره هم همه آيتمهاي ليست رو در يك رشته با هم تركيب كنيد و بين هر آيتم همون كاراكتر vbCrLf رو بزاريد و بعد كل رشته رو در فايل بنويسيد

[samiasoft]

For i = 0 To List1.ListCount - 1
sCarCe.WriteText List1.List(i) + vbCrLf
Next i

به نظرتون درسته؟

[vbhamed]

سلام
فايل خروجي رو تست كنيد ببينيد همه آيتم ها نوشته شده يا فقط آيتم آخر

[tosi-software]

سلام ، کسی الان آنلاین هست که یک نمونه فایل متنی را ارسال کنم تا نحوه خواندن اطلاعات UTF را راهنمائی کند؟
لازم به یاد آوری است که هیچیک از روشهای قید شده در بالا پاسخگو نبوده است .
ممنون میشوم اگر راهنمائی فرمائید.

[vbhamed]

سلام
روش بالا برای خواندن فایلهای استاندارد utf است اگر فایل شما به این روش خونده نمیشه یعنی استاندارد نیست و ممکنه کلا به طریق دیگری نوشته شده باشه یا اینکه به صورت کد شده ذخیره شده باشه
اما در هر صورت فایلتون رو ارسال کنید