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

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

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

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

Ответ
 
Опции темы Поиск в этой теме
Старый 15.11.2007, 10:59   #1
AKstoAK
 
Регистрация: 14.11.2007
Сообщений: 6
По умолчанию Повелитель текста!

дан текстовый файл, задача : с 24 по 36 знак найти повторяющиеся строки и заменить их на другой текст.
AKstoAK вне форума Ответить с цитированием
Старый 15.11.2007, 11:15   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

В переменку типа string загоняешь этот клочек текста, далее данные из этого стринга разбиваешь в массив используя TStringList.DelimitedText, я так понимаю что разделитель слов является пробел.
Ну и уже в массиве анализируеш на повторение, мона даже поставить сортировку и по ней смотреть повторения
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 15.11.2007, 11:25   #3
AKstoAK
 
Регистрация: 14.11.2007
Сообщений: 6
По умолчанию

Спасибо за совет. Разделителем является символ "|".
Конкрентнее
08.09.2007|21:02:08|KPP|Personal054 |1|Дан доступ||0|276|357|False
Здесь мне надо изменить Personal054. Как это сделать в одной сторке я примерно представляю, а как сделать чтобы среди сотни сток искало строки с Personal054 и заменяло их вот это вопрос...
Кто подскажет хоть кусочком кода???
AKstoAK вне форума Ответить с цитированием
Старый 15.11.2007, 11:56   #4
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Прикрепи ка тут тот файлик с данными я попробую оформить идейку...
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 15.11.2007, 12:08   #5
Alex21
With best regards
Участник клуба
 
Регистрация: 20.04.2007
Сообщений: 1,448
По умолчанию

Цитата:
21:02:08
уверены, что время у вас 8-знаковое?
а если до полудня? 9:02:08 - ноль не пишется. (зависит от настроек).

Что касается замены - это все делается функциями POS, DELEDE, INSERT.
Alex21 вне форума Ответить с цитированием
Старый 15.11.2007, 12:21   #6
AKstoAK
 
Регистрация: 14.11.2007
Сообщений: 6
По умолчанию

вот файлик, сократил его по максимуму(надеюсь повторения найдутся)

ЗЫ: как видите ноль пишется
Вложения
Тип файла: txt Openings2.TXT (12.8 Кб, 147 просмотров)
AKstoAK вне форума Ответить с цитированием
Старый 15.11.2007, 13:07   #7
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Вот примерчик к твоему
Если что спрашивай
Вложения
Тип файла: rar Новая папка.rar (165.7 Кб, 14 просмотров)
I'm learning to live...
Stilet вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
обработка текста pvleo Фриланс 4 14.07.2008 05:19
Отображение текста Hirhufa Microsoft Office Word 2 27.06.2008 15:42
Чтение текста до ... Sanek_ntsk Общие вопросы Delphi 7 23.06.2008 22:17
Обработка текста Absent Помощь студентам 1 10.05.2008 19:56
Обработка текста GAGARIN-NEW Общие вопросы Delphi 7 06.10.2007 15:25