фильтр для чисел

@михаил2 · Регистрация: 05.10.2009

Author24 — интернет-сервис помощи студентам

как написать фильтр для числовой строки: если есть числа 10,15,20 удалить строку или оставить
с числами 5,10,15. файл текстовый ,программа в делфи,задача для хим.анализов
спасибо.Михаил

@Puporev · 05.10.2009, 19:30

Приведите пример хотя бы 3х-4х строк.

@михаил2 · 05.10.2009, 20:06 **[ТС]**

ак написать фильтр для числовой строки: если есть числа 10,15,20 удалить строку или оставить
с числами 5,10,15. файл текстовый ,программа в делфи,задача для хим.анализов
числа в файле
5 8 9 10 15 "количественный состав"
4 7 11 16 22
8 10 15 20 25
6 8 10 15 27
как оставить строки с числами 10 15 ,а остальные спрятать или удалить,а файлу потом дать новое название

@Puporev · 05.10.2009, 20:12

Вам консольное или оконное приложение нужно?

@михаил2 · 05.10.2009, 20:17 **[ТС]**

5 8 9 10 15 "количественный состав"
4 7 11 16 22
8 10 15 20 25
6 8 10 15 27
как оставить строки с числами 10 15 ,а остальные спрятать или удалить,а файлу потом дать новое название

консольное

@Puporev · 05.10.2009, 20:52

Delphi

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var f,g:textfile;
    s,s1,s2:string;
    t,c,k,k1,k2:integer;
begin
assignfile(f,'file1.txt');//это если файл в папке с программой, иначе указать полный путь
reset(f);
assignfile(g,'file2.txt');
rewrite(g);
while not eof(f) do
 begin
  readln(f,s);
  s1:=s+' ';  //создадим копию строки, добавим пробел
  k1:=0;k2:=0;
  while pos(' ',s1)>0 do //пока есть пробелы
   begin
    s2:=copy(s1,1,pos(' ',s1)-1); //копируем первое слово
    if s2='10' then k1:=k1+1 //считаем если 10
    else if s2='15' then k2:=k2+1;//считаем если 15
    delete(s1,1,pos(' ',s1)); //удаляем это слово, следующее первое
   end;
  if(k1>0)and(k2>0)then writeln(g,s); //если есть 10 и 15 в новый файл
 end;
closefile(f);
closefile(g);
write('Fail perepisan!');
readln
 
end.

@Dima170792 · 04.04.2011, 19:31

А можете подсказать такое же-только оконное!?

@михаил2 0 / 0 / 0 Регистрация: 05.10.2009 Сообщений: 15
		1
	фильтр для чисел 05.10.2009, 19:26. Показов 1907. Ответов 6 Метки нет (Все метки) как написать фильтр для числовой строки: если есть числа 10,15,20 удалить строку или оставить с числами 5,10,15. файл текстовый ,программа в делфи,задача для хим.анализов спасибо.Михаил 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	05.10.2009, 19:30	2
	Приведите пример хотя бы 3х-4х строк. 0

@михаил2 0 / 0 / 0 Регистрация: 05.10.2009 Сообщений: 15
	05.10.2009, 20:06 [ТС]	3
	ак написать фильтр для числовой строки: если есть числа 10,15,20 удалить строку или оставить с числами 5,10,15. файл текстовый ,программа в делфи,задача для хим.анализов числа в файле 5 8 9 10 15 "количественный состав" 4 7 11 16 22 8 10 15 20 25 6 8 10 15 27 как оставить строки с числами 10 15 ,а остальные спрятать или удалить,а файлу потом дать новое название 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	05.10.2009, 20:12	4
	Вам консольное или оконное приложение нужно? 0

@михаил2 0 / 0 / 0 Регистрация: 05.10.2009 Сообщений: 15
	05.10.2009, 20:17 [ТС]	5
	5 8 9 10 15 "количественный состав" 4 7 11 16 22 8 10 15 20 25 6 8 10 15 27 как оставить строки с числами 10 15 ,а остальные спрятать или удалить,а файлу потом дать новое название консольное 0

@Dima170792 0 / 0 / 0 Регистрация: 04.04.2011 Сообщений: 17
	04.04.2011, 19:31	7
	А можете подсказать такое же-только оконное!? 0