Publicentral.com - alta en buscadores, registro buscadores, promocionaPromocion en buscadores y negocios online
Mostrando Codigo - Asp
Code

Asp - Leer y crear un archivo de texto

Códigos Asp

Utiliza FSO Para leer y crear un archivo de texto. Con FSO podemos crear todo tipo de archicos y extensiones de todo tipo. en este ejemplo creamos un archivo de texto .txt solamente debemos modificar c: estfile.txt con el path correcto donde queremos crear o modificar el archivo. Hay que tener en cuenta que la carpeta debe tener permisos de escritura!!
Visitas: 42,420 - 03/07/2003
CODIGO SIN DEMOSTRACIONNO CONTIENE ARCHIVO DESCARGABLEComentario
CODIGO
Codigo probado en ChromeCodigo probado en Mozilla FirefoxCodigo probado en Internet Explorer 7+Codigo probado en OperaCodigo probado en Safari


<% 'Codigo ofrecido por Tutores.org %>

  1. <%
  2. Const ForReading = 1, ForWriting = 2, ForAppending = 8
  3. Dim fso, f
  4. Set fso = CreateObject("Scripting.FileSystemObject")
  5. Set f = fso.OpenTextFile("c: estfile.txt", ForWriting, True)
  6. f.Write "Hola se ha escrito el archivo!"
  7.  
  8.  
  9. %>



ENLACE AL CODIGO
Si quieres enlazar desde tu pagina a este codigo
<!-- Inicio enlace Tutores.org -->
<a title="Tutores.org - Leer y crear un archivo de texto" href="http://www.tutores.org/codigo/3/" target="_blank">Leer y crear un archivo de texto</a>
<!-- Final enlace Tutores.org -->
COMENTARIOS
Comentario usuario
JhOnAtAn
3 5
pucha q fea nota a no tienes nada de informacion para el usuario ha esta mal tienes q acxtualoizarte ps uya okkk bueno havblamos ps bye
Comentario usuario
xplorer_mx
3 5
Que tal un saludo desde Mx.
Tengo la necesidad de cambiar la ruta en donde deposito archivos por falta de espacio, personal de Informatica me asigno un espacio mucho mas grande pero no encuentro la forma de direccionar la informacion hacia alla, te envio parte del codigo del Actual y de como lo requiero.

Actualmente uso este y funciona muy bien:
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(server.mappath("..") & "/scr/upload/"&nombre2L&"/" & _
FileName, ForWriting, True)

Por falta de espacio necesito enviar la informacion a un server de archivos:
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(server.mappath("") & "e.110.10.10scr"&nombre2L&"" & _
FileName, ForWriting, True)

Espero puedas ayudarme. gracias
Saludos.-
Comentario usuario
rayodeplata77
2 5
xplorer_mx para que te funcione el codigo tenes que sacarle server.mappath("") y la linea te quedaria
Set f = fso.OpenTextFile("http:e.110.10.10scr"&nombre2L&"" & _FileName, ForWriting, True)
Comentario usuario
20-12-2008 00:11:22
5 5
en busca de informacion
y tratar de ser un aporte
Comentario usuario
07-03-2008 08:24:17
2 5
hola necesito me podrias ayudar con asp lo k pas k tengo k alinear los datos en el block de notas pero no se como bueno t te explico ya realize mi archivo de texto desde asp yt m lo manda aun txt este es mi codigo
<%
set MFso = server.createobject("scripting.filesystemobject")
set Marchivo = MFso.opentextfile("c:pruebalista.txt",8,true)
MArchivo.writeline "registros:"
MArchivo.writeline(a)
MArchivo.writeline(b)
MArchivo.writeline(c)
MArchivo.writelin e(d)
MArchivo.writeline(e)
MArchivo.writeline(f)
MArchivo.writeline(g)
MArchivo.writeline(h)
MA rchivo.writeline(i)
MArchivo.close%>
ESO esta bien pero ahora quiero k cuando mande los datos en el block de notas me los alinea automatica mente como l puedo hacer me podrias ayudar porfavor.espero tu repueta en m,i correo gracias
INSERTAR COMENTARIO

Usuario:
Email:
Comentario:
Codigo Seguridad


Antes de enviar un comentario...
Todos los comentarios son revisados personalmente
Todo comentario que no haga relacion al codigo mostrado en esta pagina sera eliminado

Usuarios registrados tienen preferencia en recibir respuestas de ayuda!!
Ademas de poder insertar Imagenes,Enlaces y otras propiedades del editor.
Por favor, insertar los comentarios descriptivos.