大家好！我是Venox10111, 是新来这儿的老网虫了，hoho，如果觉得这个网名别扭也可以叫南非黑帅啊，嘿嘿，谁叫人家从南非来又和古天乐一样黑，一样帅拉（看见你冒汗了）
Anyway,第一次发帖，太简单的话题不好，难度太大的也不好，我们今天就来一个比较实用又简单的吧。
最近开发了一个短信 Gateway 应用方案，虽然是不用 PDU 那么麻烦，但毕竟要发中文短信的话得用加码的罗（BTW,最后都不需要用这个功能）
编程文档详细的指名要用 UCS2 加码，Ok, UTF8 和 16 大家都不陌生吧，但什么是 UCS2 呢？在这里粗略的解释一下，摘的
UCS有两种格式：UCS-2和UCS-4。顾名思义，UCS-2就是用两个字节编码，UCS-4就是用4个字节（实际上只用了31位，最高位必须为0）编码。下面让我们做一些简单的数学游戏：
UCS-2有2^16=65536个码位，UCS-4有2^31=2147483648个码位。
UCS-4根据最高位为0的最高字节分成2^7=128个group。每个group再根据次高字节分为256个plane。每个plane根据第3个字节分为256行 (rows)，每行包含256个cells。当然同一行的cells只是最后一个字节不同，其余都相同。
group 0的plane 0被称作Basic Multilingual Plane, 即BMP。或者说UCS-4中，高两个字节为0的码位被称作BMP。
将UCS-4的BMP去掉前面的两个零字节就得到了UCS-2。在UCS-2的两个字节前加上两个零字节，就得到了UCS-4的BMP。而目前的UCS-4规范中还没有任何字符被分配在BMP之外。
经过了无数次的尝试，我用以下代码完成了这个加码的 function, 测试通过，童叟无欺哦
Private Function StrtoUCS2(ByVal Content As String) As String
Dim i, count As Integer
Dim Result, t As String
For i = 1 To Content.Length
t = Format(AscW(Mid(Content, i)), "X")
For count = 1 To 4 - t.Length
t = "0" & t
Next
Result += t
Next
Return Result
End Function
发表于 @ 2007年11月14日 19:24:00|评论(loading...)