하늘높이의 프로그래밍 이야기

<%

'//Writer: SkyLimit
'//Language: ASP

'파일 경로
TextFilePath = "c:\InetPub\test.ini"'//요부분만 수정하세요.

'//파일 시스템 개체 생성
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
 '//파일 존재 검사
 if fso.FileExists(TextFilePath) then

    '//파일 오픈
    Set f = fso.OpenTextFile(TextFilePath, 1,false,0) '(fname,mode 1:forReading,create,format 0:ASCII)
    Do Until f.AtEndOfLine '파일의 4096 라인까지 읽는다.
   buffer= buffer & f.read(4096)
       loop
    f.close
    Set f = Nothing

    '//문자열 비교
    strArray = Split(buffer,vbcr & vblf)
    For i = 0 To UBound(strArray) - 1
     if InStr(strArray(i),"AAA") > 0 Then
    response.write strArray(i)
     End If
    Next
 else
  '//파일 없음
  response.write TextFilePath & "이 지정된 경로에 없습니다."
 end If
 
Set FSO = Nothing
%>

COMMENT :1

티스토리 툴바