************************************************** *
'Nome da função: FSOFileRead
'Função: Use FSO para ler a função de conteúdo do arquivo
'Parâmetro: nome do arquivo ---- nome do arquivo
'Valor de retorno: conteúdo do arquivo
'**********************************************
função FSOFileRead(nome do arquivo)
Dim objFSO,objCountFile,FiletempData
Definir objFSO = Server.CreateObject(Scripting.FileSystemObject)
Definir objCountFile = objFSO.OpenTextFile(Server.MapPath(nome do arquivo),1,True)
FSOFileRead = objCountFile.ReadAll
objCountFile.Close
Definir objCountFile=Nada
Definir objFSO = Nada
Função final
'**********************************************
'Nome da função: FSOlineedit
'Função: Use FSO para ler uma determinada linha da função de arquivo
'Parâmetro: nome do arquivo ---- nome do arquivo
'lineNum ---- número da linha
'Valor de retorno: o conteúdo da linha no arquivo
'**********************************************
função FSOlinedit(nomedoarquivo,NumLinha)
se linenum <1 então saia da função
dim fso,f,temparray,tempcnt
definir fso = server.CreateObject(scripting.filesystemobject)
se não fso.fileExists(server.mappath(filename)) então saia da função
definir f = fso.opentextfile(server.mappath(nome do arquivo),1)
se não for f.AtEndofStream então
tempcnt = f.readall
f.fechar
definir f = nada
temparray = dividir(tempcnt,chr(13)&chr(10))
se lineNum>ubound(temparray)+1 então
função de saída
outro
FSOlineedit = temparray(lineNum-1)
terminar se
terminar se
função final
'**********************************************
'Nome da função: FSOlinewrite
'Função: Use FSO para escrever uma determinada linha da função de arquivo
'Parâmetro: nome do arquivo ---- nome do arquivo
'lineNum ---- número da linha
'Conteúdo da linha ---- conteúdo
'Valor de retorno: Nenhum
'**********************************************
função FSOlinewrite (nome do arquivo, lineNum, Linecontent)
se linenum <1 então saia da função
dim fso,f,temparray,tempCnt
definir fso = server.CreateObject(scripting.filesystemobject)
se não fso.fileExists(server.mappath(filename)) então saia da função
definir f = fso.opentextfile(server.mappath(nome do arquivo),1)
se não for f.AtEndofStream então
tempcnt = f.readall
f.fechar
temparray = divisão(tempcnt,chr(13)&chr(10))
se lineNum>ubound(temparray)+1 então
função de saída
outro
temparray(lineNum-1) = lineContent
terminar se
tempcnt = join(temparray,chr(13)&chr(10))
definir f = fso.createtextfile(server.mappath(nome do arquivo),true)
f.writetempcnt
terminar se
f.fechar
definir f = nada
função final