************************************************** *
'함수 이름: FSOFileRead
'기능: FSO를 사용하여 파일 내용 읽기 기능
'매개변수: 파일 이름 ---- 파일 이름
'반환 값: 파일 내용
'************************************************ *
함수 FSOFileRead(파일 이름)
희미한 objFSO,objCountFile,FiletempData
objFSO = Server.CreateObject(Scripting.FileSystemObject) 설정
objCountFile = objFSO.OpenTextFile(Server.MapPath(파일 이름),1,True) 설정
FSOFileRead = objCountFile.ReadAll
objCountFile.Close
objCountFile=아무것도 설정하지 않음
objFSO = 없음으로 설정
기능 종료
'************************************************ *
'함수 이름: FSOlinedit
'기능: FSO를 사용하여 파일 함수의 특정 줄을 읽습니다.
'매개변수: 파일 이름 ---- 파일 이름
' lineNum ---- 줄 번호
'반환값: 파일의 해당 줄 내용
'************************************************ *
함수 FSOlineedit(파일 이름, lineNum)
linenum < 1이면 함수를 종료합니다.
희미한 fso,f,temparray,tempcnt
fso = server.CreateObject(scripting.filesystemobject) 설정
fso.fileExists(server.mappath(filename))가 아니면 함수를 종료합니다.
f = fso.opentextfile(server.mappath(파일 이름),1) 설정
f.AtEndofStream이 아니면
tempcnt = f.readall
f.닫기
f = 아무것도 설정하지 않음
임시 배열 = 분할(tempcnt,chr(13)&chr(10))
lineNum>ubound(temparray)+1이면
종료 기능
또 다른
FSOlineedit = 임시 배열(lineNum-1)
종료하면
종료하면
함수 종료
'************************************************ *
'함수 이름: FSOlinewrite
'기능: FSO를 사용하여 파일 함수의 특정 줄을 작성합니다.
'매개변수: 파일 이름 ---- 파일 이름
' lineNum ---- 줄 번호
' 줄 내용 ---- 내용
'반환 값: 없음
'************************************************ *
함수 FSOlinewrite(파일 이름, lineNum, Linecontent)
linenum < 1이면 함수를 종료합니다.
희미한 fso,f,temparray,tempCnt
fso = server.CreateObject(scripting.filesystemobject) 설정
fso.fileExists(server.mappath(filename))가 아니면 함수를 종료합니다.
f = fso.opentextfile(server.mappath(파일 이름),1) 설정
f.AtEndofStream이 아니면
tempcnt = f.readall
f.닫기
임시 배열 = 분할(tempcnt,chr(13)&chr(10))
lineNum>ubound(temparray)+1이면
종료 기능
또 다른
temparray(lineNum-1) = lineContent
종료하면
tempcnt = Join(temparray,chr(13)&chr(10))
f = fso.createtextfile(server.mappath(파일 이름),true) 설정
f.writetempcnt
종료하면
f.닫기
f = 아무것도 설정하지 않음
함수 종료