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