VB里有没有象VFP里的code函数那样取出汉字串的每个汉字的第一个拼音字母函数

大韩 2004-08-08 02:32:16
如上
再问一下,VB与VFP哪个对图形表的操纵好一些
...全文
252 6 打赏 收藏 转发到动态 举报
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
channelv 2004-08-13
  • 打赏
  • 举报
回复
好用!
jtkkjtkk 2004-08-13
  • 打赏
  • 举报
回复
记得哪一期<程序员>杂志有一编介绍利用SQL Server2000排序规则得到汉字首拼音的问题。
去年10月份或之后的。

那位英雄知道,再跟一贴?
xiongchen 2004-08-08
  • 打赏
  • 举报
回复
强~小弟自惭不如啊!
uitoo 2004-08-08
  • 打赏
  • 举报
回复
good

Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
call 楼上.Command1_Click()
End Sub
northwolves 2004-08-08
  • 打赏
  • 举报
回复
/Function pinyin(ByVal x As String) As String
Const hanzi = "啊芭擦搭蛾发噶哈击喀垃妈拿哦啪期然撒塌挖昔压匝座ABCDEFGHJKLMNOPQRSTWXYZZ"
If x = "座" Then pinyin = "Z"
For i = 1 To 23
If Asc(x) >= Asc(Mid(hanzi, i, 1)) And Asc(x) < Asc(Mid(hanzi, i + 1, 1)) Then pinyin = Mid(hanzi, 24 + i, 1)
Next
End Function
Function py(ByVal x As String) As String
For i = 1 To Len(x)
If Mid(x, i, 1) <> " " And Asc(Mid(x, i, 1)) < 0 Then py = py & pinyin(Mid(x, i, 1))
Next
py = UCase(py)
End Function

Private Sub Command1_Click()
MsgBox py("打倒日本帝国主义!踩死科威特裁判")
End Sub
cso 2004-08-08
  • 打赏
  • 举报
回复
没有,自己写

1,216

社区成员

发帖
与我相关
我的任务
社区描述
VB 数据库(包含打印,安装,报表)
社区管理员
  • 数据库(包含打印,安装,报表)社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧