ASP怎么取得汉字的首字母_框架

'//获取汉字的首字母 ,ANSII编码

function getpychar(char)

dim tmpp:tmpp=65536+asc(char)

if(tmpp>=45217 and tmpp<=45252) then

getpychar= "A"

elseif(tmpp>=45253 and tmpp<=45760) then

getpychar= "B"

elseif(tmpp>=45761 and tmpp<=46317) then

getpychar= "C"

elseif(tmpp>=46318 and tmpp<=46825) then

getpychar= "D"

elseif(tmpp>=46826 and tmpp<=47009) then

getpychar= "E"

elseif(tmpp>=47010 and tmpp<=47296) then

getpychar= "F"

elseif(tmpp>=47297 and tmpp<=47613) then

getpychar= "G"

elseif(tmpp>=47614 and tmpp<=48118) then

getpychar= "H"

elseif(tmpp>=48119 and tmpp<=49061) then

getpychar= "J"

elseif(tmpp>=49062 and tmpp<=49323) then

getpychar= "K"

elseif(tmpp>=49324 and tmpp<=49895) then

getpychar= "L"

elseif(tmpp>=49896 and tmpp<=50370) then

getpychar= "M"

elseif(tmpp>=50371 and tmpp<=50613) then

getpychar= "N"

elseif(tmpp>=50614 and tmpp<=50621) then

getpychar= "O"

elseif(tmpp>=50622 and tmpp<=50905) then

getpychar= "P"

elseif(tmpp>=50906 and tmpp<=51386) then

getpychar= "Q"

elseif(tmpp>=51387 and tmpp<=51445) then

getpychar= "R"

elseif(tmpp>=51446 and tmpp<=52217) then

getpychar= "S"

elseif(tmpp>=52218 and tmpp<=52697) then

getpychar= "T"

elseif(tmpp>=52698 and tmpp<=52979) then

getpychar= "W"

elseif(tmpp>=52980 and tmpp<=53640) then

getpychar= "X"

elseif(tmpp>=53689 and tmpp<=54480) then

getpychar= "Y"

elseif(tmpp>=54481 and tmpp<=62289) then

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

end function

可以利用LEFT函数实现。

假设表格如下，需要提取A列单元格拼音的首字母填写在相应B列单元格中。

步骤：在B1单元格输入公式“=LEFT(A1,1)”,回车，然后向下填充即可。

最终效果：

=LOOKUP(CODE(LEFT(B1,1)),45217+{0,36,544,1101,1609,1793,2080,2560,2902,3845,4107,4679,5154,5397,5405,5689,6170,6229,7001,7481,7763,8472,9264},{"A","B","C","D","E","F","G","H","J","K","L","M","N","O","P","Q","R","S","T","W","X","Y","Z"})

在EXECL中，按ALT+F11，插入---模块复制下列代码：

Function hztopy(hzpy As String) As String

Dim hzstring As String, pystring As String

Dim hzpysum As Integer, hzi As Integer, hzpyhex As Integer

hzstring = Trim(hzpy)

hzpysum = Len(Trim(hzstring))

pystring = ""

For hzi = 1 To hzpysum

hzpyhex = "&H" + Hex(Asc(Mid(hzstring, hzi, 1)))

Select Case hzpyhex

Case &HB0A1 To &HB0C4: pystring = pystring + "A"

Case &HB0C5 To &HB2C0: pystring = pystring + "B"

Case &HB2C1 To &HB4ED: pystring = pystring + "C"

Case &HB4EE To &HB6E9: pystring = pystring + "D"

Case &HB6EA To &HB7A1: pystring = pystring + "E"

Case &HB7A2 To &HB8C0: pystring = pystring + "F"

Case &HB8C1 To &HB9FD: pystring = pystring + "G"

Case &HB9FE To &HBBF6: pystring = pystring + "H"

Case &HBBF7 To &HBFA5: pystring = pystring + "J"

Case &HBFA6 To &HC0AB: pystring = pystring + "K"

Case &HC0AC To &HC2E7: pystring = pystring + "L"

Case &HC2E8 To &HC4C2: pystring = pystring + "M"

Case &HC4C3 To &HC5B5: pystring = pystring + "N"

Case &HC5B6 To &HC5BD: pystring = pystring + "O"

Case &HC5BE To &HC6D9: pystring = pystring + "P"

Case &HC6DA To &HC8BA: pystring = pystring + "Q"

Case &HC8BB To &HC8F5: pystring = pystring + "R"

Case &HC8F6 To &HCBF9: pystring = pystring + "S"

Case &HCBFA To &HCDD9: pystring = pystring + "T"

Case &HEDC5: pystring = pystring + "T"

Case &HCDDA To &HCEF3: pystring = pystring + "W"

Case &HCEF4 To &HD1B8: pystring = pystring + "X"

Case &HD1B9 To &HD4D0: pystring = pystring + "Y"

Case &HD4D1 To &HD7F9: pystring = pystring + "Z"

Case Else

pystring = pystring + Mid(hzstring, hzi, 1)

End Select

hztopy = pystring

End Function

比如在A1输入小燕子耳坠子78 则在其他空白单元格输入 =hztopy(A1) 回车执行即可

1、新建一个html文件，命名为testhtml。

2、在testhtml文件内，在p标签内，使用input标签创建一个字符串输入框。

3、在testhtml文件内，设置input元素的id为myinput，主要用于下面通过该id获得input对象。

4、在testhtml文件内，使用button标签创建一个按钮。

5、在testhtml文件中，给button按钮绑定onclick点击事件，当按钮被点击时，执行getlast（）函数。

6、在js标签中，创建getlast()函数，在函数内，通过getElementById()方法获得input对象。

7、在浏览器打开testhtml文件，点击按钮，查看结果。

1、打开相应的Excel文件,按“Alt+F11”组合键，d出“Visual Basic编辑器”。

2、鼠标点击“Visual Basic编辑器”菜单栏的“插入”选项，选择下拉列表里的“模块”，插入“模块”。

1启动Excel 2003（其它版本请仿照 *** 作），打开相应的工作表。

2执行“工具→宏→Visual Basic编辑器”命令（或者直接按“Alt+F11”组合键），进入Visual Basic编辑状态。

3执行“插入→模块”命令，插入一个新模块。再双击插入的模块，进入模块代码编辑状态。

4将代码输入其中。

5代码输入完成后，关闭Visual Basic编辑窗口，返回Excel编辑状态。

6自定义函数就可以用了。

后面又提的问题，手工做只需选中ZGHT6Ha这一列复制，再另一列选择性粘贴－＞数值，再改就行了。

下面是一个VBA自定义函数，按ALT＋F11，插入模块，在右面窗口中粘贴下面代码。

若B10内容为中国航天6号a，则在某空白格中输入：=hztopy(B10) 即可