Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.05.30;
Скачать: CL | DM;

Вниз

Поиск   Найти похожие ветки 

 
galkoff   (2004-05-12 09:17) [0]

Уважаемые, проблема короче вот в чем. В переменной содержится некий текст к примеру
<td class=hdr align=right style="font-size:75%;">
<ol start="1">
<li class=fsite>
как мне загнать в другую переменную значение 1 из тега <ol>?
Спасибо за внимание!


 
Алхимик ©   (2004-05-12 09:24) [1]

Pos,Copy,Delete F1


 
galkoff   (2004-05-12 10:21) [2]

Я новичек в Delphi поэтому, нельзя ли по подробней, как я понял мне надо (на этом примере) сначала найти
<ol start="
и обрезать все что идет до него
потом найти
">
и обрезать все что после него и оставшееся приравнять к новой переменной.
Но как это реализовать...


 
Palladin ©   (2004-05-12 23:48) [3]

Да ты новичек не в Делфи а вообще в паскале... давай с этого начнем... вот и смотри учебники...


 
vertal ©   (2004-05-13 21:36) [4]

Парсер надо писать , а не Pos,Copy,Delete


 
BillyJeans ©   (2004-05-14 10:04) [5]

2 vertal ©   (13.05.04 21:36) [4]
а ты парсер с помощью SCASB наверное делаешь :)


 
evvcom ©   (2004-05-14 11:52) [6]


> Парсер надо писать , а не Pos,Copy,Delete

Как поставлен вопрос - достаточно и Pos,Copy,Delete. А парсер для HTM(L), XML уже давно написан мелкософтом и в 7-х Дельфях даже компонент есть.


 
Erik ©   (2004-05-14 12:02) [7]

Это совсем тупой пример. Без Copy и Delete. Если у тебя чесло больше 9 то без Insert необойдешся.
Buf - это исходная строка.
var i: integer;
i := Pos("<ol start", Buf)
if i =0 then
 exit;
Inc(i, 10);
Buf[i] := "9";


 
Erik ©   (2004-05-14 12:03) [8]

Удалено модератором
Примечание: Дубль



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

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

Наверх




Память: 0.48 MB
Время: 0.033 c
6-1081340404
NorthMan
2004-04-07 16:20
2004.05.30
Такой вопрос. Почему иногда функция Socket.ReceiveText возвращает


1-1085036635
stelius
2004-05-20 11:03
2004.05.30
Границы печати в Excel


1-1084283285
Delphi5.01
2004-05-11 17:48
2004.05.30
Thread1Execute (При этом не происходит RePaint формы)


3-1083734716
Komar
2004-05-05 09:25
2004.05.30
Как работать с базами MySQL расположенные на другом компьютере?


4-1081746607
Delphi5.01
2004-04-12 09:10
2004.05.30
Как используя только API функции можно включить WordWrap