Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

поиск по тексту с последующим вырезанием кусков [D6, 2000, XP]

Страницы: < 1 2
Sunrice © (2006-10-13 06:12:00)
Мастера! Такая проблемма:
Имеется фаил, скажем с таким содержанием:

"-*-Мама*-*_**-мыла-**_--*раму*--"

Открываем фаил, заносим его, допустим в TMemo, далее сканируем текст, до -*-. затем заносим "Мама" до символов *-*, в переменную name, продолжаем сканирование до **- и заносим "мыла" до символов -** в переменную title. И последнее, продолжаем сканировать, и по достижению --* заносим "раму" в переменную text, до символов *--.
Проблема в том, что пробелов между символов - нету =/
Уже 3ий день голову ломаю, весь маньюал перерыл, но наверное я плохо знаю англ.

Sunrice (2006-10-13 10:56:00) [21]
novill © (13.10.06 10:31) [13]
сделал, но это ведь просто заменяет мой разделитель на пустое место?

novill (2006-10-13 10:31:00) [22]
1. почитай описание Stringreplace
2. замени все свои разделители на #13#10
3. присвой какому-нибудь StringList'у получившуюся строчку.
Например, memo1.text:=Stringreplace(...);

Zeqfreed (2006-10-13 10:27:00) [23]
> [11] Sunrice (13.10.06 10:24)

Спасибо за разрешение не отвечать, я весьма польщен. Никаких «сверху вниз», просто «что такой цикл» это не вопрос для обсуждения на форуме. Если есть какие-то конкретные вопросы по реализации, то нужно их и задавать.

Sunrice (2006-10-13 10:24:00) [24]
Zeqfreed © (13.10.06 10:18) [9]
Наверное вы меня с кем-то спутали ;) С зеркалом наверно, хотя кто его знает. У вас какие-то проблемы? Если вы не можете ответить на вопрос, не смотря на этом сверну - вниз. Пожалуйста, не отвечайте больше в этой теме.

Sunrice (2006-10-13 10:20:00) [25]
novill © (13.10.06 10:17) [8]
так мне он и не нужны %)
просто с пробелами легче определить, где конец нужной мне строчки, которую нужно заносить в переменную. А мне именно это и нужно узнать. =/

Zeqfreed (2006-10-13 10:18:00) [26]
> [7] Sunrice (13.10.06 10:13)

Начинающий это не тот, кто купил диск с Delphi за 100 рублей в переходе и сразу побежал задавать вопросы на форум.

novill (2006-10-13 10:17:00) [27]
> Проблема в том, что пробелов между символов - нету =/

А зачем тебе пробелы? Если нужны - вставь. Вообще, StringReplace тебе в руки :)

Sunrice (2006-10-13 10:13:00) [28]
Zeqfreed © (13.10.06 10:09) [6]
Наверное я ошибся. Разве это не форум по делфи, а это не топик для начинающих? =/

Zeqfreed (2006-10-13 10:09:00) [29]
> [5] Sunrice (13.10.06 10:05)

Забыл волшебное «дай код». Может быть, если ты не знаешь что такое цикл, в начале узнать?

for i := 1 to length(Str) do begin DoWhateverYouWant; end;

?

Sunrice (2006-10-13 10:05:00) [30]
Zeqfreed © (13.10.06 09:53) [4]
как?

Zeqfreed (2006-10-13 09:53:00) [31]
> [3] Sunrice (13.10.06 09:49)

Циклом.

Sunrice (2006-10-13 09:49:00) [32]
Steep © (13.10.06 07:20) [1]
Я пытался им реализовать, только не знаю, как в POS, можно указать конец считывания. т.е. он обрежет всё что до -*-, а далее?

Думкин © (13.10.06 07:56) [2]
А как "идти по строке?"

Думкин (2006-10-13 07:56:00) [33]
Идем по строке.
Встретили разрешенный символ - добавили его в буфер. Идем дальше.
Встретили запрещенный - если буфер не пуст, сбросили буфер в контейнер, обнулили буфер. Идем дальше.
Дошли до конца - буфер не пуст - сбросили в контейнер.

Steep (2006-10-13 07:20:00) [34]
Pos('-*-', (твоя строка))?

Страницы: < 1 2

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »