Парсинг значения

[DKENT]

Здраствуйте, неполучается пропарсить значение

s:='<script language="javascript">
document.write("12 - 1 =");
</script>';
Memo2.Text:=Copy(s,PosEx('"',s,Pos('document.write(',s))+16,PosEx(' =',s,PosEx('"',s,Pos('document.write(',s)))-PosEx('"',s,Pos('document.write(',s))-16);

В Memo2.Text нужно вывести 12 - 1
Подскажите где ошибка!

[Человек_Борща]

Зачем изобретаете велосипед?

function TForm1.getData(aInData:string):string;
const
  aStart='<script language="javascript">document.write("';
  aEnd = ' =");</script>';
begin
Result:=Copy(aInData,Pos(aStart,aInData)+Length(aStart),Pos(aEnd,aInData)-Length(aStart)-1);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   //Edit1.text содержит <script language="javascript">document.write("12 - 1 =");</script>
   Memo1.text:=getData(Edit1.Text);
end;

Если помогло, с вас отзыв в репу

[DKENT]

К сожалению непомогло!
Не работает данный код(

[Человек_Борща]

У меня все работает и прекрастно выводит 12 - 1(Хоть там 575675675675 - 345345353453).

[Serge_Bliznykov]

Сообщение от DKENT

s:='<script language="javascript">
document.write("12 - 1 =");
</script>';

поясните, пожалуйста, а что это за ересь написана в Вашем примере!
Таким образом строку S присвоить НЕ УДАСТЬСЯ!

Поэтому, проблема у Вас, скорее всего в том, что в исходной строке всё совсем не так. Например, строчка document.write() начинается с новой строки...

я бы предложил
либо разбирать строку последовательно
(сначала найти <script потом вырезать всё до </script
и уже в этой строке искать document.write()

либо воспользоваться регулярными выражениями (нужно подключить библиотечку TRegExpr )

[Пепел Феникса]

потом вырезать всё до </script

поверьте, лучше не надо, PosEx в руки.

[Serge_Bliznykov]

Сообщение от Пепел Феникса

поверьте, лучше не надо, PosEx в руки.

Пепел Феникса, согласен с Вами замечанием.

хотя в данном случае не принципиально...