中文转拼音vb.net 中文转拼音大写字母

提示：扫一扫查出行
【扫一扫了解最新限行尾号】
复制提示

怎么把中文转为拼音

1.【怎样将汉字转换为汉语拼音】

那中文转拼音vb.net你就要学好普通话了中文转拼音vb.net，因为实在是太复杂了汉语拼音是由声母、韵母和声调组成的.声调中文转拼音vb.net：有四声（阴平（第一声）、阳平（第二声）、上声（第三声）、去声（第四声））声母：二十三个（b p m f d t n l g k h j q x zh ch sh r z c s y(i) w(u)）韵母：a o e ê i u ü ai ei ao ou an en ang eng ong ua uo uai ui(uei) uan un(uen) uang ueng ü üi（üei） üan ün（üen）。

2.汉字如何迅速转换成拼音

1、把中文转拼音vb.net你要注拼音的汉字、词组或者段落，甚至是一小篇文章输入在WORD文档中；

2、选择你要标注上拼音的汉字；

3、点击文档菜单的“格式”，在其下拉菜单中点击“中文版式”，然后选择“拼音指南”；

4、在“拼音指南”的对话框中选择“确定”。

注意，这种方法一次只能为40个汉字字符标注拼音.如果你想给不短的文章标注拼音，就只能一段一段的标注了，否则你就要安装标注拼音的小软件. 补充：在WORD选中拟加拼音的文字，点“格式/中文版式/拼音指南”，选择好对齐方式、字体、字号，预览满意后，点“组合/确定”即可。

3.汉字如何迅速转换成拼音

1、把你要注拼音的汉字、词组或者段落，甚至是一小篇文章输入在WORD文档中； 2、选择你要标注上拼音的汉字； 3、点击文档菜单的“格式”，在其下拉菜单中点击“中文版式”，然后选择“拼音指南”； 4、在“拼音指南”的对话框中选择“确定”。

4.EXCEL中能否直接把中文转换成拼音

网上找的，我自己没测试。

让人加分不厚道，助人为乐快乐之本打开Excel-工具-宏-Viaual Basic编辑器在弹出来的窗口中对着VBAproject点右键-插入-模块下面会出现一个名为"模块1"，点击在右边的空白栏中粘贴以下内容：'''''''''''''''''''''''VBscript代码提供者：小白'联系方法：'E-mail:xiaobai@17560''VBA代码转换者：惟惟'联系方法：Email:wuweiyin@yeah'个人博客：'如有不正确的地方，请提出来或是帮忙完善'谢谢'''''''''''''''''''''''''''''' Function getpychar(char) tmp = 65536 + Asc(char) If (tmp = 45217 And tmp getpychar = "A" ElseIf (tmp = 45253 And tmp getpychar = "B" ElseIf (tmp = 45761 And tmp getpychar = "C" ElseIf (tmp = 46318 And tmp getpychar = "D" ElseIf (tmp = 46826 And tmp getpychar = "E" ElseIf (tmp = 47010 And tmp getpychar = "F" ElseIf (tmp = 47297 And tmp getpychar = "G" ElseIf (tmp = 47614 And tmp getpychar = "H" ElseIf (tmp = 48119 And tmp getpychar = "J" ElseIf (tmp = 49062 And tmp getpychar = "K" ElseIf (tmp = 49324 And tmp getpychar = "L" ElseIf (tmp = 49896 And tmp getpychar = "M" ElseIf (tmp = 50371 And tmp getpychar = "N" ElseIf (tmp = 50614 And tmp getpychar = "O" ElseIf (tmp = 50622 And tmp getpychar = "P" ElseIf (tmp = 50906 And tmp getpychar = "Q" ElseIf (tmp = 51387 And tmp getpychar = "R" ElseIf (tmp = 51446 And tmp getpychar = "S" ElseIf (tmp = 52218 And tmp getpychar = "T" ElseIf (tmp = 52698 And tmp getpychar = "W" ElseIf (tmp = 52980 And tmp getpychar = "X" ElseIf (tmp = 53689 And tmp getpychar = "Y" ElseIf (tmp = 54481 And tmp getpychar = "Z" Else '如果不是中文，则不处理 getpychar = char End If End Function Function getpy(str) For i = 1 To Len(str) getpy = getpy getpychar(Mid(str, i, 1)) Next i End Function********复制到此结束，本行不复制******* 现在转换函数已编写完成！关掉此编缉的窗口。要在Excel中使用，方法如下：A1 A2 中国 =getpy(A1)。

相关问答

Q1: 如何用vb.net将汉字转换成拼音阿

public string hz2py(string hz) //获得汉字的区位码

{

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) //把汉字字符串转换成拼音码

{

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'

函数：

create function getfirstpy(@a varchar(200))

returns varchar(100)

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

Q2: 用vb如何实现将汉字转换成拼音

360问答

vb6.0怎样实现汉字中文转拼音vb.net的拼音如text1输入“拼音”就msgbox(pinyin)

lpnwk LV12

2013-07-01

满意答案

husky0114

LV11

2013-07-02

中文转拼音vb.net我自己做了一个ocx'控件中文转拼音vb.net，可以输入一大段中文后可输出它的拼音中文转拼音vb.net，但前提是电脑可以联网调用方式 Private Sub Command1_Click() py1.输入字符 = "你想要的文字" MsgBox py1.输出字符 End Sub 控件下载地址我发给你，注意到百度信息里查收

Q3: vb.net 2008 如何将简体中文跟繁体中文互转呢？

原来还有这么个功能，那有没有转换为拼音的方法？

我比你运气好，两个都有效：

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)