Какие команды в VB соответсвуют escape и unescape?Я идиот! Убейте меня, кто-нибудь!?

[natcap]

Какие команды в VB соответсвуют escape и unescape?Я идиот! Убейте меня, кто-нибудь!?

[_NeoN_]

можно поподробнее что это за escape и unescape такие??

[natcap]

Работа escape: "<" = "& lt;", ">"="& gt;" (без пробелов)
работа unescape - наоборот

[skiperski]

А с чего бы это VB поддерживал бы escape-последовательности? Это же не коммандный язык и не браузер. Ему этого не нужно. Пользуйся Replace() и не заморачивайся.

[natcap]

не.. Реплайс это редкостный геморой получится ))
Я уже придумала
doc.body.innerText=doc.body.InnerHTML
myText=doc.body.InnerHTML

В результате то, что мне надо

[skiperski]

Красиво!

[natcap]

Это издевка или серьезно?

Только вот теперь проблема.. это все помещается в ХМЛ а потом при помощи ХСЛ надо возвратить все в первозданный вид.. а вот с этим проблема
не знаю как сделать Unescape из под ХСЛ... но это уже вопрос не сюда.. правда и на форуме по ХМЛ помочь не могут

[skiperski]

Это издевка или серьезно?

Серьёзно. Красивое решение в случае, если в программе контрол используется и для других целей. Если же нет, то таскать контрол только для правильной конвертации неразумно.

Только вот теперь проблема.. это все помещается в ХМЛ а потом при помощи ХСЛ надо возвратить все в первозданный вид.. а вот с этим проблема

А в чём проблема? Если используешь объектную модель XML, то присваивай напрямую, XML сам разберётся как закодировать. А чтобы XSL отбражал не как текст, а как HTML, используй атрибут disable-output-escaping="yes"

[natcap]

Нет конечно Он у меня можно сказать программообразующий )
А вот disable-output-escaping="yes" почему-то как мертвому припарка - он у меня изначально стоял..... получаю на странице ввиде текста прелестный ШТМЛ код...

Толкьо вот я пришла к выводу, что редкостный тормоз и что вредно спать по 2-3 часа в сутки... мозги не видят очевидных вещей.. я же парсю не сразу в ШТМЛ, а опять же с промежуточной обработкой в ВБ )) Так что им возвращать и буду ))

[skiperski]

Токмо что из вредности проверил. Всё работает на "ура".

test.asp

Код: Выделить всё

<%@ LANGUAGE=VBScript %>
<%
Option Explicit

Call test()

Function test()

   Dim oXMLDoc 'As MSXML.DOMDocument
   Dim oXSLDoc 'As MSXML.DOMDocument
   Dim html 'As String

   html = "<p>paragraph</p><br><div style='color: red'>block (color: red)</div>"

   'First, create the XML Document
   Set oXMLDoc = Server.CreateObject("MSXML.DOMDocument")
   With oXMLDoc
      .async = False
      .AppendChild(.CreateElement("test")).text = html
   End With

   'Now Load the XSL Document
   Set oXSLDoc = Server.CreateObject("MSXML.DOMDocument")
   With oXSLDoc
      .async = False
      .Load Server.MapPath("test.xsl")
   End With

   'Now simply transform the XML/XSL files into HTML
   html = oXMLDoc.transformNode(oXSLDoc)

   Response.Write html

End Function
%>

test.xsl

Код: Выделить всё

<?xml version="1.0" ?>
<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform">

<xsl:template match="test"><xsl:value-of disable-output-escaping="yes" select="."/></xsl:template>

</xsl:stylesheet>

[natcap]

Если честно не очень поняла, что должно происходить - АСП как-то не очень..
Вот ХМЛ

<?xml version="1.0" encoding="WINDOWS-1251"?>
<?xml-stylesheet type="text/xsl" href="main.xsl" ?>
<main>
<lang id="a1" name="Main"><![CDATA[unescape("&P&1&/P&&P&lllllll&STRONG&&EM&&STRIKE&&U&ljgjkgkj&/U&&/STRIKE&&/EM&&/STRONG&jk&BR&;l'l;l';l'l';l;'&/P&&P&kklkl&/P&")]]></lang>
</main>


main.xsl

<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
<xsl:template match="/">
<div id='aatempaa'><div id='text_div' edit='this_page' style='height: 100%; border: 1px dotted Black;' contentEditable='true' designMode='On'><xsl:value-of select='*' disable-output-escaping="yes"/></div></div>
</xsl:template>
</xsl:stylesheet>

Результат можно сказать на лице

[skiperski]

Если используешь CDATA, то кодировать уже не нужно. Кодируешь только в простом тэге

Код: Выделить всё

<?xml version="1.0" encoding="WINDOWS-1251"?>
<?xml-stylesheet type="text/xsl" href="main.xsl" ?>
<main>
   <lang id="a1" name="Main">
      <![CDATA[
         <P>1</P><P>lllllll<STRONG><EM><STRIKE><U>ljgjkgkj</U></STRIKE></EM></STRONG>jk<BR>;l'l;l';l'l';l;'</P><P>kklkl</P>
      ]]>
   </lang>

   <lang id="a1" name="Main">&lt;P&gt;1&lt;/P&gt;&lt;P&gt;lllllll&lt;STRONG&gt;&lt;EM&gt;&lt;STRIKE&gt;&lt;U&gt;ljgjkgkj&lt;/U&gt;&lt;/STRIKE&gt;&lt;/EM&gt;&lt;/STRONG&gt;jk&lt;BR&gt;;l'l;l';l'l';l;'&lt;/P&gt;&lt;P&gt;kklkl&lt;/P&gt;</lang>

</main>