上述程式碼輸出的內容如下:
他=-23220
是=-21425
游=-19227
錫=-16388
?=63
嗎=-18724
?=63
還=-15911
是=-21425
王=-23299
建=-21544
?=63
啊=-20262
!=33
堃、煊是沒有Big5對應編碼的中文字,所以在Big5編碼的網頁下,會出現?(問號),ASCII的編碼是63,範例中也使用了?(問號),ASCII的編碼當然也是63,所以這裡給判斷輸入在頁面上的文字內容是否沒有Big5對應編碼的中文字,下了個規則:如果原輸入中文單字不是?(問號),但輸出結果的ASCII值等於63,這個中文單字就是沒有Big5編碼對應的其他中文字 ...
範例程式碼如下:
function CheckUnicode(strContent)
dim intErr //偵錯記號,0表示正常,1表示存在Big5以外的中文字
intErr = 0
For i=1 To len(strContent)
If asc(mid(strContent,i,1))=63 And (mid(strContent,i,1)<>"?") Then
intErr = 1
exit for
end If
Next
if intErr = 1 then
'CheckUnicode = "第" & i & "個字【" & mid(strContent,i,1) & "】:是Big5以外的中文字, 請調整!!" & vbCrlf
else
CheckUnicode = ""
end if
end function
沒有留言:
張貼留言