Текущий архив: 2002.11.14;
Скачать: CL | DM;

Вниз

Распознавание текста, помогите пожалуйста!   Найти похожие ветки 

← →
Alcogol   (2002-11-04 19:48) [0]

Добрый вечер господа.
Мне срочно нужна помощь, завис с одной проблемой.
В общем у меня есть обычный текст в tmemo
в виде..

"текст1 - текст2"
"текст1 - текст2"
"текст1 - текст2"
"текст1 - текст2"

мне надо его преобразовать в

текст1: "текст2"
текст1: "текст2"
текст1: "текст2"

Как распознать символы и как можно отделить первый текст от второго..
Возможно я плохо обьяснил, кто понял помогите плз..

Заранее искрене благодарен

---

← →
Alex4444444444   (2002-11-04 19:59) [1]


Pos(" - ",...)


---

← →
TTCustomDelphiMaster ©   (2002-11-04 20:17) [2]

F1 - TMemo.Lines

---

← →
Alcogol   (2002-11-04 20:35) [3]

Alex4444444444
спасибо за подсказку, но c помощью pos"а, как я понял, можно заменять только один символ, мне же надо примерно следующее:

<tag>TEXT1 - TEXT2</tag>
<tag>TEXT1 - TEXT2</tag>
сконвертировать в
text1 - <tag>text2</tag>
text1 - <tag>text2</tag>

Пока немогу сообразить..=(

---

← →
Sectey ©   (2002-11-04 20:42) [4]

Возми библиотеку QStrings, там чего только нет.

---

← →
Alex4444444444   (2002-11-04 20:48) [5]


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...

---

Страницы: 1 вся ветка

Текущий архив: 2002.11.14;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.023 c