vb 汉字转拼音
发布网友
发布时间：2022-04-26 15:56
我来回答
共3个回答
热心网友
时间：2022-07-12 08:24
汉字转拼音缩写的函数(VB)，转带音调的可能有点。。。
Public Function getPYChar(char As String) As String
Dim lChar As Long
lChar = 65536 + Asc(char)
If (lChar >= 45217 And lChar <= 45252) Then getPYChar = "A"
If (lChar >= 45253 And lChar <= 45760) Then getPYChar = "B"
If (lChar >= 47761 And lChar <= 46317) Then getPYChar = "C"
If (lChar >= 46318 And lChar <= 46825) Then getPYChar = "D"
If (lChar >= 46826 And lChar <= 47009) Then getPYChar = "E"
If (lChar >= 47010 And lChar <= 47296) Then getPYChar = "F"
If (lChar >= 47297 And lChar <= 47613) Then getPYChar = "G"
If (lChar >= 47614 And lChar <= 48118) Then getPYChar = "H"
If (lChar >= 48119 And lChar <= 49061) Then getPYChar = "J"
If (lChar >= 49062 And lChar <= 49323) Then getPYChar = "K"
If (lChar >= 49324 And lChar <= 49895) Then getPYChar = "L"
If (lChar >= 49896 And lChar <= 50370) Then getPYChar = "M"
If (lChar >= 50371 And lChar <= 50613) Then getPYChar = "N"
If (lChar >= 50614 And lChar <= 50621) Then getPYChar = "O"
If (lChar >= 50622 And lChar <= 50905) Then getPYChar = "P"
If (lChar >= 50906 And lChar <= 51386) Then getPYChar = "Q"
If (lChar >= 51387 And lChar <= 51445) Then getPYChar = "R"
If (lChar >= 51446 And lChar <= 52217) Then getPYChar = "S"
If (lChar >= 52218 And lChar <= 52697) Then getPYChar = "T"
If (lChar >= 52698 And lChar <= 52979) Then getPYChar = "W"
If (lChar >= 52980 And lChar <= 53640) Then getPYChar = "X"
If (lChar >= 53689 And lChar <= 54480) Then getPYChar = "Y"
If (lChar >= 54481 And lChar <= 52289) Then getPYChar = "Z"
End Function
Public Function getPY(str As String) As String
For i = 0 To Len(str) - 1
getPY = getPY & getPYChar(Mid(str, i + 1, 1))
Next
End Function
热心网友
时间：2022-07-12 08:24
带数字的好象不行,直接查出拼音可以,你可以用scripting.dictionary对象,具体你查一下网上的代码
热心网友
时间：2022-07-12 08:25
这个很麻烦的，需要系统的字典支持。
在vb中怎样实现汉字转换为拼音
public string hz2py(string hz) //获得汉字的区位码 { byte[] sarr = System.Text.Encoding.Default.GetBytes(hz);int len = sarr.Length;if (len>1){ byte[] array = new byte[2];array = System.Text.Encoding.Default.GetBytes(hz);int i1 = (short)(array[0] - '\0');int i...
如何把doc文件转换成PDF格式？
"1.当然可以，首先要确定自己有一个pdf文档，而且确定目的是需要将pdf文档转换为word格式，然后我们将现有文档通过迅捷pdf转换器软件打开。2.通过选择PDF转换页面功能其中的PDF文件转WORD项目拖入文件。3.接着在迅捷pdf转换器下方按自己的需要是否更改文件名，然而在保存类型中选择*.doc选项。4.全部设置完成点击开始转换，确定自己设置好路径、更改文件名和保存类型即可。5.转换完成之后的word文档同样可以通过迅捷pdf转换器重新转换成一开始的pdf文档。"1.当然可以，首先要确定自己有一个pdf文档，而且确定目的是需要将pdf文档转换为word格式，然后我们将现有文档通过迅捷pdf转换器软件打开。2.通过选择PDF转换页面功能其中的PDF文件转WORD项目拖入文件。3.接着在迅捷pdf转换器下方按自己的需要是...
在vb中怎样实现汉字和拼音的转换
只能用数据库的形式，如果你对GB2312编码有研究的话，你会知道，它的码表是按换汉语拼音来排的，这样你做数据库的时候可以参考GB2312的标准，可以把数据库设计得稍微简单那么一点点。
VB中个别字汉字转拼音无法显示?如何解决
If Trim("微软拼音输入法") = Replace(Trim(s), Chr(0), "") Then IMEInstalled = True Exit For End If End If Next i If IMEInstalled Then CHINESE = Trim(CHINESE)Dim sChar As String Dim Buffer0() As Byte Dim bBuffer0() As Byte Dim bBuffer() As Byte Dim k...
请高手帮助,VB汉字转拼音代码?
Ctrl+空隔或Ctrl+Shift转换使用。
VB汉字转拼音!!紧急!!
第二个框内写编码即拼音，然后按钮用来用两个文本框内的字符存入一个文件，然后反过来做一个程序，就是写一输入一个字，然后点查询，在第二框内出读出文件的字符编码，我以前写过，非常简单。你写下试试吧，其实就是文件的读取，如果你会数据库的话用数据库就更好了 ...
excel中将汉字转为拼音的VB程序的原理是什么(附程序)
这个程序的原理是汉字的ASC值，大部份是按汉字拼音排序的，所以要列出其中的拼音顺序，就可以转化为拼音。但还是有不少的汉字，在这个序列里不是正常排序的，这就会出错。
VB 在输入汉字时怎样自动出现拼音码
For i = 1 To Len(Text1.Text)Text2.Text = Text2.Text + py(Mid(Text1.Text, i, 1))Next i End Sub Public Function py(mystr As String) As String i = Asc(mystr)Select Case i Case -20319 To -20284: py = "A"Case -20283 To -19776: py = "B"Case -19775 To -...
vb6.0怎样实现汉字的拼音如text1输入“拼音”就msgbox(pinyin)_百 ...
Private Function py(mystr As String) As String '获得汉字的拼音简码 On Error Resume Next If Asc(mystr) < 0 Then If Asc(Left(mystr, 1)) < Asc("啊") Then py = "0"Exit Function End If If Asc(Left(mystr, 1)) >= Asc("啊") And Asc(Left(mystr, 1)) < Asc(...
VB 将文本框中的汉字按拼音排序
首先将汉字转为Ascii码数组，然后对Ascii码数组排序。再将Ascii码数组转换为字符，大功告成了。以下代码经测试完全正确。Dim lASC(j) As Long Private Sub Command1_Click()Dim i As Long, j As Long, k As Long Dim r As Long Dim fs As String fs = Text1.Text j = Len(fs) - 1 R...
EXCEL里面怎么将汉字转换成拼音
'* ● 最初版本,实现了由汉字获取拼音。'*'***Option ExplicitPrivate Type GUID Data1 As Long Data2 As Integer Data3 As Integer Data4(0 To 7) As ByteEnd TypePrivate Type VB_MORRSLT dwSize As Long '4 pwchOutput As Long '4 cchOutput As Integer '2+(2),VBA内存对齐闹得,折腾了好一...
