************************************************** *
'Funktionsname: FSOFileRead
'Funktion: Verwenden Sie FSO, um die Dateiinhaltsfunktion zu lesen
'Parameter: Dateiname ---- Dateiname
'Rückgabewert: Dateiinhalt
'************************************************** *
Funktion FSOFileRead(Dateiname)
Dimmen Sie objFSO,objCountFile,FiletempData
Setze objFSO = Server.CreateObject(Scripting.FileSystemObject)
Set objCountFile = objFSO.OpenTextFile(Server.MapPath(filename),1,True)
FSOFileRead = objCountFile.ReadAll
objCountFile.Close
Setze objCountFile=Nothing
Setze objFSO = Nichts
Funktion beenden
'************************************************** *
'Funktionsname: FSOlinedit
'Funktion: Verwenden Sie FSO, um eine bestimmte Zeile der Dateifunktion zu lesen
'Parameter: Dateiname ---- Dateiname
' lineNum ---- Zeilennummer
'Rückgabewert: der Inhalt der Zeile in der Datei
'************************************************** *
Funktion FSOlineedit(filename,lineNum)
Wenn Leinen < 1, dann beenden Sie die Funktion
dim fso,f,temparray,tempcnt
set fso = server.CreateObject(scripting.filesystemobject)
Wenn nicht fso.fileExists(server.mappath(filename)), dann beenden Sie die Funktion
set f = fso.opentextfile(server.mappath(filename),1)
wenn nicht f.AtEndofStream dann
tempcnt = f.readall
f.schließen
setze f = nichts
temparray = split(tempcnt,chr(13)&chr(10))
wenn lineNum>ubound(temparray)+1 dann
Exit-Funktion
anders
FSOlinedit = temparray(lineNum-1)
Ende wenn
Ende wenn
Endfunktion
'************************************************** *
'Funktionsname: FSOlinewrite
'Funktion: Verwenden Sie FSO, um eine bestimmte Zeile der Dateifunktion zu schreiben
'Parameter: Dateiname ---- Dateiname
' lineNum ---- Zeilennummer
' Zeileninhalt ---- Inhalt
'Rückgabewert: Keiner
'************************************************** *
Funktion FSOlinewrite(filename,lineNum,Linecontent)
Wenn Leinen < 1, dann beenden Sie die Funktion
dim fso,f,temparray,tempCnt
set fso = server.CreateObject(scripting.filesystemobject)
Wenn nicht fso.fileExists(server.mappath(filename)), dann beenden Sie die Funktion
set f = fso.opentextfile(server.mappath(filename),1)
wenn nicht f.AtEndofStream dann
tempcnt = f.readall
f.schließen
temparray = split(tempcnt,chr(13)&chr(10))
wenn lineNum>ubound(temparray)+1 dann
Exit-Funktion
anders
temparray(lineNum-1) = lineContent
Ende wenn
tempcnt = join(temparray,chr(13)&chr(10))
set f = fso.createtextfile(server.mappath(filename),true)
f.writetempcnt
Ende wenn
f.schließen
setze f = nichts
Endfunktion