login register Sysop! about ME  

2019년 02월 20일 15시 15분 00초,     조회수 : 338
  제목 : [ASP] FSO 파일을 특정 라인부터 특정라인까지 읽어올수 있나여?
SEQ : 164134 글쓴이 : jambaman

작성 포맷 : TEXT 모드, 자동 줄바꿈 사용

안녕하세요.
파일을 읽어 처리하는 로직을 작업하고 있습니다.
ASP로 파일처리는 첨인데요.
파일을 특정라인부터 특정 라인까지 읽어들일 수는 없나여??
아래 예제는 파일을 읽어서 첨부터 끝까지 출력하는 예제입니다.

'----------------- 파일을 읽어 라인별로 출력 ------------------'

Set objFSO = CreateObject("Scripting.FileSystemObject") 
Set objFile= objFSO.OpenTextFile("D:/www/tmp/demo.csv") 

strTemp = objFile.Readall '문서 전체를 읽어옴 

objFile.Close() 
Set objFile = Nothing 
Set objFSO = Nothing 

strTemp = replace(strTemp, chr(13), "/") 
strTemp = split(strTemp, "/", -1) 

for i=0 To UBound(strTemp) '//라인
	   subtemp = split(strTemp(i), ",",-1)
	   for j=0 to UBound(subtemp) '// 컬럼
	   	   response.write "(" & i & ") " & subtemp(j) & " | "
	   Next
	   response.write "<br />"
next

'----------------- 파일을 읽어 라인별로 출력 ------------------'

  supercore
  2019-02-20(15:59)
캐릭 이미지
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile= objFSO.OpenTextFile("D:/www/tmp/demo.csv")

startLineIdx = 1 : endLineIdx = 10 '시작, 종료

lineIdx = 0
Do While objFile.AtEndOfSteam <> True
strTemp = objFile.ReadLine
If lineIdx >= startLineIdx Or lineIdx <= endLineIdx Then
arrTemp = Split(strTemp, "/")
'ToDo

End If
lineIdx = lineIdx + 1
Loop


objFile.Close()
Set objFile = Nothing
Set objFSO = Nothing

  jambaman
  2019-02-20(16:32)
캐릭 이미지
답변 정말 감사합니다.
올려주신 소스로 테스트 결과 이런 에러가 발생하네요.
개체가 이 속성 또는 메서드를 지원하지 않습니다.: 'AtEndOfSteam'

  jambaman
  2019-02-20(21:11)
캐릭 이미지
do while not objFile.AtEndOfStream 이렇게 바꾸니 정상작동하네요.
감사합니다.



제목 작성자 날짜 조회
[ASP] FSO 파일을 특정 라인부터 특정라인까지 읽어올수 있나여? (3) jambaman 2019-02-20 338

 
 
.NET과 Java 동영상 기반의 교육사이트

로딩 중입니다...

서버 프레임워크 지원 : NeoDEEX
based on ASP.NET 3.5
Creative Commons License
{5}
{2} 읽음   :{3} ({4})