首页 »Javascript教程 » 中文分词代码:asp 的 分词实现代码 »正文中文分词代码:asp 的 分词实现代码来源: 发布时间:星期六, 2008年12月27日 浏览:40次 评论:0
<%
a="日本是中国个省|我们美丽中国张家界!" b="中国,我们,张家界,日本,美国,苹果" b=split(b,",") a=split(a,"|") for k=0 to ubound(a) s="" n="" for i=0 to ubound(b) instr(a(k),b(i))>0 then s=s & instr(a(k),b(i)) & "," &instr(a(k),b(i))+len(b(i)) & "," end next s=left(s,len(s)-1) left(s,len(s)-1)<>len(a(k)) then s=s&","&len(a(k))+1 s=sort(split(s,",")) for i=0 to ubound(s)-1 n=n&mid(a(k),s(i),s(i+1)-s(i))& "|" next response.write n & "<br>" next function sort(ary) ck=true do Until ck = false ck=false For f = 0 to UBound(ary) -1 clng(ary(f))>clng(ary(f+1)) then v1=clng(ary(f)) v2=clng(ary(f+1)) ary(f)=v2 ary(f+1)=v1 ck=true end next loop sort=ary end function %> 运行结果 日本|是|中国|个省| 我们|美丽|中国||张家界|!| 0
相关文章读者评论发表评论 |
|