上一篇
下一篇
推荐一个同义词库，1万5组数据（ACCESS版）
作者:刚子 日期:2010-03-27
最近在学习采集入库以及自动替换同义词，于是从网上收集了一个同义词库，是我从一个xls文件和一个web网页搞出来的，合并成了一个access数据库，共1.5万组词左右。
下面贴出来我自己写的asp替换类，配合我的数据库使用。我写的规则是相互替换，并非常用的A转B。也就是说如果A和B是同义词，发现字符串里有A，那就替换为B，如果字符串为B，那就替换为A。替换规则是先匹配qian字段，再匹配hou字段。
程序代码
点击这里下载数据库
下面贴出来我自己写的asp替换类，配合我的数据库使用。我写的规则是相互替换，并非常用的A转B。也就是说如果A和B是同义词，发现字符串里有A，那就替换为B，如果字符串为B，那就替换为A。替换规则是先匹配qian字段，再匹配hou字段。
程序代码<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("key.mdb")
Function tongyici(word)
Set rs = Server.CreateObject("ADODB.RecordSet")
StrSql="select * From key where instr('"&word&"',qian)>0"
rs.open StrSql,Conn,1,1
if rs.eof and rs.bof then
tongyici=word
else
if word=Replace(word,rs("qian"),rs("hou")) then '先对比发现匹配字段不是qian
tongyici=Replace(word,rs("hou"),rs("qian")) '如果字段不是qian，就把hou替换为qian
else
tongyici=Replace(word,rs("qian"),rs("hou")) '否则就把就把qian替换为hou
end if
end if
rs.close
set rs=nothing
End Function
%>
<%=tongyici("大伙觉得夏天去北京找刚子怎样哦？")%>
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("key.mdb")
Function tongyici(word)
Set rs = Server.CreateObject("ADODB.RecordSet")
StrSql="select * From key where instr('"&word&"',qian)>0"
rs.open StrSql,Conn,1,1
if rs.eof and rs.bof then
tongyici=word
else
if word=Replace(word,rs("qian"),rs("hou")) then '先对比发现匹配字段不是qian
tongyici=Replace(word,rs("hou"),rs("qian")) '如果字段不是qian，就把hou替换为qian
else
tongyici=Replace(word,rs("qian"),rs("hou")) '否则就把就把qian替换为hou
end if
end if
rs.close
set rs=nothing
End Function
%>
<%=tongyici("大伙觉得夏天去北京找刚子怎样哦？")%>
点击这里下载数据库
文章来自: 
引用通告: 
Tags: 评论: 1 | 引用: 0 | 查看次数: -
回复
人人IT网[2010-09-17 10:47 PM | 
]发表评论