С разделителем поторопился, не понадобился. 
Если я тебя правильно понял, то в одном блоке находятся строки с одним номером, в другом блоке с другим номером. Если так, то вот образец функции, которая ищет блок, и проверяет на то, ЧТО ПЕРВАЯ СТРОКА в блоке начинается с указанного номера телефона, и в положительном случае переписывает в этот же файл без найденого блока. Если первая строка не такая, то ищется следущий блок. Она ищет и удаляет только один блок. Функция возвращает "True", если удаление блока произошло.
| Код | Function DeleteBlock(strFileName As String, strTel As String) As Boolean
Dim lFn As Long
Dim lP As Long
Dim lStartBlok As Long
Dim sBuf As String
DeleteBlock = False
'Читаем файл
lFn = FreeFile
Open strFileName For Binary Access Read As #lFn
sBuf = String$(LOF(lFn), vbNullChar)
Get #lFn, , sBuf
Close #lFn
If Trim$(sBuf) = "" Then Exit Function 'Выход, если файл пустой
lStartBlok = 1
lP = 1
Do
'Находим слово 'Телефон' (начало удаляемого блока)
While Mid$(sBuf, lP, 7) <> "Телефон"
lP = InStr(lP, sBuf, vbCrLf) + 2
If lP = 2 Then Exit Do
Wend
lStartBlok = lP
lP = InStr(lP, sBuf, vbCrLf) + 2 'переходим к следуещей строке
'если она начинается с нужного телефона, то мы нашли блок
If Mid$(sBuf, lP, Len(strTel)) = strTel Then
'ищем начало строку со словами 'Кол-во разговоров' (последняя строка блока)
lP = InStr(lP, sBuf, "Кол-во разговоров")
'переходим к следуещей строке
lP = InStr(lP, sBuf, vbCrLf) + 2
'Пишем в файл
lFn = FreeFile
Open strFileName For Output As #lFn
Print #lFn, Left$(sBuf, lStartBlok - 1); 'Часть до слова 'Телефон'
Print #lFn, Mid$(sBuf, lP + 2); 'Оставшуюся часть после (блока+одна_строка)
Close #lFn
DeleteBlock = True
Exit Do
End If
Loop
End Function
|
 |
.