منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : قرائة سطر معين داخل ملف تكست
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
اخوانى السلام عليكم ورحمة الله وبركاته
انا اعرف هذه الداله
IO.StreamReader
كيف يمكننى عن طريقها قرائت سطر معين داخل الملف
حاولت اجرب
ReadLine
لاكن ما نفعش
عندى مثلا ملف به اسماء بكل سطر اسم مختلف

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

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

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

أخي الكريم استعمل هذه الدالتين فقط عندما تريد قراءة سطر واحد فقط
كود :
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

بالتوفيق
~ المثال بالمرفق ~
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]
هل هذه الطريقه كويسه ولا هناك طرق افضل متبعه

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

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

أي كود تقصد
هل تقصد الأكواد التي كتبتها أنا في مشاركتي؟