In Asp Est-il possible lire le contenu d'un filet e écrire dans un fichier texte.
L'objet qui nous convient est le FileSystemObject : pour ouvrir un fichier nous utiliserons OuvrirFichierTexte avec 3 modes différents : lire, écrire, ajouter.
Le fichier peut être lu soit avec LireLigne (ligne par ligne) ou avec Lis tout (lit tout le contenu).
Le mode ajouter diffère du mode écriture car il ajoute du texte à un document déjà ouvert en l'ajoutant à celui déjà présent.
Lire et écrire des fichiers en ASP
Avec ce script, nous lisons le contenu du fichier en une seule fois :
<%
filePath = Server.Mappath ("file_testo.txt")
Définir objFileSystem = Server.CreateObject ("Scripting.FileSystemObject")
si objFileSystem.FileExists(filePath ) alors
'J'ouvre le fichier pour lecture
Définir objFile = objFileSystem.OpenTextFile(filePath, 1)
'J'écris dans le contenu du fichier vidéo
Response.Write objFile.ReadAll
'ou je le mets dans une variable text_content = objFile.ReadAll
objFile.Fermer
Définir objFile=Rien
fin si
Définir objFileSystem=Rien
%>
Avec ce script nous lisons le fichier ligne par ligne :
<%
filePath = Server.Mappath ("file_testo.txt")
Définir objFileSystem = Server.CreateObject ("Scripting.FileSystemObject")
si objFileSystem.FileExists(filePath ) alors
Définir objFile = objFileSystem.OpenTextFile(filePath, 1)
'Je lis le fichier ligne par ligne jusqu'à la fin du fichier
Faire sans objFile.AtEndofStream
Response.Write objFile.ReadLine & " "
boucle
objFile.Fermer
Définir objFile=Rien
fin si
Définir objFileSystem=Rien
%>
J'écris le texte dans le fichier (vérifiez que le dossier a les autorisations d'écriture) et si le fichier n'existe pas je le crée :
<%
filePath = Server.Mappath ("file_testo.txt")
Définir objFileSystem = Server.CreateObject ("Scripting.FileSystemObject")
sinon objFileSystem.FileExists(filePath) alors
'si ça n'existe pas je pense que oui
objFileSystem.CreateTextFile(filePath)
fin si
Définir objFile = objFileSystem.OpenTextFile(filePath, 2)
'J'écris une ligne dans le fichier
' objFileSystem.OpenTextFile(filePath, 2) -> fichier sovrascrivo
'objFileSystem.OpenTextFile (filePath, 8) -> ajouter le texte au bas du fichier
objFile.WriteLine ("nouveau fichier texte")
objFile.Fermer
Définir objFile=Rien
Définir objFileSystem=Rien
%>
