search - نسخة قابلة للطباعة

PHP كود :
Imports System.IO
Imports System.Text.RegularExpressions

Public Class Form1

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim filename As String = "c:\t.txt"
        Dim fs As FileStream = New FileStream(filename, FileMode.Open)
        Dim sr As StreamReader = New StreamReader(fs)
        Dim s As String
        Dim f As Integer


        Do

            s = sr.ReadLine
            If (Regex.IsMatch(s, "tariq2812", RegexOptions.IgnoreCase)) Then

                f += 1

            End If
        Loop While sr.EndOfStream = False

        MsgBox(f)

    End Sub
    'محتوى ملف النص

    'tariq2812
    'fbjfjbhnfbhb tariq2812 hbghdyvdgvtariq2812]

    'tariq2812iugu   tariq2812


End Class