تقييم الموضوع :
  • 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 ك ب / التحميلات : 30)
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] برجاء المساعدة فى تعديل هذا الكود (htmlDocument.DocumentNode.SelectNodes) الماجيك مسعد 16 256 أمس, 05:21 PM
آخر رد: alma2
  [VB.NET] احتاج تعديل الكود يخص تشغيل Button حسب user domin hglogtd 4 107 22-05-17, 09:25 AM
آخر رد: hglogtd
  منع تعديل التاريخ والوقت ريم النهاري 7 151 18-05-17, 09:28 AM
آخر رد: ريم النهاري
  [مشروع] ممكن تعديل علي المشروع دموع الوطن 12 208 15-05-17, 09:29 AM
آخر رد: دموع الوطن
  مساعده فى تعديل الكود ده لو سمحتوا يا جماعه نبيل كونكت 2 143 22-04-17, 06:16 PM
آخر رد: عبـدالله
  مساعده وارجو الرد فى ربط الصلاحيات بالبرنامج تعديل الكود بس فين الخطا نبيل كونكت 8 184 20-04-17, 01:41 PM
آخر رد: أسامة السالمي
  كيف يمكن تعديل كموبوكس داخل داتا جريد كفاح 0 72 14-04-17, 12:34 PM
آخر رد: كفاح
  [VB.NET] يرجى المساعدة في تعديل كود الطباعة dubai.eig 14 337 13-04-17, 09:40 PM
آخر رد: dubai.eig
  مساعدة في تعديل الكود المرفق للبحث Filter khaled12345 2 148 10-04-17, 11:41 PM
آخر رد: khaled12345
  طلب تعديل كود فراس محي 1 72 03-04-17, 02:08 PM
آخر رد: فراس محي

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


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