Quitar primer caracter en archivo txt

[rickoe]

Hola!!! :)

A ver si me explico, resulta que recibo un archivo de texto con x numero de palabras, ahora requiero quitar el primer carácter de ese archivo para sustituirlo por una imagen, como aquellos artículos de una revista que la primera letra es mas grande y/o una imagen.

Esto es muy fácil hacerlo manualmente, pero no lo quiero así, quiero que sea algo automático, que al subir el archivo .txt el ASP haga el resto.

Alguien sabe como?

Muchas gracias de antemano

Saludos

Rickoe

[Aston]

Hola Rickoe:

Es muy fácil, sólo habría que sustituir el primer carácter del archivo por <img src="foto.jpg" border="0">

Si es eso, dímelo y mañana te pondría el código ¿Ok?

Un abrazo, Rickoe.

<a href="http://www.laventanita.net/" target="_blank">
<img src="http://www.breogan.org/images/Aston.gif" border="0" alt="La Ventanita.net - Lo imprescindible en la red"></a>

[rickoe]

Hola!!! :)

Si, eso es, así lo he hecho manualmente, pero quiero que funcione automaticamente

Si hay modo de hacerlo automaticamente?

Igualmente un abrazo

Rickoe

[AlZuwaga]

Una idea, Rickportero :)

Primero leé todo el archivo TXT con el filesystemobject y guardalo en una variable.

Tené preparada una imagen por cada letra y llamalas a.gif, b.gif, ..., z.gif y usá este código:

&lt;%
Option explicit
Dim Texto
Texto = &quot;Había una vez...&quot; 'acá va el archivo leido con el FSO
Response.Write &quot;&lt;img src='&quot; &amp; Left(Texto, 1) &amp; &quot;.gif'&gt;&quot; &amp; Right(Texto, Len(Texto)-1)
%&gt;

saludos
diego

[Aston]

Ja ja se me adelantó Diego.

Bueno, por lo menos te pongo la función para leer un archivo y así ya lo tienes todo hecho:

Ejemplo: LeeArchivo(&quot;Index.asp&quot;)

Function LeeArchivo(cArchi)
'Lee un archivo de texto (asp, html, log, js)
Dim oSFile, oTextArch, cTexto
Set oSFile = Server.CreateObject(&quot;Scripting.FileSystemObje ct&quot;)
Set oTextArch = oSFile.OpenTextFile (Server.MapPath(cArchi), 1, false )
cTexto = Trim(oTextArch.ReadAll)

Set oSFile = Nothing
oTextArch.Close: Set oTextArch = Nothing
LeeArchivo = cTexto
End Function

Un saludo. :)

<a href="http://www.laventanita.net/" target="_blank">
<img src="http://www.breogan.org/images/Aston.gif" border="0" alt="La Ventanita.net - Lo imprescindible en la red"></a>