Mostrar los tags: xp

const texto="Lorem ipsum dolor sit amet, consectetur adipiscing elit. Vestibulum sagittis dolor mauris, at elementum ligula tempor eget. In quis rhoncus nunc, at aliquet orci. Fusce at dolor sit amet felis suscipit tristique. Nam a imperdiet tellus. Nulla eu vestibulum urna. Vivamus tincidunt suscipit enim, nec ultrices nisi volutpat ac. Maecenas sit amet lacinia arcu, non dictum justo. Donec sed quam vel risus faucibus euismod. Suspendisse rhoncus rhoncus felis at fermentum. Donec lorem magna, ultricies a nunc sit amet, blandit fringilla nunc. In vestibulum velit ac felis rhoncus pellentesque. Mauris at tellus enim. Aliquam eleifend tempus dapibus. Pellentesque commodo, nisi sit amet hendrerit fringilla, ante odio porta lacus, ut elementum justo nulla et dolor.";

result=format(texto, 30);

/* Devolvera:

Lorem ipsum dolor sit amet,

consectetur adipiscing elit.

Vestibulum sagittis dolor

mauris, at elementum ligula

tempor eget. In quis rhoncus

nunc, at aliquet orci. Fusce

at dolor sit amet felis

suscipit tristique. Nam a

imperdiet tellus. Nulla eu

vestibulum urna. Vivamus

tincidunt suscipit enim, nec

ultrices nisi volutpat ac.

Maecenas sit amet lacinia

arcu, non dictum justo. Donec

sed quam vel risus faucibus

euismod. Suspendisse rhoncus

rhoncus felis at fermentum.

Donec lorem magna, ultricies a

nunc sit amet, blandit

fringilla nunc. In vestibulum

velit ac felis rhoncus

pellentesque. Mauris at tellus

enim. Aliquam eleifend tempus

dapibus. Pellentesque commodo,

nisi sit amet hendrerit

fringilla, ante odio porta

lacus, ut elementum justo

nulla et dolor.

*/

escapeRegExp('hola $name'); // "hola \$name"

escapeRegExp('el objecto es: { nombre: ["juan", "jose"]}'); // "el objecto es: \{ nombre: \["juan", "jose"\]\}"

pigIt('Pig latin is cool'); // igPay atinlay siay oolcay

pigIt('Hello world !');     // elloHay orldway !

& -> &

&lt; -> <

> -> >

&#39 -> '

" -> "

unescapeHTML("&lt;br&gt;"); // <br>

unescapeHTML("&lt;p&gt;Code of &#39;JavaScript&#39;&lt;/p&gt;"); // <p>Code of 'JavaScript'</p>

unescapeHTML("&lt;a href=&quot;https://www.google.com&quot;&gt;Google&lt;/a&gt;"); // <a href="https://www.google.com">Google</a>

solution('abc') // ['ab', 'c_']

solution('abcdef') // ['ab', 'cd', 'ef']

yesNo('Y') // true

yesNo('y') // true

yesNo('yes') // true

yesNo('n') // false

yesNo('No') // false

yesNo('Foo', true) // true

yesNo('Foo') // false

'Pasar datos de excel a TXT

Sub Consulta01()

Dim NombreArchivo, rutaArchivo As String

NombreArchivo = Range("A1")

rutaArchivo = ActiveWorkbook.Path & "\" & NombreArchivo & ".txt"

Open (rutaArchivo) For Output As 1

Print #1, ActiveSheet.Range("A2").Value

Print #1, ActiveSheet.Range("A3").Value

Print #1, ActiveSheet.Range("A4").Value

Print #1, ActiveSheet.Range("A5").Value

Close #1

Range("A1").Select

MsgBox "Archivo >>>" & NombreArchivo & "<<< Generado con Exito", , "ExcelConsultor"

End Sub