asp的分词技术
作者:warran 来源:warran的blog 时间:2007-08-25 17:50:00
<%
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
![](/images/zang.png)
![](/images/jiucuo.png)
猜你喜欢
FSO组件之文件操作(上)
2010-05-03 11:01:00
Javascript命名禁区[110407.updated]
2011-04-28 09:48:00
js自定义快捷,IE,FF有良好的支持
2007-08-25 17:34:00
几个ASP字符串处理函数
2008-04-23 12:55:00
Javascript fso操作文件
2008-07-30 12:51:00
SQL Server 2000中生成XML的小技巧
2009-02-13 17:12:00
JavaScript 日期联动选择器
2010-08-01 10:18:00
解密SQL Server数据库系统的编译
2009-03-16 17:33:00
ASP如何获取通过代理的真实IP地址
2007-09-20 13:11:00
个人从事设计行业40句观感
2008-04-07 13:58:00
![](https://img.aspxhome.com/file/UploadPic/20084/7/2008471415284s.jpg)
大家一起来折磨浏览器吧!(好玩的东东)
2010-02-07 12:40:00
MySQL数据库安全解决方案
2009-10-17 21:36:00
Dreamweaver技巧50问
2008-10-16 14:00:00
不要放弃使用CSS中的新技术
2009-05-15 12:49:00
Sql Server2005对现有数据进行分区具体步骤
2008-06-26 13:18:00
SQL Server数据库涉及到的数据仓库概念
2009-01-15 12:58:00
asp压缩access数据库方法代码
2008-08-08 12:22:00
css hack简易的“独享”与“交集”
2008-08-31 20:17:00
[译]图片优化 第五章:AlphaImageLoader
2010-08-29 18:39:00
![](https://img.aspxhome.com/file/UploadPic/20108/29/png-transparency-64s.png)
用ASP打造一个小型的网页BBS系统
2008-10-10 16:36:00