|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
15.11.2007, 10:59 | #1 |
Регистрация: 14.11.2007
Сообщений: 6
|
Повелитель текста!
дан текстовый файл, задача : с 24 по 36 знак найти повторяющиеся строки и заменить их на другой текст.
|
15.11.2007, 11:15 | #2 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
В переменку типа string загоняешь этот клочек текста, далее данные из этого стринга разбиваешь в массив используя TStringList.DelimitedText, я так понимаю что разделитель слов является пробел.
Ну и уже в массиве анализируеш на повторение, мона даже поставить сортировку и по ней смотреть повторения
I'm learning to live...
|
15.11.2007, 11:25 | #3 |
Регистрация: 14.11.2007
Сообщений: 6
|
Спасибо за совет. Разделителем является символ "|".
Конкрентнее 08.09.2007|21:02:08|KPP|Personal054 |1|Дан доступ||0|276|357|False Здесь мне надо изменить Personal054. Как это сделать в одной сторке я примерно представляю, а как сделать чтобы среди сотни сток искало строки с Personal054 и заменяло их вот это вопрос... Кто подскажет хоть кусочком кода??? |
15.11.2007, 11:56 | #4 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Прикрепи ка тут тот файлик с данными я попробую оформить идейку...
I'm learning to live...
|
15.11.2007, 12:08 | #5 | |
With best regards
Участник клуба
Регистрация: 20.04.2007
Сообщений: 1,448
|
Цитата:
а если до полудня? 9:02:08 - ноль не пишется. (зависит от настроек). Что касается замены - это все делается функциями POS, DELEDE, INSERT.
Life is too short, play more...
Как правильно задавать вопросы |
|
15.11.2007, 12:21 | #6 |
Регистрация: 14.11.2007
Сообщений: 6
|
вот файлик, сократил его по максимуму(надеюсь повторения найдутся)
ЗЫ: как видите ноль пишется |
15.11.2007, 13:07 | #7 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Вот примерчик к твоему
Если что спрашивай
I'm learning to live...
|
15.11.2007, 14:29 | #8 |
Форумчанин
Регистрация: 04.03.2007
Сообщений: 615
|
AKstoAK
StringReplace+F1 |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
обработка текста | 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 |