تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مشكلة في استرجاع البيانات من ملف نص محزون
#1
السلام عليكم .....
ارجو المساعدة عندي مشكلة عندما استرجع المعلومات المخزونة في ملف نصي باللغة العربية تكون المعلومات المسترجعة باللغة غير مفهومة
والمثال المرفقات


الملفات المرفقة
.rar   omar.rar (الحجم : 104.37 ك ب / التحميلات : 27)
الرد }}}}
تم الشكر بواسطة:
#2

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




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





السلام عليكم ورحمة الله وبركاته
الرد }}}}
تم الشكر بواسطة:
#3
وعليكم السلام ورحمة الله وبركاته اخي بعد ما دوس على button1 تظهر الصوره التالية عندي


الملفات المرفقة صورة/صور
   
الرد }}}}
تم الشكر بواسطة:
#4

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





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




السلام عليكم ورحمة الله وبركاته
الرد }}}}
تم الشكر بواسطة:
#5
اخي ابو رائد هذا البرنامج اختبار لان في مشروعي combobox مايحتفظ بالبيانات عند اضافتها خلال تشغيل البرنامج والحل هو قمت بانشاء ملف نصي للتحديث بعد كل عملية حذف او اضافة لعناصر combobox ولكن واجهتني اي المشكلة
الرد }}}}
تم الشكر بواسطة:
#6
[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]
الرد }}}}
تم الشكر بواسطة:
#7

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





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

PHP كود :
Public Class Form1

    
Private Sub Form1_Load(ByVal sender As System.ObjectByVal e As System.EventArgsHandles 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.ObjectByVal e As System.EventArgsHandles Button1.Click
        Me
.ComboBox1.Items.Add(Me.ComboBox1.Text)
    
End Sub


    
Private Sub Form1_FormClosing(ByVal sender As ObjectByVal e As System.Windows.Forms.FormClosingEventArgsHandles 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 





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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  حل مشكلة الكود الاتي - سهل- CLARO 3 67 أمس, 04:06 PM
آخر رد: ali.alfoly
  قاعدة البيانات لا تدعم اللغة العربية ؟؟؟؟؟؟ صبري زينوبي 11 155 01-12-16, 12:55 PM
آخر رد: صبري زينوبي
  كيف يتم حل مشكلة ظهور رسالة عند الضغط علي هيد داتا جريد فيو السيد الجوهري 4 49 30-11-16, 10:08 PM
آخر رد: السيد الجوهري
  [VB.NET] مشكلة عند عمل تحديث للبيانات Asmaa adel 3 68 27-11-16, 03:56 PM
آخر رد: Adrees
Rainbow [VB.NET] مشكلة طابعة الباركود محمد اسماعيل 3 261 27-11-16, 10:30 AM
آخر رد: adel27
  تغيير قاعدة البيانات من اكسس الى sql hglogtd 2 94 26-11-16, 03:03 AM
آخر رد: hglogtd
  [سؤال] ايهما افضل من جهة امن البيانات thevirus 2 83 24-11-16, 12:14 PM
آخر رد: thevirus
  [كود] الحذف من قاعدة البيانات بواسطة كلمة سر المبرمج العبقري 5 117 23-11-16, 05:21 PM
آخر رد: hglogtd
  [VB.NET] الاتصال بقاعدة البيانات في التقارير (الكريستال ريبورت) thevirus 2 79 23-11-16, 11:05 AM
آخر رد: thevirus
  [SQL] مشكلة عند الاتصال بالسيكوال سيرفر تظهر الرسالة التالية Asmaa adel 8 178 21-11-16, 11:58 PM
آخر رد: Asmaa adel

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم