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

إن كنت أخي تقصد وضع السطر الأول في TextBox1 والسطر الثاني في TextBox2 وهكذا..

استخدم الكود التالي .. مع مراعات أن يكون عدد الأسطر داخل الملف النصي = عدد مربعات النص في البرنامج


كود :
Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim TextFile As String
        TextFile = My.Computer.FileSystem.ReadAllText("c:\Sniper.txt")

        For i = 1 To TextFile.Split(vbNewLine).Count
            Controls("TextBox" & i).Text = TextFile.Split(vbNewLine)(i - 1)
        Next

    End Sub
End Class

وفقك الله
الرد
تم الشكر بواسطة: ashrof
#3
اخوي اذا حاب تستورد ملف تكست فاليك هذا الكود


PHP كود :
Dim r As String "C:\Users\bosqah\Desktop\text.txt"
        
If IO.File.Exists(rThen
            Dim opjreader 
As New System.IO.StreamReader(r)
            
TextBox1.Text = (opjreader.ReadToEnd)
            
opjreader.Close()
        
End If 

طبعنا في البدايه تحدد مسار الملف وصيغته

ولو تلاحظ textbox1.text هذا الي راح تستورد فيه التكست

اتمنى وضحت لك الامر بس بخصوص الاشياء الباقيه لم افهمه صراحة
الرد
تم الشكر بواسطة:
#4
(04-07-14, 01:33 AM)Sniper.ps كتب :
وعليكم السلام ورحمة الله وبركاته

إن كنت أخي تقصد وضع السطر الأول في TextBox1 والسطر الثاني في TextBox2 وهكذا..

استخدم الكود التالي .. مع مراعات أن يكون عدد الأسطر داخل الملف النصي = عدد مربعات النص في البرنامج


كود :
Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim TextFile As String
        TextFile = My.Computer.FileSystem.ReadAllText("c:\Sniper.txt")

        For i = 1 To TextFile.Split(vbNewLine).Count
            Controls("TextBox" & i).Text = TextFile.Split(vbNewLine)(i - 1)
        Next

    End Sub
End Class

وفقك الله

الف شكر بجد وتسلم HeartHeartبس انا عايز لما اضغط الزر button اول مره يظهر اول سطر واضغط تانى مره يتمسح الاول ويظهر تانى سطر(فى textbox)
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Exclamation مطلوب هذا البرنامج من فضلكم kador 7 114 21-04-19, 11:42 PM
آخر رد: elgokr
  مطلوب مثال لعرض بيانات كبيرة الحجم مع بروجرس بار new_programer 2 143 05-03-19, 06:28 AM
آخر رد: new_programer
  مشكلة كود استيراد ملف اكسيل يقراء لغة واحدة فقط new_programer 4 152 18-02-19, 02:04 AM
آخر رد: new_programer
Star مطلوب طرية عمل setup Aziz170020 0 106 11-02-19, 02:23 AM
آخر رد: Aziz170020
  مطلوب عرض تفاصيل بيانات داخل Texbox عن طريق ListView ... احتاج كود استعلام mohamedgadain61 9 368 30-01-19, 06:42 AM
آخر رد: حريف برمجة
  مطلوب معاينة المثال والمساعدة في تعديل الكود وفقكم الله فراس الغزي 8 309 29-01-19, 10:43 PM
آخر رد: فراس الغزي
  [SQL] مطلوب تعديل كود الاستعلام من جدولين غير مرتبطين فراس الغزي 10 405 18-01-19, 11:05 PM
آخر رد: asemshahen5
  [سؤال] استيراد بيانات لقاعدة البيانات وعمل مقارنة nandy2016 1 198 08-12-18, 02:22 PM
آخر رد: nandy2016
  [VB.NET] مطلوب التعديل عالمثال المرفق للطباعة بفيجوال بيسك 2010 دوت نت hbsbamaga 1 270 23-11-18, 12:51 PM
آخر رد: hbsbamaga
  مطلوب كود : تاكيد هوية شخص ما عن طريق الصوت pablon_pc 3 246 18-11-18, 12:57 PM
آخر رد: pablon_pc

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


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