Leer archivo de texto

[chidomen]

Hola a todos, estoy haciendo una galeria, y los pies de foto los quiero guardar en un archivo de texto, es decir si en la galeria ahi 4 fotos, las fotos tienen el nombre de 1,2,3,4..., en el archivo de texto seria algo asi:
1. Pie de foto de la imagen 1
2. Pie de foto de la imagen 2..............
y asi con las demas fotos,
estoy usando este codigo apra abrir el archivo y leerlo, pero no encuentro la manera de como leerlo para cada foto,
este codigo estoy usando

Código HTML:

<%
Const ForReading = 1
Const Create = False
Dim FSysObj
Dim TS
Dim strLine
Dim strFileName

'nombre del fichero a mostrar
strFileName = Server.MapPath("texto.txt")

'Creación del objeto FileSystemObject
Set FSysObj = Server.CreateObject("Scripting.FileSystemObject")

' Abrimos el fichero
Set TS = FSysObj.OpenTextFile(strFileName, ForReading, Create)

If not TS.AtEndOfStream Then
Response.Write "<FONT FACE=Verdana SIZE=1>"
Do While not TS.AtendOfStream
' Leemos el fichero linea a linea y lo mostramos
strLine = TS.ReadLine
Response.Write i & " " & Server.HTMLEncode(strLine) & "<br>"
loop
End If

' cerramos y destruimos los objetos
TS.Close
Set TS = Nothing
Set FSysObj = Nothing
%>

Espero que alguien pueda ayudarme, de antemano gracias y saludos

[tammander]

Leer datos de forma secuencial (linea por linea) es bastante engorroso sobretodo cuantas mas fotos tengas. La idea es la siguiente:

1 - Leer linea a linea hasta algun dato clave que identifique el texto con la foto.
2 - Leer la lina identificada

Si en el archivo de texto los datos los has guardado asi:

[micasa.jpg]Esta es la foto de mi casa
[tucasa.jpg]Esta es la tuya.

etc


Asi lo haria yo:

Código:

<%
Const ForReading = 1
Const Create = False
Dim FSysObj
Dim TS
Dim strLine
Dim strFileName

'Nombre del archivo a buscar
strFoto =  "[" & "micasa.jpg" & "]"

'nombre del fichero a mostrar
strFileName = Server.MapPath("texto.txt")

'Creación del objeto FileSystemObject
Set FSysObj = Server.CreateObject("Scripting.FileSystemObject")

' Abrimos el fichero
Set TS = FSysObj.OpenTextFile(strFileName, ForReading, Create)

If not TS.AtEndOfStream Then
Response.Write "<FONT FACE=Verdana SIZE=1>"
Do While not TS.AtendOfStream
' Leemos el fichero linea a linea y lo mostramos
strLine = TS.ReadLine

if instr(strLine,strFoto) then
        Response.Write i & " " & Server.HTMLEncode(mid(strLine,instr(strLine,strFoto))) & "<br>"
        exit do
end if

loop
End If

' cerramos y destruimos los objetos
TS.Close
Set TS = Nothing
Set FSysObj = Nothing
%>

Esto lo meteria en una funcion y la llamaria por cada foto solicitada.


Un saludo