[ASP+FSO]Aprire, leggere e scorrere file di testo

[Luis33]

Buonasera a tutti.

Tramite ASP + FSO devo aprire, leggere e scorrere un file di testo.

Quando durante la lettura del file di testo si trova la parola deve essere stampato a video tutto quello che è contenuto nel file di testo appunto iniziando dalla parola sino alla parola .

Questo è il codice ASP che sto usando ma non stampa nulla a video, perchè?

    filePath = Server.Mappath("salud.txt")
    Set objFileSystem = Server.CreateObject("Scripting.FileSystemObject")   
     
    if objFileSystem.FileExists(filePath ) then	
    Set objFile = objFileSystem.OpenTextFile(filePath, 1)
        
    Do While Not objFile.AtEndofStream
       objFile.ReadAll		    
       if Instr(filePath, "") then    
           Response.Write objFile.ReadLine & "
"    
       end if
    Loop	
    
    objFile.Close	
    Set objFile=Nothing
    
    end if
    Set objFileSystem=Nothing

[optime]

luigino, hai scritto

objFile.ReadAll === LEGGI TUTTO IL FILE

if Instr(filePath, "") then === SE NEL PERCORSO DEL FILE TROVI (nel percorso del file? )...
Response.Write objFile.ReadLine & "
" === SCRIVI UNA LINEA (ma non avevi già letto tutto? )
end if


rivedi la logica, dai...

[cavicchiandrea]

Prova cosi:

filePath = Server.Mappath("salud.txt")
    Set objFileSystem = Server.CreateObject("Scripting.FileSystemObject")   
     
    if objFileSystem.FileExists(filePath ) then    
    Set objFile = objFileSystem.OpenTextFile(filePath, 1, true)
    righe = objFile.ReadAll()
    Do While Not objFile.AtEndofStream            
    inizio = split(righe, "")
    fine = split(inizio(1),"")
           Response.Write fine(0) &"</br>"   
    Loop    
    
    objFile.Close    
    Set objFile=Nothing
    
    end if
    Set objFileSystem=Nothing 

[Luis33]

Grazie... dunque rivedo la logica:

    filePath = Server.Mappath("salud.txt")
    Set objFileSystem = Server.CreateObject("Scripting.FileSystemObject")   
     
    if objFileSystem.FileExists(filePath ) then	
    Set objFile = objFileSystem.OpenTextFile(filePath, 1)
        
    Do While Not objFile.AtEndofStream
       		    
       if Instr("salud.txt", "") then   
           Response.Write objFile.ReadAll & "
"   
       end if
       
    Loop	
    
    objFile.Close	
    Set objFile=Nothing
    
    end if
    Set objFileSystem=Nothing

Il file pesa solo 58 kB....

Active Server Pages, ASP 0113 (0x80004005)
Il tempo massimo disponibile per l'esecuzione di uno script è stato superato. Per modificare tale limite di tempo, impostare la proprietà Server.ScriptTimeOut sul valore desiderato o modificarne direttamente il valore utilizzando gli strumenti di amministrazione di IIS.

[Luis33]

Originariamente inviato da cavicchiandrea
Prova cosi:

filePath = Server.Mappath("salud.txt")
    Set objFileSystem = Server.CreateObject("Scripting.FileSystemObject")   
     
    if objFileSystem.FileExists(filePath ) then    
    Set objFile = objFileSystem.OpenTextFile(filePath, 1, true)
    righe = objFile.ReadAll()
    Do While Not objFile.AtEndofStream            
    inizio = split(righe, "")
    fine = split(inizio(1),"")
           Response.Write fine(0) &"</br>"   
    Loop    
    
    objFile.Close    
    Set objFile=Nothing
    
    end if
    Set objFileSystem=Nothing 

Grazie Andrea: nessun errore ma non stampa nulla...

[optime]

maro', come state scarsi, sulle cose basilari poi (leggere un file di testo )

SiStampa=False
Do While Not objFile.AtEndofStream
   LuisLine=objFile.ReadLine
   if Instr(LuisLine, "") then  SiStampa=True
   if Instr(LuisLine, "") then  SiStampa=False
   if SiStampa=True Then Response.Write LuisLine & "
"
Loop

[Luis33]

Originariamente inviato da optime
maro', come state scarsi, sulle cose basilari poi (leggere un file di testo )

SiStampa=False
Do While Not objFile.AtEndofStream
   LuisLine=objFile.ReadLine
   if Instr(LuisLine, "") then  SiStampa=True
   if Instr(LuisLine, "") then  SiStampa=False
   if SiStampa=True Then Response.Write LuisLine & "
"
Loop

Grazie, ma continua a non stampare niente...

    filePath = Server.Mappath("salud.txt")
    Set objFileSystem = Server.CreateObject("Scripting.FileSystemObject")   
     
    if objFileSystem.FileExists(filePath) then	
    Set objFile = objFileSystem.OpenTextFile(filePath, 1)
    
    SiStampa=False
    Do While Not objFile.AtEndofStream
      LuisLine=objFile.ReadLine
      if Instr(LuisLine, "") then  SiStampa=True
      if Instr(LuisLine, "") then  SiStampa=False
      if SiStampa=True Then Response.Write LuisLine & "
"
    Loop	

    objFile.Close	
    Set objFile=Nothing
    
    end if
    Set objFileSystem=Nothing

[optime]

sicuro che ci siano i contenuti?

[Luis33]

Originariamente inviato da optime
sicuro che ci siano i contenuti?

Si, ecco salud.txt:

<xmp><html>
<head>
<title>Salud</title>

....

....

....

</head>

contenuto
contenuto
...
...
...
...

</html>
</xmp>

[optime]

sicuro che ci sia il file?

modifica la FINE dello script così

...

   objFile.Close	
    Set objFile=Nothing

ELSE
    RESPONSE.WRITE "IL FILE " & filePath & " NUN CE STA"

    end if
    Set objFileSystem=Nothing