منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] كود لعرض السطر التالى فى ال textbox من ملف تكست - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] كود لعرض السطر التالى فى ال textbox من ملف تكست (/showthread.php?tid=14181)

الصفحات: 1 2


كود لعرض السطر التالى فى ال textbox من ملف تكست - alaa yosry - 20-12-15

السلام عليكم اخوتى فى الله
بقالى كتيير جدا بدور على كود يعرض السطر التالى فى textbox  من ملف تكست عند الضغط على زر button
بمعنى انا عندى ملف تكست فيه مواقع .. كل موقع موجود فى سطر لواحدة والموواقع تحت بعضها
انا عايز لما اضغط على زرار next اللى هو "button" يظهر الموقع -السطر- اللى بعد دا
وطلب تانى   "معلش هتعبكم معايا"
وازاى اقدر اختار الملف التكست دا من الجهاز عندى بحيث ان البرنامج يعرض الاسطر منه
بمعنى ايه الاداه المناسبه لكدا وايه الكود اللى هستخدمه فيها
ياريت لو حد يقدر يفيدنى 
جزاكم الله خيرا


RE: كود لعرض السطر التالى فى ال textbox من ملف تكست - silverlight - 20-12-15

سؤال : هل لديك النية لتضيف مواقع أخري الي ملف التكست؟


RE: كود لعرض السطر التالى فى ال textbox من ملف تكست - alaa yosry - 20-12-15

لا  هو ملف واحد لكن فيه مواقع كتيييير جدا .. صعب انى احطهم كمتغيرات فى البرنامج

(20-12-15, 03:26 AM)silverlight كتب : سؤال : هل لديك النية لتضيف مواقع أخري الي ملف التكست؟

لا ..هو ملف واحد فيه كل المواقع .. مش هجدده


RE: كود لعرض السطر التالى فى ال textbox من ملف تكست - silverlight - 20-12-15

طالما لن تجدده إذن أنت لست في حاجة له
كل ما عليك أن تفعله هو أن تكتب اسماء المواقع في Collection أو ArrayList او في شئ من هذا القبيل ثم تتعامل مع collection كيفما شئت


RE: كود لعرض السطر التالى فى ال textbox من ملف تكست - alaa yosry - 20-12-15

(20-12-15, 03:46 AM)silverlight كتب : طالما لن تجدده إذن أنت لست في حاجة له
كل ما عليك أن تفعله هو أن تكتب اسماء المواقع في Collection أو ArrayList او في شئ من هذا القبيل ثم تتعامل مع collection كيفما شئت

واذا اردت ان افتح الملف من البرنامج واجعله يعرض الاسطر بالضغط على زر button
هل يمكن ذلك ام انه صعب ؟؟؟
علما بانى مصمم البرنامج بفيجوال بيسك 2008 فمش عارف استخدم الداله open


RE: كود لعرض السطر التالى فى ال textbox من ملف تكست - silverlight - 20-12-15

ليس صعبا لكنك ف النهايه ستقرأ الملف و سوف تستخدم Collection ايضا حتي تستطيع ان تتعامل مع البياانات التي به فبالتالي لماذا تضاعف حجم العمل علي نفسك و تدخل في متاهة مع الملفات عموما تستطيع ان تضع الملف في Resource المشروع شرط أن تجعله Embedded و هذا سوف يوفر عليك الكثير


RE: كود لعرض السطر التالى فى ال textbox من ملف تكست - سعود - 21-12-15

مثل ماقال الاخ الكريم 
silverlight 



حبيت اكتب الكود حسب المطلوب

PHP كود :
Public Class Form1
    Dim all 
As String My.Computer.FileSystem.ReadAllText("urls.txt")
 
   Dim b() As String Nothing
    Dim cur 
As Integer 0

    Private Sub Form1_Load
(sender As ObjectAs EventArgsHandles MyBase.Load
        b 
all.Split(vbNewLine)
 
       url.Text b(cur)
 
   End Sub

    Private Sub Button1_Click
(sender As ObjectAs EventArgsHandles Button1.Click
        url
.Text b(0)

 
   End Sub

    Private Sub Button2_Click
(sender As ObjectAs EventArgsHandles Button2.Click
        If cur 
b.Length 1 Then Exit Sub
        cur 
+= 1
        url
.Text b(cur)
 
   End Sub

    Private Sub Button3_Click
(sender As ObjectAs EventArgsHandles Button3.Click
        If cur 
<= 0 Then Exit Sub

        cur 
-= 1
        url
.Text b(cur)

 
   End Sub

    Private Sub Button4_Click
(sender As ObjectAs EventArgsHandles Button4.Click
        cur 
b.Length 1
        url
.Text b(cur)
 
   End Sub
End 
Class 



RE: كود لعرض السطر التالى فى ال textbox من ملف تكست - alaa yosry - 21-12-15

(21-12-15, 05:11 AM)سعود كتب : مثل ماقال الاخ الكريم 
silverlight 



حبيت اكتب الكود حسب المطلوب

PHP كود :
Public Class Form1
    Dim all 
As String My.Computer.FileSystem.ReadAllText("urls.txt")
 
   Dim b() As String Nothing
    Dim cur 
As Integer 0

    Private Sub Form1_Load
(sender As ObjectAs EventArgsHandles MyBase.Load
        b 
all.Split(vbNewLine)
 
       url.Text b(cur)
 
   End Sub

    Private Sub Button1_Click
(sender As ObjectAs EventArgsHandles Button1.Click
        url
.Text b(0)

 
   End Sub

    Private Sub Button2_Click
(sender As ObjectAs EventArgsHandles Button2.Click
        If cur 
b.Length 1 Then Exit Sub
        cur 
+= 1
        url
.Text b(cur)
 
   End Sub

    Private Sub Button3_Click
(sender As ObjectAs EventArgsHandles Button3.Click
        If cur 
<= 0 Then Exit Sub

        cur 
-= 1
        url
.Text b(cur)

 
   End Sub

    Private Sub Button4_Click
(sender As ObjectAs EventArgsHandles Button4.Click
        cur 
b.Length 1
        url
.Text b(cur)
 
   End Sub
End 
Class 

الف شكر اخى الكريم ...  Shy Shy Shy
انا لسه مبتدئ فى البرمجه وبحاول اتعلم مع نفسي 
فممكن اكون مفهمتش قصد اخى silverlight .. ولكن الف شكر ليه ايضا
واعتذر ان كنت تعبتكم معايا 


RE: كود لعرض السطر التالى فى ال textbox من ملف تكست - HASAN6.0 - 21-12-15

استاذي الكريم ..
يمكنك تحميل النص الى Textbox
عن طريق الكود
PHP كود :
TextBox1.Text My.Computer.FileSystem.ReadAllText("c:\a.txt"
 ثم هذا الكود لمعرفة عدد السطور 
PHP كود :
MsgBox(TextBox1.Lines.Count

وهذا لجلب النص من السطر 50 مثلاً
PHP كود :
MsgBox(TextBox1.Lines(50)) 
Undecided


RE: كود لعرض السطر التالى فى ال textbox من ملف تكست - alaa yosry - 21-12-15

(21-12-15, 01:40 PM)HASAN6.0 كتب : استاذي الكريم ..
يمكنك تحميل النص الى Textbox
عن طريق الكود
PHP كود :
TextBox1.Text My.Computer.FileSystem.ReadAllText("c:\a.txt"
 ثم هذا الكود لمعرفة عدد السطور 
PHP كود :
MsgBox(TextBox1.Lines.Count

وهذا لجلب النص من السطر 50 مثلاً
PHP كود :
MsgBox(TextBox1.Lines(50)) 
Undecided
شكرا اخى HASAN6.0
ولكن انا كنت اقصد جلب النص فى مربع ال textbox وليس msgbox حتى يمكننى نسخه منها