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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [كود] تعديل كود البحث بين تاريخينب hglogtd 2 37 29-11-16, 01:37 AM
آخر رد: hglogtd
  [VB.NET] طلب تعديل ع الكود ليصبح البرنامج جاهزاً 3asfa~mdmra 8 188 12-11-16, 02:30 AM
آخر رد: 3asfa~mdmra
  [VB.NET] تعديل بسيط على المشروع المرفق أبووسم 4 133 29-10-16, 03:42 PM
آخر رد: أبووسم
  [VB.NET] محتاج تعديل الاكواد . 0theghost0 3 80 18-10-16, 10:52 AM
آخر رد: mhmd_911
  [كود] تعديل في المشروع الخاص بي عبدالرحمن المكاوي 2 106 04-10-16, 08:25 PM
آخر رد: عبدالرحمن المكاوي
  تعديل على كود فتح ملف معين و إنشاء ملف جديد أبووسم 2 142 25-09-16, 02:14 PM
آخر رد: أبووسم
  تعديل الكود لرفع ملف على الانترنت anes 10 336 22-09-16, 04:20 PM
آخر رد: أبو عمر
Rainbow [سؤال] كيف يتم تعديل الكود من الفيجوال بيسك الى الفيجوال دوت نت محمد مسافر 2 178 17-09-16, 08:32 PM
آخر رد: محمد مسافر
  [VB.NET] طلب مشروع تعديل في قيم الريجستري محمد مسافر 2 115 17-09-16, 03:44 PM
آخر رد: محمد مسافر
  [vb6.0] ما هو كود قص او تعديل على الصورة ؟؟ proff2016 0 71 31-08-16, 05:03 PM
آخر رد: proff2016

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


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