[Classic ASP] get line from finding keyword to line feed (찾는 단어부터 줄 끝까지 검색해서 가져오기)

function lwGetStrToLF(rst, fk)
pos = instr(rst, fk)
if pos > 0 then
pos2 = instr(pos + 1, rst, vbLF)
'response.Write("pos2:" & pos2 & "<BR>" & vbCRLF)
if pos2 > 0 then
'response.Write("startpoint:" & pos + len(fk) & "<BR>" & vbCRLF)
'response.Write("wordlength:" & pos2 - pos & "<BR>" & vbCRLF)
fval = mid(rst, pos + len(fk), pos2 - pos - len(fk))
'response.Write("rkkw:" & rkkw & "<BR>" & vbCRLF)
fval = replace(fval, " ", "")
fval = replace(fval, " ", "")
end if
end if
lwGetStrToLF = fval
end function

클라우드/레거시 시스템의 통합 관리 및 자동화

Global Infrastructure Information Platform

http://giip.littleworld.net

모든 데이터는 링크로 관리가 된다.!! 

Share your link !! :: Linkbook Service

http://link.littleworld.net