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
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
모든 데이터는 링크로 관리가 된다.!!
Share your link !! :: Linkbook Service
댓글
댓글 쓰기