Форум: "Основная";
Текущий архив: 2004.10.10;
Скачать: [xml.tar.bz2];

Вниз

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

← →
Никита ©   (2004-09-27 09:56) [0]

Как найти в строке фразу начинающуюся на "{\colortbl ;" и заканчивающуюся на "}" и записать её в переменную string?

---

← →
Erik1 ©   (2004-09-27 10:03) [1]

i := Pos("{\colortbl ;", MyValue);
j := Pos("}", MyValue);
if j>i then
MyValue2 := Copy(MyValue, i, j-i)
else
MyValue2 := "";

---

← →
Mike Kouzmine ©   (2004-09-27 10:05) [2]

if (pos("{\colortbl",S) = 1) and (S[Length(S) = "}") then

---

← →
TUser ©   (2004-09-27 10:08) [3]

var result,s:string;
state:boolean;
i,j:integer;
begin
state:=true;
restul:="";
i:=pos("{...",S);
if i <> 0 then
begin
j:=posex("}",S,i);
if j <> 0 then
result:=copy(S,i,j-1+1);
end;
end;

Или простенький конечный автомат

---

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

Форум: "Основная";
Текущий архив: 2004.10.10;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.037 c