منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
مشكلة في استرجاع البيانات من ملف نص محزون - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : مشكلة في استرجاع البيانات من ملف نص محزون (/showthread.php?tid=8076)

مشكلة في استرجاع البيانات من ملف نص محزون - عمر البغدادي - 20-03-13

السلام عليكم .....
ارجو المساعدة عندي مشكلة عندما استرجع المعلومات المخزونة في ملف نصي باللغة العربية تكون المعلومات المسترجعة باللغة غير مفهومة
والمثال المرفقات

مشكلة في استرجاع البيانات من ملف نص محزون - @@أبورائد@@ - 20-03-13


السلام عليكم ورحمة الله وبركاته




لم أجد أي مشكلة





السلام عليكم ورحمة الله وبركاته

مشكلة في استرجاع البيانات من ملف نص محزون - عمر البغدادي - 20-03-13

وعليكم السلام ورحمة الله وبركاته اخي بعد ما دوس على button1 تظهر الصوره التالية عندي

مشكلة في استرجاع البيانات من ملف نص محزون - @@أبورائد@@ - 20-03-13


السلام عليكم ورحمة الله وبركاته





ما عمل هذا البرنامج، لأني ارى الكود غير صحيح!!!




السلام عليكم ورحمة الله وبركاته

مشكلة في استرجاع البيانات من ملف نص محزون - عمر البغدادي - 20-03-13

اخي ابو رائد هذا البرنامج اختبار لان في مشروعي combobox مايحتفظ بالبيانات عند اضافتها خلال تشغيل البرنامج والحل هو قمت بانشاء ملف نصي للتحديث بعد كل عملية حذف او اضافة لعناصر combobox ولكن واجهتني اي المشكلة

مشكلة في استرجاع البيانات من ملف نص محزون - just.coder - 20-03-13

[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


السلام عليكم ورحمة الله وبركاته





جرب هذا الكود على السريع

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

End Class 





السلام عليكم ورحمة الله وبركاته

مشكلة في استرجاع البيانات من ملف نص محزون - عمر البغدادي - 20-03-13

شكرا اخي ابو رائد و just.coder على الحل وبارك الله لكما والسلام عليكم ورحمة الله وبركاتة