Последние записи
- Прозрачность тайлсета в TPNGImage
- Как сделать VBA макрос в excel
- Поиск по столбцу 1-ого не нулевого значения (формулой в Microsoft Office Excel)
- Простановка единиц в ячейки под объектами (Microsoft Office Excel)
- Расчет затраченного времени между определенным рабочим временем (формулой в Microsoft Office Excel)
- Мигающий экран на Assembler
- VBA-макрос по копированию 10 строчек в выбранном диапазоне в Microsoft Office Excel
- Копирование только нужного диапазона в Microsoft Office Excel
- Перенос диапазона стоки в Microsoft Office Excel на другой лист по условию
- Мелодия в Pascal.ABC.Net с помощью System.Console.Beep — задержка воспроизведения звука
2nd
Мар
Найти и удалить всю cтроку, в которой нет заданной подстроки
Posted by Chas under Delphi
допустим у меня есть текст :
1 ) Hello my name is Sasha
2) Hello my name is Sasha aaa111
3) Hello BBB111 my name is Sasha
4) i live in the world
5) i live in ccc333 the world
мне нужна найти и удалить строки где нет aaa111 или BBB111 или ccc333
в моем примере после выполнения команды должен остаться вот так
2) Hello my name is Sasha aaa111
3) Hello BBB111 my name is Sasha
5) i live in ccc333 the world
если есть в строке aaa111 или BBB111 или ccc333 то оставляем эту строку а если нет удаляем
ZuBy
Текст где храниться? Закиньте его в TStringList, получиться так
var
stroka:string;
i: integer;
begin
for i:=0 to List.Count-1 do
begin
stroka := list.strings;
if (Pos('aaa111',stroka)=0) or (Pos('BBB111 ',stroka)=0) or (Pos('ссс333 ',stroka)=0) then
list.delete(i); // удаляем строку
end;
end;
