建站
咨詢
售后
建站咨詢
新聞中心
vb 漢字轉(zhuǎn)拼音
漢字轉(zhuǎn)拼音縮寫(xiě)的函數(shù)(VB)，轉(zhuǎn)帶音調(diào)的可能有點(diǎn)。。。
網(wǎng)站的建設(shè)創(chuàng)新互聯(lián)專注網(wǎng)站定制,經(jīng)驗(yàn)豐富,不做模板,主營(yíng)網(wǎng)站定制開(kāi)發(fā).小程序定制開(kāi)發(fā),H5頁(yè)面制作!給你煥然一新的設(shè)計(jì)體驗(yàn)!已為混凝土攪拌站等企業(yè)提供專業(yè)服務(wù)。
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
用vb如何實(shí)現(xiàn)將漢字轉(zhuǎn)換成拼音
360問(wèn)答
vb6.0怎樣實(shí)現(xiàn)漢字的拼音如text1輸入“拼音”就msgbox(pinyin)
lpnwk LV12
2013-07-01
滿意答案
husky0114
LV11
2013-07-02
我自己做了一個(gè)ocx'控件，可以輸入一大段中文后可輸出它的拼音，但前提是電腦可以聯(lián)網(wǎng) 調(diào)用方式 Private Sub Command1_Click() py1.輸入字符 = "你想要的文字" MsgBox py1.輸出字符 End Sub 控件下載地址我發(fā)給你，注意到百度信息里查收
請(qǐng)教大家，vb.net 怎樣將漢字轉(zhuǎn)換成拼音簡(jiǎn)嗎
public string hz2py(string hz) //獲得漢字的區(qū)位碼
{
byte[] sarr = System.Text.Encoding.Default.GetBytes(hz);
int len = sarr.Length;
if (len1)
{
byte[] array = new byte[2];
array = System.Text.Encoding.Default.GetBytes(hz);
int i1 = (short)(array[0] - '\0');
int i2 = (short)(array[1] - '\0');
//unicode解碼方式下的漢字碼
// array = System.Text.Encoding.Unicode.GetBytes(hz);
// int i1 = (short)(array[0] - '\0');
// int i2 = (short)(array[1] - '\0');
// int t1 = Convert.ToInt32(i1,16);
// int t2 = Convert.ToInt32(i2,16);
VB中漢字轉(zhuǎn)拼音的代碼
兩個(gè)Textbos(Text1和Text2），一個(gè)CommandButton(Command1)
參考代碼
Private Sub Command1_Click()
With Text2
Select Case Text1.Text
Case "你"
.Text = "ni"
Case "好"
.Text = "hao"
Case "嗎"
.Text = "ma"
Case "今"
.Text = "jin"
'……剩下的自己寫(xiě)吧
'很巨大的工程
End Select
End With
End Sub
如果你能搞到數(shù)據(jù)庫(kù)的話就容易多了，直接用數(shù)據(jù)庫(kù)查詢的方法就行了
VB.NET中怎么實(shí)現(xiàn) 漢字轉(zhuǎn)換拼音呢
建立一個(gè)表，每個(gè)拼音都跟多個(gè)漢字對(duì)應(yīng)。可以通過(guò)漢字，找出對(duì)應(yīng)的一個(gè)拼音，也可以通過(guò)拼音，找出一堆漢字。
網(wǎng)頁(yè)題目：vb.net漢字轉(zhuǎn)拼音 漢字轉(zhuǎn)換拼音,在線漢字轉(zhuǎn)拼音
URL分享：http://www.dlmjj.cn/article/hghdoi.html
