asp 的中文分词
摘要：0thens=s&instr(a(k),b(i))&","&instr(a(k),b(i))+len(b(i))&","endifnexts...
<%
a="日本是中国的一个省|我们美丽中国的张家界！"
b="中国,我们,张家界,日本,美国,苹果"
b=split(b,",")
a=split(a,"|")
fork=0toubound(a)
s=""
n=""
fori=0toubound(b)
ifinstr(a(k),b(i))>0then
s=s&instr(a(k),b(i))&","&instr(a(k),b(i))+len(b(i))&","
endif
next
s=left(s,len(s)-1)
ifleft(s,len(s)-1)<>len(a(k))thens=s&","&len(a(k))+1
s=sort(split(s,","))
fori=0toubound(s)-1
n=n&mid(a(k),s(i),s(i+1)-s(i))&"|"
next
response.writen&"<br>"
next
functionsort(ary)
ck=true
doUntilck=false
ck=false
Forf=0toUBound(ary)-1
ifclng(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
endif
next
loop
sort=ary
endfunction
%>
运行结果
日本|是|中国|的一个省|
我们|美丽|中国|的|张家界|！|
【asp 的中文分词】相关文章：
★ asp中利用CSW中文分词组件来实现自己网站的内容关键词自动提取
★ asp写入记录
上一篇：
asp下经常用到的代码
下一篇：
修改正确的asp冒泡排序