منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[كود] ازاى تقرى سطر معين من النص - نسخة قابلة للطباعة

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

ازاى تقرى سطر معين من النص - Eng Ma7moud 3ly - 19-02-14

السلام عليكم ورحمة الله وبركاته ..
يا جماعه لو سمحتم .
عاوز اعرف الكود اللى يخليك تقرى سطر معين من ملف نصى مثلا السطر التانى فقط او التالت
وهل ده ليه داله معينه ولا ينفع بطريقة streamreader او my.computer
ياريت تفيددوا اخوكم Big Grin

RE: ازاى تقرى سطر معين من النص - vbnet - 19-02-14

كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Try
        Dim s As String = IO.File.ReadAllLines("xx.txt")(2) ' الأسطر تبدأ من الرقم صفر وهنا قرأنا السطر الثالث
        MsgBox(s)
    Catch ex As Exception
    End Try
End Sub


RE: ازاى تقرى سطر معين من النص - Eng Ma7moud 3ly - 19-02-14

شكراً يا غالى Heart جزاك الله خير

RE: ازاى تقرى سطر معين من النص - سعود - 19-02-14

حبيت اشارك بالموضوع باستخدام الـregular expression
لنفترض ان النص المطلوب هو بالتنسيق التالي
كود :
<[ip=77.55.11]>
مخزن بمربع نص الكود سيكون كالتالي
كود :
Dim ma As Match = Regex.Match(TextBox2.Text, "(<\[ip=)(.*)(\]>)")
        Dim ip As String = ma.Groups(2).Value
        MsgBox(ip)
        Dim all As String = ma.Value
        TextBox2.Text = TextBox2.Text.Replace(all, String.Empty)


RE: ازاى تقرى سطر معين من النص - Genius Live - 21-02-14

يمكنك ايضا استخدام الطريقة التالية :
كود :
Dim txt As String = IO.File.ReadAllText(مسار الملف)
Dim lin() As String = txt.Split(vbNewLine)
TextBox1.text = lin(رقم السطر).ToString

RolleyesRolleyesRolleyes