189 8069 5689

汉字转拼音vb.net 汉字转拼音大写

怎么把中文转为拼音

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

创新互联专注于个旧企业网站建设,响应式网站开发,商城网站建设。个旧网站建设公司,为个旧等地区提供建站服务。全流程定制网站制作,专业设计,全程项目跟踪,创新互联专业和态度为您提供的服务

那你就要学好普通话了,因为实在是太复杂了汉语拼音是由声母、韵母和声调组成的.声调:有四声(阴平(第一声)、阳平(第二声)、上声(第三声)、去声(第四声))声母:二十三个(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、把你要注拼音的汉字、词组或者段落,甚至是一小篇文章输入在WORD文档中;

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

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

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

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

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

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

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

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)。

如何用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)

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如何实现将汉字转换成拼音

360问答

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

lpnwk LV12

2013-07-01

满意答案

husky0114

LV11

2013-07-02

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

VB.NET中怎么实现 汉字转换拼音呢

建立一个表,每个拼音都跟多个汉字对应。可以通过汉字,找出对应的一个拼音,也可以通过拼音,找出一堆汉字。


本文标题:汉字转拼音vb.net 汉字转拼音大写
当前路径:http://cdxtjz.cn/article/dopsddj.html

其他资讯