页面导航: 首页网络编程JavaScript应用技巧 → 正文内容

asp 的 分词实现代码

发布:dxy 字体:[增加 减小] 类型:转载
<%
a="日本是中国的一个省|我们美丽中国的张家界!"
b="中国,我们,张家界,日本,美国,苹果"
b=split(b,",")
a=split(a,"|")
for k=0 to ubound(a)
s=""
n=""
 for i=0 to ubound(b)
  if instr(a(k),b(i))>0 then
  s=s & instr(a(k),b(i)) & "," &instr(a(k),b(i))+len(b(i)) & ","
  end if
 next
 s=left(s,len(s)-1)
 if 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
  if 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 if
 next
loop
sort=ary
end function
%>

运行结果
日本|是|中国|的一个省|
我们|美丽|中国|的|张家界|!|
百度中搜索更多的关于asp 的 分词实现代码内容,或者用Google搜索相关更多
浏览次数:载入中... 打印本文关闭本文返回首页

文章评论

共有 位脚本之家网友发表了评论我来说两句

同 类 文 章
最 近 更 新
热 点 排 行