拼音简码的生成程序改进版

最新推荐文章于 2024-09-08 16:04:41 发布

vbmars

最新推荐文章于 2024-09-08 16:04:41 发布

阅读量403

点赞数

分类专栏：拼音 vb .net 文章标签： textbox string class integer function dll

本文链接：https://blog.csdn.net/vbmars/article/details/6895995

版权

本文介绍了一种改进的拼音简码生成程序，通过引用微软的chncharinfo.dll解决了生字识别问题。文章提供了一个VB类库Classchineseconvert的示例，演示如何调用GetPinYin函数，将输入的汉字转换为拼音简码，并可在TextBox中实时显示。

摘要由CSDN通过智能技术生成

前段时间在写药品管理程序，需要生成药品的拼音简码和通过拼音简码搜索药品。我觉得信息管理程序基本上都会用到。就分享给大家，其中的代码一部分是通过网络获得，遗憾的是没有记住分享的大大的名字，这里顺致敬意。
Imports Microsoft.International.Converters.PinYinConverter
Public Class Classchineseconvert
Public Shared Function GetPinYin(ByVal t1 As String) As String
'取得输入行字的拼音码
On Error Resume Next
Dim sOne, sChar, sRet As String, i As Integer
For i = 1 To Len(t1)
sChar = Mid(t1, i, 1)
sOne = ""
If Asc(sChar) > 0 Then
If UCase(sChar) <= "Z" And UCase(sChar) >= "A" Then
sOne = UCase(sChar)
Else
sOne = ""
End If
Else : Dim chinesechar As New ChineseChar(sChar)
sOne = chinesechar.Pinyins(0).Chars(0)
'ElseIf Asc(sChar) >= Asc("啊") And Asc(sChar) < Asc("