Tekstbestand uitlezen

Auteur: barry - 19 oktober 2004 - 01:36 - Gekeurd door: Dennisvb - Hits: 3980 - Aantal punten: 4.25 (2 stemmen)

Met dit script lees je het bestand "bestandje.txt" uit en laat hij deze zien op je pagina...

Als het bestand niet bestaat... doet hij niks...

Code:

php code - Bekijk de code zonder highlighting - Klap code in

                <% @ LANGUAGE="VBSCRIPT" %> 
<% Option Explicit %> 
<% 

Dim fileob, regel,gbfile, file_name 
file_name = "/bestandje.txt" 

Set fileob = Server.CreateObject("Scripting.FileSystemObject") 
If fileob.FileExists(Server.MapPath("\") & file_name) Then 
Set gbfile = fileob.OpenTextFile(Server.MapPath("\") & file_name,1,False) 
While Not gbfile.AtEndOfStream 
        regel = gbfile.ReadLine     
        response.write regel & "<BR>" 
Wend 
gbfile.Close 
End If 

%>
            
<% @ LANGUAGE="VBSCRIPT" %> 
<% Option Explicit %> 
<% 
 
Dim fileob, regel,gbfile, file_name 
file_name = "/bestandje.txt" 
 
Set fileob = Server.CreateObject("Scripting.FileSystemObject") 
If fileob.FileExists(Server.MapPath("\") & file_name) Then 
Set gbfile = fileob.OpenTextFile(Server.MapPath("\") & file_name,1,False) 
While Not gbfile.AtEndOfStream 
        regel = gbfile.ReadLine     
        response.write regel & "<BR>" 
Wend 
gbfile.Close 
End If 
 
%>
 

Download code (.txt)

Stemmen

Niet ingelogd.

Reacties

Post een reactie

Lees de reacties (1)