如何给黑莓手机联系人加上汉字拼音首字母？
时间:2007-08-10 10:55:00 来源: 作者: 编辑:admin
如何给黑莓手机联系人加上汉字拼音首字母？ PrivateSubCommandButton1_Click()
Form=2To123 '这里的123是我的联系人表包括表头的总行数,替换成你自己的联系人表的总行数就行
zf=Sheet1.Cells(m,4)
hz=Getpy(zf)&zf
Sheet1.Cells(m,4)=hzNext
EndSub
FunctionGetpy(ByValXAsString)AsString
DimiAsInteger
Fori=1ToLen(X)
IfMid(X,i,1)<>""AndAsc(Mid(X,i,1))<0ThenGetpy=Getpy&pinyin(Mid(X,i,1))
Next
Getpy=LCase(Getpy)
EndFunction
Functionpinyin(ByValXAsString)AsString
DimiAsInteger
Consthanzi="啊芭擦搭蛾发噶哈击喀垃妈拿哦啪期然撒塌挖昔压匝座ABCDEFGHJKLMNOPQRSTWXYZZ"
IfX="座"Thenpinyin="Z"
Fori=1To23
IfAsc(X)>=Asc(Mid(hanzi,i,1))AndAsc(X)<Asc(Mid(hanzi,i+1,1))Then
pinyin=Mid(hanzi,24+i,1) 52blackberry.net
ExitFor
EndIf
Next
EndFunction
Form=2To123 '这里的123是我的联系人表包括表头的总行数,替换成你自己的联系人表的总行数就行
zf=Sheet1.Cells(m,4)
hz=Getpy(zf)&zf
Sheet1.Cells(m,4)=hzNext
EndSub
FunctionGetpy(ByValXAsString)AsString
DimiAsInteger
Fori=1ToLen(X)
IfMid(X,i,1)<>""AndAsc(Mid(X,i,1))<0ThenGetpy=Getpy&pinyin(Mid(X,i,1))
Next
Getpy=LCase(Getpy)
EndFunction
Functionpinyin(ByValXAsString)AsString
DimiAsInteger
Consthanzi="啊芭擦搭蛾发噶哈击喀垃妈拿哦啪期然撒塌挖昔压匝座ABCDEFGHJKLMNOPQRSTWXYZZ"
IfX="座"Thenpinyin="Z"
Fori=1To23
IfAsc(X)>=Asc(Mid(hanzi,i,1))AndAsc(X)<Asc(Mid(hanzi,i+1,1))Then
pinyin=Mid(hanzi,24+i,1) 52blackberry.net
ExitFor
EndIf
Next
EndFunction
0
文章评论
共有 0位52BB莓友发表了评论 查看完整内容