Ver Mensaje Individual
  #3 (permalink)  
Antiguo 22/07/2002, 14:12
Avatar de AlZuwaga
AlZuwaga
Colaborador
 
Fecha de Ingreso: febrero-2001
Ubicación: 34.517 S, 58.500 O
Mensajes: 14.550
Antigüedad: 24 años, 2 meses
Puntos: 535
Re: FSO, rescatar valores, comas

Suponiendo que el archivo de texto se llame texto.txt y esté en la misma carpeta que el script, podrías hacer algo así:


Código:
<%
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fileObject = fso.GetFile(Server.MapPath("texto.txt"))
Set textStreamObject = fileObject.OpenAsTextStream(1,0)

Do While Not textStreamObject.AtEndOfStream

Linea = textStreamObject.ReadLine
Datos = Split(Linea, ", ")

For i = 0 To UBound(Datos)
Response.Write(Datos(i)) & " - "
Next
Response.Write "<br>"
Loop

Set textStreamObject = Nothing
Set fileObject = Nothing
Set fso = Nothing
%>
ese código solo te lo muestra en pantalla... pero podés meter un poco de mano para hacer lo que quieras... guardarlo en una BD, por ejemplo.

el arreglo te quedaría:

Nota1 = Datos(0)
Nota2 = Datos(1)
Nota3 = Datos(2)
Condicion = Datos(3)

Ahora te toca a vos jugar un poco con el código ;)