astrolit
|
 Posted: Tue Aug 07, 2012 03:24 Post subject: |
 |
|
ну как говорится сказал сделал,
сработало как нельзя лучше, я так накрутил, что сначала вышел говн  код ! Но постепенно всё стало так как было нужно
| Code: |
Imports System.IO
Imports System.Text
Imports System.Text.RegularExpressions
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim dict As New Dictionary(Of String, Integer)
Dim cnt As Integer
Dim s As String
Dim o As New System.IO.StreamReader("C:\download\silkfoto.txt")
Dim key As String
s = o.ReadLine() 'первое значение для кей
For i As Integer = 0 To 50 'тут пробегаемся только по первым 50 строчкам
5: s = o.ReadLine()' здесь подбрасываем новое значение для кей
key = Regex.Match(s, "(photos/\d+/\d+/\d+/)", RegexOptions.IgnoreCase).Value
For k As Integer = 1 To 4
'Для каждой строки, key - та часть, по которой нужно сравнивать строки:
If dict.ContainsKey(key) Then cnt = dict.Item(key) + 1 Else cnt = 1
dict.Item(key) = cnt
If cnt < 5 Then 'тут выдает нужные четыре значения
text = o.ReadLine()'маркируем строку
'a.WriteLine(text)
End If
Next
Next
o.Close()
a.Dispose() : a.Close()
End Sub
End Class
|
да, на форму бросаем кнопку |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
