word.ibas

来自「用iBASIC语言编写的HTTP服务器源代码例子。」· IBAS 代码 · 共 23 行

' Write iBas code here!

function findaword$(src$, des$, des2$)
dim i,ii,src1$
i= instr( src$, des$,1)
i= i+length(des$)
ii= instr( src$, des2$,i)
if ii<=0 then ii= instr(src$, chr$(13), i)

if i>0 then
	src1$=src$
	if ii<=0 then
		findaword$= mid$(src1$, i, -1)
	else
		ii=ii-i
		findaword$= mid$(src1$, i, ii)
	end if
end if
end function

sub writelink(name$,ref$)
{"<a href='"+ ref$+"'>"+name$+"</a>"}
end sub