Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 14.04.2014, 20:50   #1
_Лето_
Пользователь
 
Регистрация: 04.11.2013
Сообщений: 23
По умолчанию Вывести строки с нужными символами

Здравствуйте. У меня есть много строк, я приведу пример из нескольких:

Стукало Оксана Александровна 12081975:ж:нв:1: 3:пр:+: 8100:12
Сысоева Елена Алексеевна 25111972:ж:во:1: 1:эк:-: 6900: 8
Чекмарева Татьяна Сергеевна 18111974:ж:во:1: 2:пр:+:11500:11
Уразаев Георгий Иванович 17051969:м:со:0: 0:во:+: 5900:20
Семин Вадим Михайлович 21121967:м:но:1: 1:во:+: 6200: 7

Мне нужно вывести строки, только такие в которых после четырех двоеточий стоит число больше двух и записать в файл. Пожалуйста, подскажите как это реализовать.

Эта цифра стоит под 53 номером в строке. Можно ли как-то задать условие используя эту информацию?
_Лето_ вне форума Ответить с цитированием
Старый 14.04.2014, 21:20   #2
ZX Spectrum-128
Участник клуба
 
Регистрация: 05.11.2013
Сообщений: 1,601
По умолчанию

Если формат данных фиксирован,
то
Код:
Q:='';
For i:=53 to length(s) do
  If not (s[i] in ['0'..'9']) then
     Break
  Else
     Q:=q+s[i];
  N:=strtoint(q);
  If n>2 then 
    // это нужная строка
Если после 4-х. двоеточий
Код:
K:=0;
For i:=1 to length(s) do
Begin
  If s[i]=':' then
    K:=k+1;
  If k=4 then 
     Begin
        Position:=i;
        Break;
     End;
End;
Q:='';
For i:=position to length(s) do
//... Дальше как в коде выше

Последний раз редактировалось ZX Spectrum-128; 14.04.2014 в 21:29.
ZX Spectrum-128 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Задача 1-реализована.Задача 2-Найти и вывести символы 2-ой строки не совпавшие с символами 1-ой строки Leshkin Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 3 12.11.2013 08:57
Ввести число N. Вывести N строк с номером строки, двоеточием и набором чисел от 1 до N+1-k (где k-номер строки) ( в С ) Eduard12345 Помощь студентам 1 11.10.2013 07:25
Строки с символами в С++ Аруми Помощь студентам 0 28.12.2011 19:10
удалить лишние пробелы со строки так чтобы между символами осталось по одному пробелу delphi MASIK Общие вопросы Delphi 7 22.12.2010 18:23
удалить лишние пробелы со строки так чтобы между символами осталось по одному пробелу c++ DimaG Общие вопросы C/C++ 1 01.11.2007 21:50