个人觉得ACCESS可算目前最好的桌面数据库了,别看ACCESS比不上SQLSERVER和ORACLE等大东东,但是对于一些少量数据的处理,绝对比他们好用。
正好有这样一个需求:将中文转化成HTML的转义字符,以便在一些非中文编码的页面中可以显示,就是将中文的UNICODE编码写成&#十进制编码;的格式,于是写了一个VBSCRIPT函数实现这个功能:
'把中文转化成HTML转义字符的VBSCRIPT函数
Function ConvertChinese(str)
Dim nLen
nLen = Len(str)
Dim i
Dim strResult
strResult = ""
Dim nValue
For i=1 To nLen
nValue = Ascw(Mid(str, i, 1))
If nValue<0 Then
nValue = 65536 + nValue
End If
strResult = strResult & ("&#" & nValue & ";")
Next
ConvertChinese = strResult
End Function
然后,需要转化的数据在ACCESS中,如何就直接在ACCESS中转换呢?
在ACCESS中点击模块,新建一个,粘贴进VBSCRIPT的代码,保存模块。OK,ACCESS中就能够直接使用这个函数了,就这样简单!
新建一个查询,视图中选择SQL视图,输入这样的SQL语句:
SELECT UserName, ConvertChinese(UserName)
FROM User;
执行看看,函数执行的效果看见了吧!