السلام عليكم .....
ارجو المساعدة عندي مشكلة عندما استرجع المعلومات المخزونة في ملف نصي باللغة العربية تكون المعلومات المسترجعة باللغة غير مفهومة
والمثال المرفقات
اخي ابو رائد هذا البرنامج اختبار لان في مشروعي combobox مايحتفظ بالبيانات عند اضافتها خلال تشغيل البرنامج والحل هو قمت بانشاء ملف نصي للتحديث بعد كل عملية حذف او اضافة لعناصر combobox ولكن واجهتني اي المشكلة
[HTML] Try
Dim objReader As New System.IO.StreamReader(My.Application.Info.DirectoryPath & "\اسم الملف النصى")
Dim g As String = objReader.ReadToEnd
g = Replace(g, vbCrLf, "#")
Dim rt() As String = g.Split("#")
For i As Integer = 0 To rt.Length - 1
ComboBox1.Items.Add(rt(i))
Next
Catch ex As Exception
MsgBox("الملف غير موجود")
End Try[/HTML]
20-03-13, 10:57 PM (آخر تعديل لهذه المشاركة : 20-03-13, 10:59 PM {2} بواسطة Moo00ooN.)
السلام عليكم ورحمة الله وبركاته
جرب هذا الكود على السريع
PHP كود :
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim txtRead() As String = IO.File.ReadAllLines(Application.StartupPath & "\store.txt") Me.ComboBox1.Items.Clear() For Each line In txtRead Me.ComboBox1.Items.Add(line) Next End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Me.ComboBox1.Items.Add(Me.ComboBox1.Text) End Sub
Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing Dim txtWrite As String = "" For Each line In Me.ComboBox1.Items txtWrite &= line & vbNewLine Next IO.File.WriteAllText(Application.StartupPath & "\store.txt", txtWrite.Trim) End Sub
