27-11-12, 01:02 AM
27-11-12, 01:03 AM
عربي
البحث في ملف نصي
البحث في ملف نصي
27-11-12, 01:22 AM
نعم البحث في ملف نصي
27-11-12, 01:51 AM
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