************************************************** *
'Nombre de la función: FSOFileRead
'Función: Utilice FSO para leer la función de contenido del archivo
'Parámetro: nombre de archivo ---- nombre de archivo
'Valor de retorno: contenido del archivo
'************************************************ *
función FSOFileRead(nombre de archivo)
Dim objFSO,objCountFile,FiletempData
Establecer objFSO = Server.CreateObject(Scripting.FileSystemObject)
Establecer objCountFile = objFSO.OpenTextFile(Server.MapPath(nombre de archivo),1,True)
FSOFileRead = objCountFile.ReadAll
objCountFile.Cerrar
Establecer objCountFile=Nada
Establecer objFSO = Nada
Función final
'************************************************ *
'Nombre de la función: FSOlineedit
'Función: Utilice FSO para leer una determinada línea de la función del archivo
'Parámetro: nombre de archivo ---- nombre de archivo
'lineNum ---- número de línea
'Valor de retorno: el contenido de la línea en el archivo
'************************************************ *
función FSOlineedit (nombre de archivo, número de línea)
si linenum <1 entonces salga de la función
tenue fso,f,temparray,tempcnt
establecer fso = servidor.CreateObject(scripting.filesystemobject)
si no es fso.fileExists(server.mappath(nombre de archivo)) entonces salga de la función
establecer f = fso.opentextfile(servidor.mappath(nombre de archivo),1)
si no es f.AtEndofStream entonces
tempcnt = f.readall
f.cerrar
establecer f = nada
matriz temporal = dividir(tempcnt,chr(13)&chr(10))
si lineNum>ubound(temparray)+1 entonces
función de salida
demás
FSOlineedit = temparray(lineNum-1)
terminar si
terminar si
función final
'************************************************ *
'Nombre de la función: FSOlinewrite
'Función: Utilice FSO para escribir una determinada línea de la función del archivo
'Parámetro: nombre de archivo ---- nombre de archivo
'lineNum ---- número de línea
'Contenido de línea ---- contenido
'Valor de retorno: Ninguno
'************************************************ *
función FSOlinewrite(nombre de archivo,lineNum,Linecontent)
si linenum <1 entonces salga de la función
tenue fso,f,temparray,tempCnt
establecer fso = servidor.CreateObject(scripting.filesystemobject)
si no es fso.fileExists(server.mappath(nombre de archivo)) entonces salga de la función
establecer f = fso.opentextfile(servidor.mappath(nombre de archivo),1)
si no es f.AtEndofStream entonces
tempcnt = f.readall
f.cerrar
matriz temporal = dividir(tempcnt,chr(13)&chr(10))
si lineNum>ubound(temparray)+1 entonces
función de salida
demás
matriz temporal (número de línea-1) = contenido de línea
terminar si
tempcnt = unirse(temparray,chr(13)&chr(10))
establecer f = fso.createtextfile(servidor.mappath(nombre de archivo),verdadero)
f.writetempcnt
terminar si
f.cerrar
establecer f = nada
función final