boxcar的个人博客分享 http://blog.sciencenet.cn/u/boxcar 学了物理而没有搞物理 却自觉不自觉地用物理

博文

开始使用新手机。。。(附程序)

已有 5675 次阅读 2012-5-22 07:41 |个人分类:生活感悟|系统分类:人物纪事| 手机, 程序, 智能手机

    大约1个月之前,拿到了去年参加科协组织的《第二届全国科学博客大赛》的奖品——一部索爱智能手机。新的智能手机的功能多多,虽然在我手里多半是个“只能手机”的应用,但它能拍出来的高清晰的照片、能Wifi上网等等功能还是很让我冲动。
    本来我老早就想用的,可是中间却遇到了一个不大不小的麻烦。当我把原来手机上的电话号码本通过电脑导入新手机,发现名字全部变成了菱形块。咋回事儿呢?胡乱编了个名片信息抹进新手机,然后读入电脑看了看,发现是酱紫的
BEGIN:VCARD
VERSION:2.1
N;CHARSET=UTF-8;ENCODING=QUOTED-PRINTABLE:=E9=98=BF=E9=87=8C=E5=B7=B4=E5=B7=B4;=E9=A2=9D;;;
FN;CHARSET=UTF-8;ENCODING=QUOTED-PRINTABLE:=E9=98=BF=E9=87=8C=E5=B7=B4=E5=B7=B4=E9=A2=9D
TEL;CELL:16845869
EMAIL;HOME:lh@bbb.com
再看原来手机的名片文件格式:
BEGIN:VCARD
VERSION:2.1
N:要善发发发;
TEL;CELL:138888888888
END:VCARD
     这才明白,原来是编码不同所致。赶紧上网拜读了一下UTF-8编码,恶补一下,学了点儿新知识,但咋解决自己手机的问题还是不得要领。曾经想找个字库去一一搞定,但总还是觉得太麻烦太累。昨天上午,带着这个问题继续嗖嗖地拜读,终于有幸找到了一个VB编的小程序,里面就有如何读取汉字的国标码和UTF8编码,感谢作者!!!赶紧抄下来学习下。。。
    今天早上,坐在电脑前改编这段程序,写了一小段新代码,终于在眨眼之时就完成了手机名片文件的编码格式的转化。重新存入新手机、导入电话本,这回就没乱码鸟。。。
    
 
 
以下是VB6程序:
 
Private Sub convert1(filenm, name$, familyname$, Tel_num, E_mail_address)
Open filenm For Output As #1
    Print #1, "BEGIN: VCARD"
    Print #1, "VERSION:2.1"
    Print #1, "N;CHARSET=UTF-8;ENCODING=QUOTED-PRINTABLE:"; UTF8Encode_eq(name$) & ";;;"                  
    Print #1, "FN;CHARSET=UTF-8;ENCODING=QUOTED-PRINTABLE:"; UTF8Encode_eq(familyname$)             
    Print #1, Tel_num                                                                
    Print #1, E_mail_address;                                                        
    Print #1, "End: VCARD"
Close #1
End Sub
Function UTF8Encode_eq(szInput)
        Dim wch, uch, szRet
        Dim x
        Dim nAsc, nAsc2, nAsc3
        If szInput = "" Then
            UTF8Encode_eq = szInput
            Exit Function
        End If
        For x = 1 To Len(szInput)
            wch = Mid(szInput, x, 1)
            nAsc = AscW(wch)
            If nAsc < 0 Then nAsc = nAsc + 65536
            If (nAsc And &HFF80) = 0 Then
                szRet = szRet & wch
            Else
                If (nAsc And &HF000) = 0 Then
                    uch = "=" & Hex(((nAsc 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)
                    szRet = szRet & uch
                Else
                    uch = "=" & Hex((nAsc 2 ^ 12) Or &HE0) & "=" & _
                    Hex((nAsc 2 ^ 6) And &H3F Or &H80) & "=" & _
                    Hex(nAsc And &H3F Or &H80)
                    szRet = szRet & uch
                End If
            End If
        Next
        UTF8Encode_eq = szRet
    End Function
    Function GBKEncodeURI(szInput)
        Dim i As Long
        Dim x() As Byte
        Dim szRet As String
        szRet = ""
        x = StrConv(szInput, vbFromUnicode)
        For i = LBound(x) To UBound(x)
            szRet = szRet & "%" & Hex(x(i))
        Next
        GBKEncodeURI = szRet
    End Function

Private Sub Command2_Click()
    Text2 = UTF8Encode_eq(Text1)
    Text3 = GBKEncodeURI(Text1)
End Sub
Private Sub Command3_Click()
    path_utf8 = "c:UTF_8_phone_book"
    filenm_old = File1.Path & "" & Text4
    Open filenm_old For Input As #2
        Line Input #2, begin_card$          'BEGIN:     VCARD
        Line Input #2, ver_num$             'VERSION:2.1
        Line Input #2, name_old$                'N:
        Line Input #2, Tel_num$             'TEL;CELL:
        Line Input #2, End_card$            'End: VCARD
       
    Close #2
    l1 = Len(name_old$)
    name_1$ = Right$(name_old$, l1 - 2)
    new_filenm = path_utf8 & Text4
    Call convert1(new_filenm, name_1$, name_1$, Tel_num$, E_mail_address)
End Sub
Private Sub Command4_Click()
    For i = 0 To File1.ListCount - 1
        Text4 = File1.List(i)
        Command3.Value = True
    Next i
End Sub
Private Sub Dir1_Change()
    File1.Path = Dir1
End Sub
Private Sub Drive1_Change()
    Dir1.Path = Drive1.Drive
End Sub
Private Sub File1_Click()
    Text4 = File1.FileName
End Sub
Private Sub Form_Load()
    File1.Path = "c:phone book"
End Sub


http://blog.sciencenet.cn/blog-111635-573619.html

上一篇:晕素?有木有?!
下一篇:用手机写博文一——好多钱!!!

31 吴飞鹏 钱磊 李学宽 武夷山 张伟 苏德辰 刘进平 李宇斌 黄秀清 朱新亮 刘洋 曹聪 刘旭霞 戎可 杨秀海 李汝资 刘全慧 周素琴 陈永金 曹墨源 陈小斌 郝前勇 马英 诸葛淑媛 黄富强 王修慧 李毅伟 刘钢 dulizhi95 yxh3161 ycjyf

发表评论 评论 (40 个评论)

数据加载中...
扫一扫,分享此博文

Archiver|手机版|科学网 ( 京ICP备07017567号-12 )

GMT+8, 2020-11-26 21:46

Powered by ScienceNet.cn

Copyright © 2007- 中国科学报社

返回顶部