Los Foros de ASPTutor.com
Home | Perfil | Registrarse | Temas Activos | Miembros | Buscar | FAQ
Usuario:
Password:
 Todos los Foros
 ASP
 Ayuda por favor con este còdigo.....
 Foro Bloqueado  Tema Bloqueado


Autor Temas
kaifaz77
Starting Member


8 Posts
Mensajes - 18 Sep 2005 :  19:12:01  Ver Perfil  Enviar Email
Intento leer el archivo "procesos2.txt"
Que contiene sólo 1 lìnea con el siguiente contenido:

23;34;
Creo una matriz (99,1) para dejar en la posicion (0,0)=23 y (0,1)=34.

No e podido resolverlo, agradecerìa mucho me puedan ayudar.
Dim objFSO

Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

Dim objTextStream
Dim matriz (99,1)
Dim dato

const strNombreArchivo = "C:\procesos2.txt"
const fsoLectura = 1

If objFSO.FileExists(strNombreArchivo) then
Set objTextStream = objFSO.OpenTextFile(strNombreArchivo, fsoLectura)
Response.Write "El contenido del archivo es:<br>"
Do While not objTextStream.AtEndOfStream

'va mostrando las líneas que va leyendo
strText = objTextStream.ReadLine
dato = split(strText,";")
switch=0
for proceso = 0 to ubound(dato)
if (switch = 0) then
matriz(0,0) = trim(dato(proceso))
switch=1
else
matriz(0,1) = trim(dato(proceso))
end if

next
Response.Write matriz(0,0) & "<BR>"
Response.Write matriz(0,1) & "<BR>"
loop
objTextStream.Close
Set objTextStream = Nothing
Else
Response.Write strFileName & " No se ha encontrado"
End If

Set objFSO = Nothing

%>


Alexis_m20
Senior Member

Chile
1021 Posts
Posted - 07 Oct 2005 :  23:00:05  Ver perfil  Enviar e-mail  Visit Alexis_m20's Homepage
Que error te sale???


Si puedo ayudar lo hare
Entren a mi web y registrense y voten
http://www33.brinkster.com/alexis20Inicio Pagina

   
 Foro Bloqueado  Tema Bloqueado
Ir a:
Los Foros de ASPTutor.com Los Foros de ASPTutor.com
Ir al principio de la Página

 Imprimir Tema
 

Descargas de manuales¦ Ejemplos de código ¦ Artículos mas visitados ¦ Envía tu articulo ¦ Foros ¦
  Libro de visitas ¦Crea un enlace con ASPTutor 
 

    © 2001-Hasta hoy  Pedro Rufo Martín  contactar