Кк из большого текстового файла удалять символы по особым ...

← →
IronHawk © (2003-05-05 17:24) [0]

... условиям, например нужно удалить все символы находящиеся между "!" и "№" при этом сами "!" и "№" заменить на % и & соответственно?
... заранее благодарен!

← →
MBo © (2003-05-05 17:26) [1]

procedure CutBetween(const OldName, NewName: string; CutStart, CutEnd, NewStart, NewEnd: Char); var HFile: THandle; HMap: THandle; PView: PByteArray; Size, NewSize: Integer; i: integer; Flag: Boolean; NewArr: array of byte; BBegin, BEnd, NBegin, NEnd: Byte; begin NewSize := 0; BBegin := Ord(CutStart); BEnd := Ord(CutEnd); NBegin := Ord(NewStart); NEnd := Ord(NewEnd); HFile := FileOpen(OldName, fmOpenRead); if HFIle <> INVALID_HANDLE_VALUE then begin Size := GetFileSize(HFile, nil); HMap := CreateFileMapping(HFile, nil, PAGE_READONLY, 0, 0, nil); if HMap > 0 then begin PView := MapViewOfFile(HMap, FILE_MAP_READ, 0, 0, Size); if PView <> nil then begin Flag := True; SetLength(NewArr, Size); for i := 0 to Size - 1 do begin if Flag then begin if PView[i] = BBegin then begin NewArr[NewSize] := NBegin; inc(NewSize); Flag := False; end else begin NewArr[NewSize] := PView[i]; inc(NewSize); end; end else begin if PView[i] = BEnd then begin NewArr[NewSize] := NEnd; inc(NewSize); Flag := True; end; end; end; UnMapViewOfFile(PView); end; CloseHandle(HMap); end; FileClose(HFile); end; if NewSize > 0 then begin HFile := FileCreate(NewName); if HFile <> INVALID_HANDLE_VALUE then begin FileWrite(HFile, NewArr[0], NewSize); FileClose(HFile); end; end; end; procedure TForm1.Button1Click(Sender: TObject); begin CutBetween("e:\qaz.txt","e:\qaz.new","a","b","A","B"); end;

← →
Mikhail © (2003-05-05 17:55) [2]

Разнца во времени :)))

← →
IronHawk © (2003-05-05 18:04) [3]

> Mikhail © (05.05.03 17:55)

На то он и МАСТЕР!

← →
IronHawk © (2003-05-05 18:16) [4]

> MBo © (05.05.03 17:26)

Супер просто, слов нету, ОТЛИЧНО!
ОГРОМАДНЕЙШЕЕ СПАСИБО!

← →
IronHawk © (2003-05-06 12:10) [5]

> MBo © (05.05.03 17:26)

Но я упусти один момент, если стоит ! и № то всё отлично, а чтоб руками потом не удалять "" которые по краям ! и № как бы так и их тоже заменять?
Тоесть "!" = % и "№" = &

← →
Digitman © (2003-05-06 12:16) [6]

классика !!! "дай г., дай ложку" !)))

← →
MBo © (2003-05-06 13:07) [7]

Добавь в нужных местах IF-блока доп. проверки и преобразования.

← →
IronHawk © (2003-05-06 15:41) [8]

> Digitman © (06.05.03 12:16)

Ай-ай-ай...

> MBo © (06.05.03 13:07)

А я пробую с приведением топов и Ord-ом...

← →
MBo © (2003-05-06 18:28) [9]

новые строки должны быть не длиннее старых (это может сказаться в начале файла). Пишет в то же имя.

procedure CutBetweenInPlaceStr(const FileName, CutStart, CutEnd, NewStart, NewEnd: string); var HFile: THandle; HMap: THandle; PView: PChar; Size: Integer; POld, PNew, PStart, PEnd: PChar; LStart, LEnd, LNStart, LNEnd, DiffLen: Integer; begin LStart := Length(CutStart); LEnd := Length(CutEnd); LNStart := Length(NewStart); LNEnd := Length(NewEnd); HFile := FileOpen(FileName, fmOpenReadWrite); if HFIle <> INVALID_HANDLE_VALUE then begin Size := GetFileSize(HFile, nil); DiffLen := Size; HMap := CreateFileMapping(HFile, nil, PAGE_READWRITE, 0, 0, nil); if HMap > 0 then begin PView := MapViewOfFile(HMap, FILE_MAP_ALL_ACCESS, 0, 0, Size); if PView <> nil then begin PEnd := AnsiStrPos(PView, PChar(CutEnd)); PStart := AnsiStrPos(PView, PChar(CutStart)); if (PEnd <> nil) and (Dword(PEnd) < DWord(PStart)) then begin POld := PEnd; PNew := PEnd; Move(NewEnd[1], PNew^, LNEnd); Inc(POld, LEnd); Inc(PNew, LNEnd); end else begin POld := PStart; PNew := PStart; end; while PStart <> nil do begin DiffLen := PStart - POld; Move(POld^, PNew^, DiffLen); Inc(POld, DiffLen); Inc(PNew, DiffLen); Move(NewStart[1], PNew^, LNStart); Inc(POld, LStart); Inc(PNew, LNStart); PEnd := AnsiStrPos(POld, PChar(CutEnd)); if PEnd <> nil then begin Move(NewEnd[1], PNew^, LNEnd); POld := PEnd; Inc(POld, LEnd); Inc(PNew, LNEnd); end; PStart := AnsiStrPos(POld, PChar(CutStart)); end; DiffLen := Size - (POld - PView); Move(POld^, PNew^, DiffLen); DiffLen := (PNew - PView) + DiffLen; UnMapViewOfFile(PView); end; CloseHandle(HMap); end; SetFilePointer(HFile, DiffLen, nil, FILE_BEGIN); SetEndOfFile(HFile); FileClose(HFile); end; end;

← →
IronHawk © (2003-05-06 19:10) [10]

А потом:
> procedure TForm1.Button1Click(Sender: TObject); > begin > CutBetween("e:\export.txt","a","b","A","B"); > end; ?
Так оно чёт не арбайтен 8-(

← →
MBo © (2003-05-07 05:14) [11]

а потом
CutBetweenInPlaceStr("e:\qaz.zzz", "a", "b", "A", "B");
из
ba1a23b456a789b123
делает
BAB456AB123

приведи кусочек файла и как вызываешь

Лумси-2"!"Луганск"!"91016, ул. Демехина, 31, кв. 19"!"(0642) 34-4300, 34-4107, 34-4104"!"Факс: 34-4300"!"WWW: http://www.lumsi.com.ua"!"E-mail: info@lumsi.com.ua"!"Дата основания: 1996"!"" "Основные виды деятельности: Торговля оптом Торговля в розницу Производство ПК Проектирование и монтаж ЛВС Проектирование и монтаж структурированных кабельных систем (СКС) Производство серверов Занимается продажей и сервисным обслуживанием техники Minolta, продажей расходных материалов к Minolta. ООО ЛУМСИ-2 является представителем фирмы Квазар Микро , занимается продажей компьютеров, мониторов, ноутбуков. ООО ЛУМСИ-2 занимается поставкой и сопровождением автоматизированной системы Нормативные акты Украины.; ООО ЛУМСИ-2 является дилером Минолта Украина.""!"Официальные соглашения с вендорами: Расходные материалы для копировальных аппаратов Минолта Украина Дилер Расходные материалы для принтеров Минолта Украина Дилер Факс-аппараты Минолта Украина Дилер Принтеры Минолта Украина Дилер Копировальные аппараты Минолта Украина Дилер Проекционное оборудование Литер Дилер ПК Квазар-Микро Дилер Серверы Квазар-Микро Дилер Ноутбуки Квазар-Микро Дилер "!"Основные виды деятельности: Торговля в розницу Ремонт офисной техники Организация on-line доступа в Internet (Internet-провайдинг) Проектирование и монтаж ЛВС Покупка/продажа техники б/у Копи-центр Печать изображений большого формата "!""!""!""!""!""!""!""!""!"
Восьмий кол_р"!"Киев"!"б-р Шевченка, 36-Б"!"(044) 235-4895, 235-1443, 235-5600"!"Факс: 235-1443"!"WWW: http://www.viiik.kiev.ua"!"E-mail: viiikolir1@kv.ukrtel.net"!"Дата основания: 1987"!"" "Основные виды деятельности: Печать изображений большого формата Рекламное или PR-агентство Из наших заказчиков: Орлан , Галактон , Национальная лотерея , Пфайзер , Эванс , Артемида.; г. Разработка оригинал-макетов для пищевого направления: этикетка, упаковка, плакаты, буклеты. Из наших работ: Казенка , Крепков , Золотой цитрус , Бар-Нет.""!"Основные виды деятельности: "!""!""!""!""!""!""!""!""!""!"
Казка"!"Киев"!"ул. Михайловская, 1/3, г. Козацький , магазин Казка"!"(044) 228-0361, 229-8095"!"Факс: 490-7016"!"WWW: http://www.test-98.com/kazka.htm"!"E-mail: shop@test-98.com"!"Дата основания: 1998"!"" "Основные виды деятельности: Торговля в розницу Торговля через магазин Производство ПК Проектирование и монтаж ЛВС Копи-центр Запись и тиражирование CD-ROM Установка и сопровождение ПО Открыт в 1999 году. Основными направлениями деятельности является розничная торговля ноутбуками, компьютерной техникой, комплектующими, периферией и акссесуарами. Наша компания предлагает в широком ассортименте портативную технику и карманные компьютеры производства TOSHIBA, COMPAQ, FUJITSU-SIEMENS, HEWLETT-PACKARD, SONY и IBM. Теперь в наших салонах представлены не только ноутбуки всех модификаций, но и карманные ПК, а также DeskTop и SlimTop компьютеры Brandname. Специально подготовленные продавцы-консультанты помогут Вам выбрать наиболее подходящую по стоимости и функциональности модель ноутбука или карманного ПК, а также проконсультируют об особенностях модельных рядов того или иного производителя. Кроме того в наших розничных отделах Вы можете приобрести любой товар, доступный в данный момент на компьютерном рынке г. Киев а. Принцип работы наших отделов основывается на гибкой схеме заказов, с последующей доставкой (если Вы не в состоянии увезти товар самостоятельно). Срок поставки от 2-х часов (комплектующие) до 24-х часов (собранные компьютеры). Причем доставка компьютеров в пределах города бесплатна. Адрес магазина: ул. Михайловская, 1/3, г. Козацький , магазин Казка.; Розничный отдел компании Тест-98.""!"Официальные соглашения с вендорами: Ноутбуки Hewlett-Packard Reseller Факс-аппараты Панасоник СНГ Reseller Мини-АТС Панасоник СНГ Reseller Телефоны, радиотелефоны, автоответчики Панасоник СНГ Reseller Ноутбуки Compaq Computer Reseller Компьютеры Apple Apple Reseller Ноутбуки Toshiba Reseller ПК Тест-98 Reseller Ноутбуки Fujitsu Siemens Computers Reseller Расходные материалы для принтеров InkTec Reseller Ноутбуки Apple Reseller Ноутбуки MaxSelect Reseller Ноутбуки IBM Reseller "!""!""!""!""!""!""!""!""!""!"

> Radionov Alexey © (07.05.03 13:46)

Попали все, и давно, с моим приходом на этот форум! :-)))
А вообще тут есть люди которые никогда не попадают!!!

Кк из большого текстового файла удалять символы по особым ... Найти похожие ветки