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



بالتوفيق للجميع
الرد }}}}
تم الشكر بواسطة:
#2
وعليكم السلام ورحمة الله وبركاته
أخي الكريم الكود المرفق مكتوب بـ VB6
والدوت نت تميزت باختصار الكود
فإليك هذا الكود الذي يعطي نفس النتيجة ولكن في سطر واحد فقط
كود :
Private Function LoadTips(ByVal FileName As String) As String()
        Return System.IO.File.ReadAllLines(FileName)
    End Function
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ListBox1.Items.AddRange(LoadTips("اسم الملف"))
    End Sub
الكود السابق يقوم عند الضغط على Button1 باستدعاء الوظيفة LoadTips مع تمرير متغير اسم الملف FileName
وبعدها يقوم بإضافة الناتج في ListBox1

بالتوفيق
الرد }}}}
تم الشكر بواسطة:
#3
السلام عليكم ورحمة الله
بارك الله فيك وزادك من علمه
الكود السابق يقوم بإضافة محتوى الملف بأكمله الى اللست
وأنا ما اريده هو عند الضغط على الزر يقوم بإضافة سطر من الملف وعند الضغط مرة اخرى ينتقل الى سطر اخر وهكذا....
الرد }}}}
تم الشكر بواسطة:
#4
هل تقصد بأنك تريد تحميل سطر عشوائي عند كل مرة تضغط فيها على الزر أم بالتزتيب؟
الرد }}}}
تم الشكر بواسطة:
#5
السلام عليكم ورحمة الله وبركاته
sooriaty03 كتب :هل تقصد بأنك تريد تحميل سطر عشوائي عند كل مرة تضغط فيها على الزر أم بالتزتيب؟
بارك الله فيك اخي هذا ما اقصدهBig Grin
لو ممكن مثال على تحميل سطر عشوائي ومثال اخر على تحميل سطر بالترتيب وعرضها في label
وجزاك الله خيراCool
الرد }}}}
تم الشكر بواسطة:
#6
السلام عليكم ورحمة الله وبركاته

تفضل مثال كامل
كود :
Public Class Form1

    Private Tips As New List(Of String)

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        LoadTips("Azkar.dl")

    End Sub

    Private Function LoadTips(ByVal filename As String) As Boolean
        If IO.File.Exists(filename) Then
            Tips = Split(IO.File.ReadAllText(filename).Trim, vbNewLine).ToList
            Return True
        End If

    End Function

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        DisplayTip()

    End Sub

    Private Sub DisplayTip()
        If Tips.Count > 0 Then
            Dim indx As Integer = CInt((Tips.Count - 1) * Rnd() + 1)
            Me.Label1.Text = Tips.Item(indx - 1)
        End If

    End Sub

End Class

السلام عليكم ورحمة الله وبركاته
الرد }}}}
تم الشكر بواسطة:
#7
السلام عليكم ورحمة الله
بارك الله فيك اخي
@@أبورائد@@هذا ما اقصده100*100
وجزاك الله خيرا وزادك من علمه
بقيت مشكلة اخرى يتم عرض المعلومة على شكل رموز غير مفهومة
:confused:كما في الصورة
[ATTACH=CONFIG]1610[/ATTACH]



الملفات المرفقة صورة/صور
   
الرد }}}}
تم الشكر بواسطة:
#8
3amo كتب :
السلام عليكم ورحمة الله
بارك الله فيك اخي
@@أبورائد@@هذا ما اقصده100*100
وجزاك الله خيرا وزادك من علمه
بقيت مشكلة اخرى يتم عرض المعلومة على شكل رموز غير مفهومة
:confused:كما في الصورة
[ATTACH=CONFIG]1610[/ATTACH]


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


أغلب الظن يعود لترميز النص داخل الملف Azkar.dl
الحل: قم بفتح الملف بالمفكرة ثم [حفظ بإسم..] واختر الترميز [UTF-8] قبل ان تضغط على [حفظ]

السلام عليكم ورحمة الله وبركاته
الرد }}}}
تم الشكر بواسطة:
#9
السلام عليكم ورحمة الله وبركاته
إقتباس :أغلب الظن يعود لترميز النص داخل الملف azkar.dl
الحل: قم بفتح الملف بالمفكرة ثم [حفظ بإسم..] واختر الترميز [utf-8] قبل ان تضغط على [حفظ]
تم حل المشكل كما قلت اخي
@@أبورائد@@
:d

جزاك الله عنا كل خير
وفقك الله الى ما يحبه ويرضاه
اللهم اجعل هذا العمل في ميزان حسناته
بالتوفيق






الملفات المرفقة
.zip   testadikr.zip (الحجم : 76.05 ك ب / التحميلات : 43)
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تعديل كود عدم اضافة اكترمن 0 فى التكست بوكس نبيل فتحى 5 103 18-10-17, 09:49 PM
آخر رد: سعود
  اريد تعديل ع المشروع فقط + تحميل المشروع بالكامل e-coder 4 114 17-10-17, 12:09 AM
آخر رد: e-coder
  [VB.NET] اخر تعديل بالكلاس محمد اسماعيل 1 41 14-10-17, 09:41 PM
آخر رد: محمد اسماعيل
  [VB.NET] اريد تعديل ع هذا الكود الرجاء مساعدتـي e-coder 0 37 13-10-17, 06:39 PM
آخر رد: e-coder
  [VB.NET] ممكن تعديل الكود التالي D-Z 0 65 21-09-17, 06:34 PM
آخر رد: D-Z
  مساعده فى تعديل كود خاص بالتكست بوكس نبيل فتحى 1 60 19-09-17, 03:33 PM
آخر رد: أبو نوره
  [سؤال] مشكلة في حذف و تعديل بيانات DataGridView mohammed alnour 4 176 16-09-17, 01:01 AM
آخر رد: mohammed alnour
  [VB.NET] مشكلة في تعديل المشروع مصمم هاوي 9 558 15-09-17, 06:54 PM
آخر رد: مصمم هاوي
  [سؤال] الى الاساتذة الكرام ارجو المساعدة(تعديل كود) gharib 5 171 06-09-17, 08:32 AM
آخر رد: gharib
  [كود] احتاج الى تعديل :( MeDo Ly 2 117 25-08-17, 11:41 PM
آخر رد: أبو نوره

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


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