| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Распознавание текста, помогите пожалуйста! [D6, Win2k]
Alcogol © (2002-11-04 19:48:00)Добрый вечер господа.
Мне срочно нужна помощь, завис с одной проблемой.
В общем у меня есть обычный текст в tmemo
в виде..
"текст1 - текст2"
"текст1 - текст2"
"текст1 - текст2"
"текст1 - текст2"
мне надо его преобразовать в
текст1: "текст2"
текст1: "текст2"
текст1: "текст2"
Как распознать символы и как можно отделить первый текст от второго..
Возможно я плохо обьяснил, кто понял помогите плз..
Заранее искрене благодарен
Alex4444444444 (2002-11-04 20:48:00) [1]
function Convert(const InputStr: string): string;
var P: Integer;
S: string;
const TagStr = "<Tag>";
SepStr = " - ";
begin
P := Pos(SepStr, InputStr);
if P > 0 then begin
S := Copy(InputStr, 1, P - 1);
Delete(S, 1, Length(TagStr));
Result := S + SepStr + TagStr + Copy(InputStr, P + Length(SepStr) - 1, Length(InputStr));
end;
end;
Ya mog navrat" s syntaxisom i s P-1 ... Opyat" zhe, detali zavisyat ot togo, chto u Vas postoyanno, i chto peremenno...
Sectey (2002-11-04 20:42:00) [2]Возми библиотеку QStrings, там чего только нет.
Alcogol (2002-11-04 20:35:00) [3]Alex4444444444
спасибо за подсказку, но c помощью pos"а, как я понял, можно заменять только один символ, мне же надо примерно следующее:
<tag>TEXT1 - TEXT2</tag>
<tag>TEXT1 - TEXT2</tag>
сконвертировать в
text1 - <tag>text2</tag>
text1 - <tag>text2</tag>
Пока немогу сообразить..=(
TTCustomDelphiMaster (2002-11-04 20:17:00) [4]F1 - TMemo.Lines
Alex4444444444 (2002-11-04 19:59:00) [5]
Pos(" - ",...)
| |
