Мастера 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 18:57:00) [1]
Удалено модератором

Ketmar (2006-10-13 18:55:00) [2]
>[29] Sunrice 13-Oct-2006, 18:50
>А [9], это не оскорблние? Или я должен это терпеть?
не должен. тебя сюда вообще никто не звал. не нравится -- есть много других форумов. Zeqfreed всего лишь констатировал очевидный факт. а чтобы судить об уровне -- попробуй сначала форум почитать. говорят, помогает.

зыж детсад, блин. кажется, воспитывать молодёжь должна бы "семья и школа"... %-(

Плохиш (2006-10-13 18:52:00) [3]

> Sunrice (13.10.06 18:50) [29]
> А [9], это не оскорблние?

Прочитал, оскорблений не увидел, обычная константация факта.

default (2006-10-13 18:50:00) [4]
извинись перед Zeqfreed и если он примет извинения у тебя будет хоть какой-то шанс в помощи со стороны

Leonid Troyanovsky (2006-10-13 18:50:00) [5]

> Sunrice (13.10.06 06:12)

> Уже 3ий день голову ломаю, весь маньюал перерыл, но наверное

http://groups.google.com/group/fido7.ru.delphi.chainik/msg/8fc4fba03643023c

--
Regards, LVT.

Sunrice (2006-10-13 18:50:00) [6]
А [9], это не оскорблние? Или я должен это терпеть?
Исходя из ответов, которые я получил в данном топике от г. Zeqfreed, боюсь мне сложно будет судить о его уровне.

Плохиш (2006-10-13 18:48:00) [7]

> Sunrice (13.10.06 18:42) [25]
> Есть ли альтерантива StrScan?

Я уж и не знаю что и как сказать. Чукча - не читател?
goto [1].

Ketmar (2006-10-13 18:45:00) [8]
>[25] Sunrice 13-Oct-2006, 18:42
>Вы немогли бы подсказать, гле именно я хамил?
смотрим [11]. понимаем, что до уровня Zeqfreed ещё расти и расти. думаем о допустимости хамства тем, кто добровольнотратит своё время на помощь другим. извиняемся. если не дошло -- перечитываем это, потом опять [11].

Ketmar (2006-10-13 18:42:00) [9]
>[24] Kolan(c) 13-Oct-2006, 18:35
>Где и стоят, обычно, твои любимые мётлы :)
к сожалению, магазин с мётлами перестал выплачивать мне комисионные (зажрались!). перехожу на магазин с маузерами.

Sunrice (2006-10-13 18:42:00) [10]
Ketmar © (13.10.06 18:32) [22]
Вы немогли бы подсказать, гле именно я хамил?

Плохиш © (13.10.06 18:11) [20]
Sunrice (13.10.06 18:34) [23]
Есть ли альтерантива StrScan? Он ведь ищет именно вхождение символа, а мне нужно строчки =/

Kolan (2006-10-13 18:35:00) [11]

> тут уровень подвала.

Где и стоят, обычно, твои любимые мётлы :)

Sunrice (2006-10-13 18:34:00) [12]
Пример уже не сохранился, но примерно:

1. Искал первое вхождение символа с троку "StrScan".
2. Искал последнее "StrRScan"
3. Через Delete удалить всё за пределами разделителя.
4. Результат - и есть нужное мне слово.

Выглядит отлично, но идея зачахла на первом пункте, слишком много недочётов =/ Хотя это лучше чем ничего. Можно вновь попробывать так.

Ketmar (2006-10-13 18:32:00) [13]
опять на форум пришло неко, которое считает необязательным хотя бы язык выучить. и хамит при этом. не пора ли сделать ещё один раздел -- "<autocensored>"? чтобы подобные вопросы туда отправлять. ибо уровень начинающих всё-таки (сильно мягко говоря) выше. тут уровень подвала... %-(

Zeqfreed (2006-10-13 18:14:00) [14]
Если сформулируешь что является разделителем.

Плохиш (2006-10-13 18:11:00) [15]

> Sunrice (13.10.06 18:05) [19]
> Плохиш © (13.10.06 17:58) [18]
> Пробовал - неполучается.

Тогда ничем помочь не могу.

PS. Не желаешь свои пробы показать? Такой банальный вопрос.

Sunrice (2006-10-13 18:05:00) [16]
Плохиш © (13.10.06 17:58) [18]
Пробовал - неполучается.

Плохиш (2006-10-13 17:58:00) [17]
[1] + copy + delete + F1

Sunrice (2006-10-13 17:52:00) [18]
novill © (13.10.06 11:20) [16]
procedure TForm1.Button1Click(Sender: TObject); var S,S2:string; begin S:=Stringreplace(Memo1.Text,'разделитель1',#10#13,[rfReplaceAll]); S:=Stringreplace(Memo1.Text,'разделитель2',#10#13,[rfReplaceAll]); S:=Stringreplace(Memo1.Text,'разделитель3',#10#13,[rfReplaceAll]); S:=Stringreplace(Memo1.Text,'разделитель4',#10#13,[rfReplaceAll]); Memo1.Text := S; end; procedure TForm1.FormCreate(Sender: TObject); begin Memo1.Lines.LoadFromFile('text_653.txt'); end;

Мастера, ниужели никто толком ответить не может как идти по строчки, и слова между разделителей, заносить в буффер?

novill (2006-10-13 11:20:00) [19]

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

КАК ты его выводил? В memo?

Kolan (2006-10-13 11:13:00) [20]

> сделал, но это ведь просто заменяет мой разделитель на пустое
> место?

Ну тебе же так легже :)

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

Наверх

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