首拼码在线生成,js中如何根据汉字生成拼音首字母

温馨提示：这篇文章已超过758天没有更新，请注意相关的内容是否还可用！

1、js中如何根据汉字生成拼音首字母

//参数,中文字符串

//返回值:拼音首字母串数组

function makePy(str){

if(typeof(str) != "string")

throw new Error(-1,"函数makePy需要字符串类型参数!");

var arrResult = new Array(); //保存中间结果的数组

for(var i=0,len=str.length;i<len;i++){

//获得unicode码

var ch = str.charAt(i);

//检查该unicode码是否在处理范围之内,在则返回该码对映汉字的拼音首字母,不在则调用其它函数处理

arrResult.push(checkCh(ch));

}

//处理arrResult,返回所有可能的拼音首字母串数组

return mkRslt(arrResult);

}

function checkCh(ch){

var uni = ch.charCodeAt(0);

//如果不在汉字处理范围之内,返回原字符,也可以调用自己的处理函数

if(uni > 40869 || uni < 19968)

return ch; //dealWithOthers(ch);

//检查是否是多音字,是按多音字处理,不是就直接在strChineseFirstPY字符串中找对应的首字母

return (oMultiDiff[uni]?oMultiDiff[uni]:(strChineseFirstPY.charAt(uni-19968)));

}

function mkRslt(arr){

var arrRslt = [""];

for(var i=0,len=arr.length;i<len;i++){

var str = arr[i];

var strlen = str.length;

if(strlen == 1){

for(var k=0;k<arrRslt.length;k++){

arrRslt[k] += str;

}

}else{

var tmpArr = arrRslt.slice(0);

arrRslt = [];

for(k=0;k<strlen;k++){

//复制一个相同的arrRslt

var tmp = tmpArr.slice(0);

//把当前字符str[k]添加到每个元素末尾

for(var j=0;j<tmp.length;j++){

tmp[j] += str.charAt(k);

}

//把复制并修改后的数组连接到arrRslt上

arrRslt = arrRslt.concat(tmp);

}

return arrRslt;

}

//两端去空格函数

String.prototype.trim = function() { return this.replace(/(^\s*)|(\s*$)/g,""); }

//查看拼音首字母缩写

function query(){

var str = document.getElementById("txtChinese").value.trim();

if(str == "") return;

var arrRslt = makePy(str);

alert(arrRslt);

http://blog.csdn.net/songylwq/article/details/6032310

参考下

这个就要多学多练熟悉拼音了去看看哈利的龙骑士和圣心石吧都是教拼音的

2、Excel 怎么自动生成拼音首字母及序号

1，打开EXCEL表格

2，按ALT+F11，插入--模块，粘贴VB代码，在关闭代码窗口

3，单元格中写入公式

=PINYIN(A1," ",2)

由于代码过长，不充许提交，可以私信

编写一段代码就可以很快实现

3、在EXCEL表格里名称如何自动生成拼音简码?

2、点击链接进去下载，然后用Excel打开。然后删除CDEFGHI列。只留AB两列。

3、然后删除CDEFGHI列。只留AB两列，如图所示。

4、重新建立一张工作表，如下图，A列输入你要转换的汉字，B列为拼音，如图所示。

5、在图中B2单元格写入公式 =VLOOKUP(A2,Sheet2!A:B,2,0) .然后下拉填充所有汉字的拼音就都出来了，完成效果图。

单个汉字的话可以直接用公式，多个汉字的话vba更方便一些。

按住ALT依次按F11,I,M。将下面的代码粘贴到右侧窗口。

==========

Function PY(x)

On Error Resume Next

Application.Volatile

For i = 1 To Len(x)

PY = PY & Application.WorksheetFunction.HLookup(Mid(x, i, 1), [{"吖","八","嚓","咑","鵽","发","猤","铪","夻","咔","垃","呒","旀","噢","妑","七","囕","仨","他","屲","夕","丫","帀";"A","B","C","D","E","F","G","H","J","K","L","M","N","O","P","Q","R","S","T","W","X","Y","Z"}], 2)

End Function

==========

假设要转化的汉字在A列，B1输入公式 =PY(A1)向下填充即可。

呒原来是一贴上去就会变