تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
قرائة سطر معين داخل ملف تكست
#1
اخوانى السلام عليكم ورحمة الله وبركاته
انا اعرف هذه الداله
IO.StreamReader
كيف يمكننى عن طريقها قرائت سطر معين داخل الملف
حاولت اجرب
ReadLine
لاكن ما نفعش
عندى مثلا ملف به اسماء بكل سطر اسم مختلف

مثال
كود :
محمد
محمود
على
شعبان
رجب
ياسر
رمضان

اريد ان استدعى السطر الخامس مثلا بحيث يعود ب (رجب)

وجزاكم الله خير
الرد }}}
تم الشكر بواسطة:
#2
وعليكم السلام ورحمة الله وبركاته

أخي الكريم استعمل هذه الدالتين فقط عندما تريد قراءة سطر واحد فقط
كود :
Private Function LoadLine(ByVal Path As String, ByVal Index As Integer) As String
        Return System.IO.File.ReadAllLines(Path)(Index)
    End Function
    Private Function LoadLine(ByVal Path As String, ByVal Index As Integer, ByVal Encoding As System.Text.Encoding) As String
        Return System.IO.File.ReadAllLines(Path, Encoding)(Index)
    End Function

وطريقة استدعائها إذا كنت تريد استدعاء الاسم رجب مثلا
ضع الكود التالي

كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'الرقم 4 هو رقم السطر المطلوب
        TextBox1.Text = LoadLine("c:\1.txt", 4)
        'أو بتحديد الترميز المطلوب
        TextBox1.Text = LoadLine("c:\1.txt", 4, System.Text.Encoding.Default)
    End Sub

بالتوفيق
الرد }}}
تم الشكر بواسطة:
#3
~ المثال بالمرفق ~


الملفات المرفقة
.zip   Reading_And_Writing_TextFile.zip (الحجم : 157.36 ك ب / التحميلات : 133)
Big Grin
<---------------------------------------------------------------->

الرد }}}
تم الشكر بواسطة:
#4
sooriaty03 كتب :وعليكم السلام ورحمة الله وبركاته

أخي الكريم استعمل هذه الدالتين فقط عندما تريد قراءة سطر واحد فقط
كود :
Private Function LoadLine(ByVal Path As String, ByVal Index As Integer) As String
        Return System.IO.File.ReadAllLines(Path)(Index)
    End Function
    Private Function LoadLine(ByVal Path As String, ByVal Index As Integer, ByVal Encoding As System.Text.Encoding) As String
        Return System.IO.File.ReadAllLines(Path, Encoding)(Index)
    End Function

وطريقة استدعائها إذا كنت تريد استدعاء الاسم رجب مثلا
ضع الكود التالي

كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'الرقم 4 هو رقم السطر المطلوب
        TextBox1.Text = LoadLine("c:\1.txt", 4)
        'أو بتحديد الترميز المطلوب
        TextBox1.Text = LoadLine("c:\1.txt", 4, System.Text.Encoding.Default)
    End Sub

بالتوفيق


جزاك الله خير ورحمك وغفر لك

هذا هو المطلوب بالفعل

وشكرا انك وضحت الطريقتين التى بالترميز والعاديه


Easy 4ever كتب :~ المثال بالمرفق ~

ملف ولا اروع

جزاك الله خير

تعلمت منه اشياء ايضا لم اكن اعرفها




لى استشاره معلش
انا ساستخدم هذه الطريقه لاجعل برنامجى متعدد الغات
بمعنى اصنع اكثر من ملف للغات فى كل ملف اللغه الخاصه به

مثا اللغة العربيه

إقتباس :ملف
مجلد
خطاء
تم العثور عليه
غير متوفر
جديد


[SIZE=4]مثال ال[SIZE=4]لغه الانجليزيه
[/SIZE]
إقتباس :File
Volume
Impropriety
Found
Not available
New[SIZE=4]

[/SIZE]

وساقوم باستد[SIZE=4]عاء السطر المراد فى مكانه المحدد على ا[SIZE=4]ساس اللغة التى تم تحديدها

كنت ساقوم بحفظ جميع ال[SIZE=4]اسطر كل سطر فى متغير عا[SIZE=4]م واقوم باستع[SIZE=4]ائه عن ال[SIZE=4]لزوم

لاكن حسيت ان كثرة المتغيرات تستهلك مساحه مما يجعل البرنامج ابطئ
[/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE]
[/SIZE]
هل هذه الطريقه كويسه ولا هناك طرق افضل متبعه

ارجو نصحى وجزاكم الله خيرا
الرد }}}
تم الشكر بواسطة:
#5
لأ أخي الكريم هذه الطريقة ليست جيدة للترجمة
والأفضل هو استخدام الخاصية Localizable للفورم
وهذا رابط لموضوع يشرح الطريقة مع مثال مرفق مع الشرح للأخ silverlight
مقال- كيف تترجم برنامجك وتجعله عالميا (Raggi Tech)

بالتوفيق
الرد }}}
تم الشكر بواسطة:
#6
جزاك الله خير فعلا هذا ما فعلته بالفعل
لاكن الملف عشان الرسائل MsgBox مثلا وغيرها
الرد }}}
تم الشكر بواسطة:
#7
ممكن سورس كود ولكن بالفجوال 6
الرد }}}
تم الشكر بواسطة:
#8
شفنطل كتب :ممكن سورس كود ولكن بالفجوال 6

أي كود تقصد
هل تقصد الأكواد التي كتبتها أنا في مشاركتي؟
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تعديل طول حقل معين في جميع جداول القاعدة atefkhalf2004 1 97 09-03-24, 03:17 AM
آخر رد: atefkhalf2004
  [سؤال] كيفية انشاء فورم داخل مشروعى عاصم النجار 2 304 05-01-24, 12:36 AM
آخر رد: HALIM ELEULMA
  حماية عمود داخل ورقة الاكسل العيدروس 3 190 05-01-24, 12:21 AM
آخر رد: HALIM ELEULMA
  كيف ارسل مجموع 3 تكست بوكس إلى واحد بالترتيب ؟ أبووسم 3 330 18-12-23, 05:17 PM
آخر رد: أبووسم
Lightbulb [VB.NET] إطهار الصورة بمقاس معين في DataGridView أبو خالد الشكري 2 323 14-12-23, 03:01 PM
آخر رد: أبو خالد الشكري
  [سؤال] توزيع الارقام على أكثر من تكست بوكس أبووسم 11 692 17-11-23, 12:04 AM
آخر رد: أبووسم
  هل الداتا قراد فيو تسمح بتعدد الاسطر داخل الخلية عند جلب بيانات نصية طويله من قاعدة ب khalidalwdi 3 460 10-11-23, 11:08 AM
آخر رد: khalidalwdi
  كيف اجعل البرنامج في بداية الشهر ينفذ حدث معين بالاصح اريد البرنامج في تاريخ واحد من Adel27213 3 484 05-11-23, 01:45 AM
آخر رد: justforit
  كيفية جمع قيمة على تاريخ معين واستنتاج تاريخ أخر Ahmed.vb 1 317 02-11-23, 03:52 AM
آخر رد: Taha Okla
  إجبار المستخدم على إدخال عدد معين من الأرقام Ahmed.vb 6 656 20-10-23, 10:25 AM
آخر رد: atefkhalf2004

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


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