vb 漢字轉(zhuǎn)拼音

漢字轉(zhuǎn)拼音縮寫的函數(shù)(VB)，轉(zhuǎn)帶音調(diào)的可能有點。。。

十載的湘陰網(wǎng)站建設(shè)經(jīng)驗，針對設(shè)計、前端、開發(fā)、售后、文案、推廣等六對一服務(wù)，響應(yīng)快，48小時及時工作處理。成都全網(wǎng)營銷的優(yōu)勢是能夠根據(jù)用戶設(shè)備顯示端的尺寸不同，自動調(diào)整湘陰建站的顯示方式，使網(wǎng)站能夠適用不同顯示終端，在瀏覽器中調(diào)整網(wǎng)站的寬度，無論在任何一種瀏覽器上瀏覽網(wǎng)站，都能展現(xiàn)優(yōu)雅布局與設(shè)計，從而大程度地提升瀏覽體驗。創(chuàng)新互聯(lián)從事“湘陰網(wǎng)站設(shè)計”,“湘陰網(wǎng)站推廣”以來，每個客戶項目都認(rèn)真落實執(zhí)行。

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如何實現(xiàn)將漢字轉(zhuǎn)換成拼音

360問答

vb6.0怎樣實現(xiàn)漢字的拼音如text1輸入“拼音”就msgbox(pinyin)

lpnwk LV12

2013-07-01

滿意答案

husky0114

LV11

2013-07-02

我自己做了一個ocx'控件，可以輸入一大段中文后可輸出它的拼音，但前提是電腦可以聯(lián)網(wǎng) 調(diào)用方式 Private Sub Command1_Click() py1.輸入字符 = "你想要的文字" MsgBox py1.輸出字符 End Sub 控件下載地址我發(fā)給你，注意到百度信息里查收

VB.NET中怎么實現(xiàn) 漢字轉(zhuǎn)換拼音呢

建立一個表，每個拼音都跟多個漢字對應(yīng)。可以通過漢字，找出對應(yīng)的一個拼音，也可以通過拼音，找出一堆漢字。

vb.net 2008 如何將簡體中文跟繁體中文互轉(zhuǎn)呢？

原來還有這么個功能，那有沒有轉(zhuǎn)換為拼音的方法？

我比你運氣好，兩個都有效：

Public?Class?Form1

Private?Declare?Function?LCMapString?Lib?"kernel32"?Alias?"LCMapStringA"?(ByVal?Locale?As?Integer,?ByVal?dwMapFlags?As?Integer,?ByVal?lpSrcStr?As?String,?ByVal?cchSrc?As?Integer,?ByVal?lpDestStr?As?String,?ByVal?cchDest?As?Integer)?As?Integer

Private?Sub?Button1_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Button1.Click

Dim?cString?As?String?=?"中華人民共和國"

cString?=?(StrConv(cString,?VbStrConv.TraditionalChinese))

MsgBox(cString)

cString?=?(StrConv(cString,?VbStrConv.SimplifiedChinese))

MsgBox(cString)

Dim?rString?As?String?=?Space(14)

LCMapString(H804,?H4000000,?cString,?14,?rString,?14)

MsgBox(rString)

cString?=?rString

LCMapString(H804,?H2000000,?cString,?14,?rString,?14)

MsgBox(rString)

End?Sub

End?Class

StrConv參數(shù)不對，api 函數(shù)Long型要改為Integer類型。

在vb中怎樣實現(xiàn)漢字和拼音的轉(zhuǎn)換

只能用數(shù)據(jù)庫的形式，如果你對GB2312編碼有研究的話，你會知道，它的碼表是按換漢語拼音來排的，這樣你做數(shù)據(jù)庫的時候可以參考GB2312的標(biāo)準(zhǔn)，可以把數(shù)據(jù)庫設(shè)計得稍微簡單那么一點點。

如何用vb.net將漢字轉(zhuǎ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);

int tmp=i1*256+i2;

string getpychar="*";//找不到拼音碼的用*補位

if(tmp=45217tmp=45252){getpychar= "A";}

else if(tmp=45253tmp=45760){getpychar= "B";}

else if(tmp=47761tmp=46317){getpychar= "C";}

else if(tmp=46318tmp=46825){getpychar= "D";}

else if(tmp=46826tmp=47009){getpychar= "E";}

else if(tmp=47010tmp=47296){getpychar= "F";}

else if(tmp=47297tmp=47613){getpychar= "G";}

else if(tmp=47614tmp=48118){getpychar= "H";}

else if(tmp=48119tmp=49061){getpychar= "J";}

else if(tmp=49062tmp=49323){getpychar= "K";}

else if(tmp=49324tmp=49895){getpychar= "L";}

else if(tmp=49896tmp=50370){getpychar= "M";}

else if(tmp=50371tmp=50613){getpychar= "N";}

else if(tmp=50614tmp=50621){getpychar= "O";}

else if(tmp=50622tmp=50905){getpychar= "P";}

else if(tmp=50906tmp=51386){getpychar= "Q";}

else if(tmp=51387tmp=51445){getpychar= "R";}

else if(tmp=51446tmp=52217){getpychar= "S";}

else if(tmp=52218tmp=52697){getpychar= "T";}

else if(tmp=52698tmp=52979){getpychar= "W";}

else if(tmp=52980tmp=53640){getpychar= "X";}

else if(tmp=53689tmp=54480){getpychar= "Y";}

else if(tmp=54481tmp=55289){getpychar= "Z";}

return getpychar;

}

else

{

return hz;

}

}

public string transpy(string strhz) //把漢字字符串轉(zhuǎn)換成拼音碼

{

string strtemp="";

int strlen=strhz.Length;

for (int i=0;i=strlen-1;i++)

{

strtemp+=hz2py(strhz.Substring(i,1));

}

return strtemp;

}

create table tabpy(id int identity,b_begin varbinary(2),b_end varbinary(2),word varchar(2))

insert tabpy select 0xB0A1, 0xB0C4,'A'

union all select 0xB0C5, 0xB2C0,'B'

union all select 0xB2C1, 0xB4ED,'C'

union all select 0xB4EE, 0xB6E9,'D'

union all select 0xB6EA, 0xB7A1,'E'

union all select 0xB7A2, 0xB8C0,'F'

union all select 0xB8C1, 0xB9FD,'G'

union all select 0xB9FE, 0xBBF6,'H'

union all select 0xBBF7, 0xBFA5,'J'

union all select 0xBFA6, 0xC0AB,'K'

union all select 0xC0AC, 0xC2E7,'L'

union all select 0xC2E8, 0xC4C2,'M'

union all select 0xC4C3, 0xC5B5,'N'

union all select 0xC5B6, 0xC5BD,'O'

union all select 0xC5BE, 0xC6D9,'P'

union all select 0xC6DA, 0xC8BA,'Q'

union all select 0xC8BB, 0xC8F5,'R'

union all select 0xC8F6, 0xCBF9,'S'

union all select 0xCBFA, 0xCDD9,'T'

union all select 0xCDDA, 0xCEF3,'W'

union all select 0xCEF4, 0xD1B8,'X'

union all select 0xD1B9, 0xD4D0,'Y'

union all select 0xD4D1, 0xD7F9,'Z'

函數(shù)：

create function getfirstpy(@a varchar(200))

returns varchar(100)

as

begin

declare @i int,@j int,@result varchar(100)

set @result=''

set @i=len(@a)

set @j=1

while @j=@i

begin

select @result=@result+word from tabpy where cast(substring(@a,@j,1) as varbinary(2)) between b_begin and b_end

set @j=@j+1

end

return @result

end

名稱欄目：vb.net漢字轉(zhuǎn)全拼 漢字拼音互轉(zhuǎn)
URL標(biāo)題：http://chinadenli.net/article10/dodhogo.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供品牌網(wǎng)站制作、定制網(wǎng)站、移動網(wǎng)站建設(shè)、云服務(wù)器、關(guān)鍵詞優(yōu)化、微信公眾號

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)