取文字的声母的问题

来源：百度知道 编辑：UC知道 时间：2024/05/31 01:35:28
我做了一个表单，现在当提交时，我想将其中的一项的文字提取其开头的大写字母，如：“表单”提取“BD”，大家说有办法吗？

asp或VB的话可以用下面的代码。
<%
Set objDictonary = CreateObject("Scripting.Dictionary")
objDictonary.Add "a",-20319
objDictonary.Add "ai",-20317
objDictonary.Add "an",-20304
objDictonary.Add "ang",-20295
objDictonary.Add "ao",-20292
objDictonary.Add "ba",-20283
objDictonary.Add "bai",-20265
objDictonary.Add "ban",-20257
objDictonary.Add "bang",-20242
objDictonary.Add "bao",-20230
objDictonary.Add "bei",-20051
objDictonary.Add "ben",-20036
objDictonary.Add "beng",-20032
objDictonary.Add "bi",-20026
objDictonary.Add "bian",-20002
objDictonary.Add "biao",-19990
objDictonary.Add "bie",-19986
objDictonary.Add "bin",-19982
objDictonary.Add "bing",-19976
objDictonary.Add "bo",-19805<