************************************************** *
'Nom de la fonction : FSOFileRead
'Fonction : Utilisez FSO pour lire la fonction de contenu du fichier
'Paramètre : nom de fichier ---- nom de fichier
'Valeur de retour : contenu du fichier
'************************************************ *
fonction FSOFileRead (nom de fichier)
Dim objFSO, objCountFile, FiletempData
Définir objFSO = Server.CreateObject (Scripting.FileSystemObject)
Définir objCountFile = objFSO.OpenTextFile(Server.MapPath(filename),1,True)
FSOFileRead = objCountFile.ReadAll
objCountFile.Fermer
Définir objCountFile=Rien
Définir objFSO = Rien
Fonction de fin
'************************************************ *
'Nom de la fonction : FSOlinedit
'Fonction : utilisez FSO pour lire une certaine ligne de la fonction de fichier
'Paramètre : nom de fichier ---- nom de fichier
' lineNum ---- numéro de ligne
'Valeur de retour : le contenu de la ligne dans le fichier
'************************************************ *
fonction FSOlinedit (nom de fichier, numéro de ligne)
si linge < 1 alors quittez la fonction
dim fso, f, temparray, tempcnt
set fso = serveur.CreateObject (scripting.filesystemobject)
sinon fso.fileExists(server.mappath(filename)) alors quittez la fonction
set f = fso.opentextfile(server.mappath(filename),1)
sinon f.AtEndofStream alors
tempcnt = f.readall
f.fermer
définir f = rien
temparray = split(tempcnt,chr(13)&chr(10))
si lineNum>ubound(temparray)+1 alors
fonction de sortie
autre
FSOlinedit = temparray(lineNum-1)
finir si
finir si
fonction de fin
'************************************************ *
'Nom de la fonction : FSOlinewrite
'Fonction : utilisez FSO pour écrire une certaine ligne de la fonction de fichier
'Paramètre : nom de fichier ---- nom de fichier
' lineNum ---- numéro de ligne
' Contenu de la ligne ---- contenu
'Valeur de retour : Aucune
'************************************************ *
fonction FSOlinewrite (nom de fichier, numéro de ligne, contenu de ligne)
si linge < 1 alors quittez la fonction
dim fso, f, temparray, tempCnt
set fso = serveur.CreateObject (scripting.filesystemobject)
sinon fso.fileExists(server.mappath(filename)) alors quittez la fonction
set f = fso.opentextfile(server.mappath(filename),1)
sinon f.AtEndofStream alors
tempcnt = f.readall
f.fermer
temparray = split(tempcnt,chr(13)&chr(10))
si lineNum>ubound(temparray)+1 alors
fonction de sortie
autre
temparray(lineNum-1) = lineContent
finir si
tempcnt = rejoindre (temparray, chr (13) & chr (10))
set f = fso.createtextfile(server.mappath(filename),true)
f.writetempcnt
finir si
f.fermer
définir f = rien
fonction de fin