تقييم الموضوع :
  • 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] طلب تعديل كود بحث من البحث في الاكسس الى البحث بالسكيول وشكراً m22sf 3 35 منذ 2 ساعة مضت
آخر رد: thevirus
  تعديل الكود (ظهور مسج بوكس عند عدم وجود الاسم) Namer 10 416 04-01-17, 01:12 AM
آخر رد: Namer
  [سؤال] تعديل html قبل عرضه في WebBrowser ali.alfoly 16 301 24-12-16, 11:48 AM
آخر رد: Basil Abdallah
Information [VB.NET] تعديل بيسط على الكود 3asfa~mdmra 6 123 18-12-16, 04:31 AM
آخر رد: 3asfa~mdmra
  [كود] تعديل كود البحث بين تاريخينب hglogtd 2 101 29-11-16, 01:37 AM
آخر رد: hglogtd
  [VB.NET] طلب تعديل ع الكود ليصبح البرنامج جاهزاً 3asfa~mdmra 8 233 12-11-16, 02:30 AM
آخر رد: 3asfa~mdmra
  [VB.NET] تعديل بسيط على المشروع المرفق أبووسم 4 174 29-10-16, 03:42 PM
آخر رد: أبووسم
  [VB.NET] محتاج تعديل الاكواد . 0theghost0 3 139 18-10-16, 10:52 AM
آخر رد: mhmd_911
  [كود] تعديل في المشروع الخاص بي عبدالرحمن المكاوي 2 152 04-10-16, 08:25 PM
آخر رد: عبدالرحمن المكاوي
  تعديل على كود فتح ملف معين و إنشاء ملف جديد أبووسم 2 201 25-09-16, 02:14 PM
آخر رد: أبووسم

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


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