asp 数据库查笔画

来源：百度知道 编辑：UC知道 时间：2024/05/07 13:51:58
有Access数据库已经有笔画记录

a="我是中国人"

要分别计算出各个字的笔画和总共笔画数．

表zi分别有zi,bihua字段
zi bihua
我 7
是 9
中 4
国 8

请各位老师帮帮忙，这功能怎么样实现，如果所有的汉字做成数据库，运行速度是采用数据库快，还是采用笔画函数快？？？
问题补充：已经建立了所有字的笔画数据库，请高手帮忙写个代码

Public Function GetBH( ZIStr )//根据字获得该字的笔画数目

_sql = "select top 1 [笔画数目] from [表] where [字] = '"&ZIStr&"'"

//....处理 得到记录集合 rs

If Not rs.eof Then
GetBH = rs(0)
Else
GetBH = 0
End If

End Function

Public Function GetTotalBH( _BHStr ) //根据字符串获得笔画总数目

GetTotalBH = 0

If _BHStr <> "" Then

For i =1 To Len(_BHStr)
GetTotalBH = GetTotalBH + CInt ( GetBH ( Mid ( _BHStr , i , i ) ) )
Next

End If
End Function

// 使用示例

Dim ThisStr

ThisStr = "这是个获取笔画的例子<BR>来源："&Chr(10)&Chr(13)&"_
" <a href=http://www.sunpair.cn/oblog4/u/xudeng/index.html target=_blank>xudeng的BLOG</a><br>"&Chr(10)&Chr(13)&"_
"