FSO es un control para las operaciones de archivos en Microsoft ASP. Entonces, el editor del nuevo canal incorrecto compartirá con usted un análisis detallado del código FSO.
Funciones que modifican el contenido específico del archivo usando FSO
functSoChange (nombre de archivo, destino, cadena)
Dimobjfso, objcountfile, filetempdata
Setobjfso = server.createObject ("scripting.filesystemObject")
SetobjCountFile = objfso.opentextfile (server.mappath (nombre de archivo), 1, verdadero)
Filetempdata = objCountFile.Readall
objcountfile.close
FiletEMPData = reemplazar (filetEMPDATA, target, cadena)
SetObJCountFile = objfso.createTextFile (server.mappath (nombre de archivo), verdadero)
objcountfile.WriteFiletempData
objcountfile.close
Setobjcountfile = nada
Setobjfso = nada
Función final
Funciones que usan FSO para leer el contenido del archivo
FINTOFSOFILEREAD (nombre de archivo)
Dimobjfso, objcountfile, filetempdata
Setobjfso = server.createObject ("scripting.filesystemObject")
SetobjCountFile = objfso.opentextfile (server.mappath (nombre de archivo), 1, verdadero)
Fsofilread = objCountFile.Readall
objcountfile.close
Setobjcountfile = nada
Setobjfso = nada
Función final
Funciones que usan FSO para leer una línea de un archivo
functsolinedit (nombre de archivo, lino)
iflinenum
Dimfso, F, Temparray, Tempcnt
setfso = server.createObject ("scripting.filesystemObject")
ifnotfso.fileExists (server.mappath (nombre de archivo)) entoncesxitfunction
setf = fso.opentextfile (server.mappath (nombre de archivo), 1)
ifnotf.atendofStreamThen
tempcnt = f.Readall
f.clar
setf = nada
Template = Split (tempcnt, chr (13) y chr (10))
iflinenum> Ubund (Temparray)+1Then
extinción
demás
FSOLINEDIT = TEMPARRAY (LINENUM-1)
endif
endif
Función final
Funciones que usan FSO para escribir una determinada línea de un archivo
FunctionFsolineWrite (nombre de archivo, lino, lineno)
iflinenum
Dimfso, F, Temparray, Tempcnt
setfso = server.createObject ("scripting.filesystemObject")
ifnotfso.fileExists (server.mappath (nombre de archivo)) entoncesxitfunction
setf = fso.opentextfile (server.mappath (nombre de archivo), 1)
ifnotf.atendofStreamThen
tempcnt = f.Readall
f.clar
Template = Split (tempcnt, chr (13) y chr (10))
iflinenum> Ubund (Temparray)+1Then
extinción
demás
Plantilla (Linenum-1) = Linecontent
endif
tempcnt = unión (TempArray, chr (13) y chr (10))
setf = fso.createTextFile (server.mappath (nombre de archivo), verdadero)
f.writeTempcnt
endif
f.clar
setf = nada
Función final
Funciones para agregar nuevas líneas de un archivo usando FSO
functSoAppline (nombre de archivo, linecontent)
dimfso, F
setfso = server.createObject ("scripting.filesystemObject")
ifnotfso.fileExists (server.mappath (nombre de archivo)) entoncesxitfunction
setf = fso.opentextfile (server.mappath (nombre de archivo), 8,1)
F.WriteChr (13) y CHR (10) y Linecontent
f.clar
setf = nada
Función final
Funciones que leen la última línea del archivo
FINTOFSOLASTLINE (nombre de archivo)
Dimfso, F, Temparray, Tempcnt
setfso = server.createObject ("scripting.filesystemObject")
ifnotfso.fileExists (server.mappath (nombre de archivo)) entoncesxitfunction
setf = fso.opentextfile (server.mappath (nombre de archivo), 1)
ifnotf.atendofStreamThen
tempcnt = f.Readall
f.clar
setf = nada
Template = Split (tempcnt, chr (13) y chr (10))
Fsolastline = TempArray (Ubund (TempArray))
endif
Función final
FSO reemplaza el carácter del archivo especificado
Código de programa:
'FSO reemplaza el carácter del archivo especificado
FINTOFSOLINEEDIT (nombre de archivo, objetivo, cadena)
Dimobjfso, objcountfile, filetempdata
Setobjfso = server.createObject ("scripting.filesystemObject")
SetobjCountFile = objfso.opentextfile (server.mappath (nombre de archivo), 1, verdadero)
Filetempdata = objCountFile.Readall
objcountfile.close
FiletEMPData = reemplazar (filetEMPDATA, target, cadena)
SetObJCountFile = objfso.createTextFile (server.mappath (nombre de archivo), verdadero)
objcountfile.WriteFiletempData
objcountfile.close
Setobjcountfile = nada
Setobjfso = nada
Función final
'Response.Writefsolineedit ("test.txt", "World", "Mañana es un buen día para ir")
Eliminar archivos
Código de programa:
'Eliminar el archivo
FunctionDelfile (nombre de archivo)
Iffilename "" entonces
Setfso = server.createObject ("scripting.filesystemObject")
Iffso.fileExists (nombre de archivo) entonces
Fso.deleteFileFileName
Endif
Setfso = nada
Endif
Función final
Determinar si el archivo existe
Código de programa:
'Simplemente determine si el archivo existe
FunctionReportFilestatus (Filespec)
Dimfso, msg
Setfso = createObject ("scripting.filesystemObject")
If (fso.fileExists (filespec)) entonces
msg = filespec y "existe".
Demás
msg = filespec y "noxist".
Endif
ReportFilestatus = msg
Función final
Funciones que modifican el contenido específico del archivo usando FSO
Código de programa:
'Use FSO para modificar las funciones de contenido específicas de archivos
FunctSoChange (nombre de archivo, destino, cadena)
Dimobjfso, objcountfile, filetempdata
Setobjfso = server.createObject ("scripting.filesystemObject")
SetobjCountFile = objfso.opentextfile (server.mappath (nombre de archivo), 1, verdadero)
Filetempdata = objCountFile.Readall
objcountfile.close
FiletEMPData = reemplazar (filetEMPDATA, target, cadena)
SetObJCountFile = objfso.createTextFile (server.mappath (nombre de archivo), verdadero)
objcountfile.WriteFiletempData
objcountfile.close
Setobjcountfile = nada
Setobjfso = nada
Función final
Funciones que usan FSO para escribir una determinada línea de un archivo
Código de programa:
'Use FSO para escribir una función que tenga una cierta línea de un archivo
FunctionFsolineWrite (nombre de archivo, lino, lineno)
Iflinenum
Dimfso, F, Temparray, Tempcnt
Setfso = server.createObject ("scripting.filesystemObject")
Ifnotfso.fileExists (server.mappath (nombre de archivo)) entoncesxitfunction
Setf = fso.opentextfile (server.mappath (nombre de archivo), 1)
Ifnotf.atendofStreamThen
tempcnt = f.Readall
f.clar
TEMPArray = Split (Tempcnt, CHR (13) y CHR (10))
Iflinenum> Ubound (temparray)+1
Extinción
Demás
Plantilla (Linenum-1) = Linecontent
Endif
tempcnt = unión (TempArray, chr (13) y chr (10))
Setf = fso.createTextFile (server.mappath (nombre de archivo), verdadero)
f.writeTempcnt
Endif
f.clar
Setf = nada
Función final
El programa que crea un directorio. Si hay múltiples niveles de directorios, cree un nivel a la vez.
Código de programa:
'El programa que crea un directorio. Si hay múltiples niveles de directorios, lo crea un nivel a la vez.
FunctionCreateDir (byvallocalpath)
OnerrorResumEnext
LocalPath = reemplazar (localpath, "/", "/")
SetFileObject = server.createObject ("scripting.filesystemObject")
Patharr = Split (LocalPath, "/")
Path_level = Ubound (Patharr)
Fori = 0topath_level
Ifi = 0thenpathtmp = patharr (0) & "/" elsepathtmp = pathtmp & patharr (i) & "/"
cpath = izquierda (pathtmp, len (pathtmp) -1)
IfNotFileObject.LoTeRexists (CPATH) entonces FileObject.CreateFoldercpath
Próximo
SetFileObject = nada
Iferr.number0then
Creationir = falso
Err.Clear
Demás
Creationir = true
Endif
Función final
Estas son algunas de estas características incómonas, pero muy geniales:
Características de FSO que rara vez se entienden
GetSpecialFoldermethod Devuelve la ruta de una carpeta específica de Windows: Directorio de instalación de Windows; Directorio del sistema de Windows; Directorio temporal de Windows FSO.GetSpecialFolder ([0,1, OR2])
GetTempnEmEmethod Devuelve un archivo o nombre de directorio generado aleatoriamente, que se usa cuando se requieren datos temporales.
GetAbSolutePathNamEmethod Devuelve la ruta absoluta a la carpeta (similar a server.mappath).
Por ejemplo, fso.getabsolutepathname ("región") devolverá un resultado similar al siguiente: "C: myDocsmyFoldeEregion"
GetExtensionNnamEmethod Devuelve la extensión de la última parte de la ruta
(Por ejemplo: fso.getExtensionName ("c: docsest.txt") devolverá txt)
GetBasenameandgetParentfoldermethods Devuelve la carpeta principal de la última parte de la ruta
(Por ejemplo: fso.getparentfolder ("C: docsmydocs") devolverá 'docs')
DrivesProperty devuelve una colección de todas las unidades disponibles localmente para construir interfaces de usuario tipo navegador de recursos.
Al usar las funciones anteriores, es mejor crear un código para el manejo de errores. Porque si los parámetros requeridos no existen, se generará información problemática.
Lo anterior es un análisis detallado del código FSO. Creo que lo has aprendido todo. Para obtener más contenido relacionado, continúe prestando atención al canal de tecnología Wuxin.