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

نسخة كاملة : ازاى تقرى سطر معين من النص
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم ورحمة الله وبركاته ..
يا جماعه لو سمحتم .
عاوز اعرف الكود اللى يخليك تقرى سطر معين من ملف نصى مثلا السطر التانى فقط او التالت
وهل ده ليه داله معينه ولا ينفع بطريقة streamreader او my.computer
ياريت تفيددوا اخوكم Big Grin
كود :
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
شكراً يا غالى Heart جزاك الله خير
حبيت اشارك بالموضوع باستخدام الـ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)
يمكنك ايضا استخدام الطريقة التالية :
كود :
Dim txt As String = IO.File.ReadAllText(مسار الملف)
Dim lin() As String = txt.Split(vbNewLine)
TextBox1.text = lin(رقم السطر).ToString

RolleyesRolleyesRolleyes