Asp汉字转拼音函数

2008-09-12 10:13:36 364 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

芯片设计-信号完整性 SI 解析：Unit Interval 与比特周期的关系及其在高速信号中的应用本文深入解析了芯片设计中信号完整性（SI）的核心概念Unit Interval（UI）与比特周期的关系及其在高速信号中的应用。通过实际案例和计算公式，详细阐述了UI在不同数据速率下的变化、在眼图分析中的关键作用，以及如何应对高速信号设计中的抖动和码间干扰等挑战。文章还提供了PCB布线和芯片设计中的UI优化技巧，帮助工程师提升高速信号设计的实战能力。阅读详情

我在做一个音乐网站，在后台添加歌手时需要这样：

自动判断输入的歌手的拼音的第一个字母，然后记入数据库，现在有一个函数，但是认汉字好象认不全，

比如把“坂”的第一个拼音转成了“Z”
但是应该是“B”

如果有函数的，帮忙测试一下，再贴，谢谢

...全文

微信小程序scroll-view，点击menu，滚动到锚点；滚动到锚点，激活menu。首先看看效果图1、首先是点击菜单，滚动列表，这个实现比较简单。直接使用scroll-view 的 scroll-into-view属性，小程序文档。&lt;view class='container'&gt; &lt;!-- 菜单 --&gt; &lt;view class='menu'&gt; &lt;ul&gt; &lt;!-- scrollList 修改cate --&g... 阅读详情

zc_0101

ASP 28,401 成员 356,940 内容

+ 关注 + 加入社区

切换为时间正序

hfdsoft 2008-09-17

打赏
举报

呃，高位和低位ASCII，这个貌似网上不会没有吧。。。

wtg321 2008-09-16

打赏
举报

[Quote=引用 12 楼 zc_0101 的回复:]
我有两个地方不是很明白，一是56636这个数字是干什么的？
二是汉字中会有多少字是不符合规律的呢？
[/Quote]
汉字是由两个码组马。一个码的范围为0-256，两个就是256*256=65536
有多少个？我猜是65536-（55289-45217）这个数值吧。
你可以用代码自行测试一下。
：）

jiamingwudi 2008-09-16

打赏
举报

路过学习

zc_0101 2008-09-15

打赏
举报

反正楼上就是比较NB了，惹不起还躲不起么。。。

zc_0101 2008-09-13

打赏
举报

[Quote=引用 7 楼 wtg321 的回复:]
VB code
大师一看就是简单问题直接回一句网上代码多什么之类的，要是找的到的话就不到CSDN里问了。回了不如不回。
function py(char)
zm=65536+asc(char)
。。。。。。。
if(zm=56288 then py= "B"

[/Quote]

我有两个地方不是很明白，一是56636这个数字是干什么的？
二是汉字中会有多少字是不符合规律的呢？

zc_0101 2008-09-13

打赏
举报

[Quote=引用 9 楼 lam999 的回复:]
在网上找的SQL语句,如果数据库用SQL Server等的话可以试下这个
给数据库建自定义函数
MS SQL 查询分析器测试 select dbo.f_getpy('坂') as py
py为列名(此为别名,可改),列的值就是返回拼音首字母B,此函数也可以返回多个汉字的首字母

SQL code
CREATE FUNCTION f_GetPY(@str nvarchar(4000))
RETURNS nvarchar(4000)
AS
BEGIN
DECLARE @py TABLE(
ch char(1),
hz1 nchar(1) COLLATE Chi…
[/Quote]

您的方法是借助于数据库，不过我正好用的是sqlserver，也看一下，谢谢啊

zc_0101 2008-09-13

打赏
举报

一把编程的菜刀 2008-09-13

打赏
举报

[Quote=引用 7 楼 wtg321 的回复:]
VB code
'我来回一下。不懂咱可以学。可以问。不要气馁。不过你这个提问倒是修正了我以前没注意的一个问题。
'有些汉字是有规律的，有些是没有规律的。无规律的就作为个案单写代码了。比较笨，不过可以用。
'有些大师一看就是简单问题直接回一句网上代码多什么之类的，要是找的到的话就不到CSDN里问了。回了不如不回。
<%
function py(char)
zm=65536+asc(char)
if(zm>=45217 and zm<=45252) then py= "A"
if(zm>=45…
[/Quote]
找不到你就撞墙好了

直接在GOOGLE里打他这个标题就可以搜索到一大片

还说找不到，你就真的可以去撞墙了

如果网上比较少，或者没有，别人也不会就随便说一句网上有很多

zc_0101 2008-09-13

打赏
举报

楼上提供的这个太普及了，在网上一搜铺天盖地的都是这个。。。

php_wsd 2008-09-13

打赏
举报

http://www.aspprogram.cn/detail.asp?id=314
这里有一个

zc_0101 2008-09-12

打赏
举报

问题是，这个字库估计也不是很全的那种，怎么样才能有一个比较全的字库呢？

zc_0101 2008-09-12

打赏
举报

将以下文件包含在要使用的页面中：





' 声明全局变量

public datastr



'获取汉字首字母函数

Function GetPY(str)

    

    ' 1、数据文件名

    DataFile    = "hzpy.dat"

    

    ' 2、创建FSO(对象)的字符串

    FSOstr        = "Scripting.FileSystemObject"

    

    '##### ★ 代 码 开 始 ★ #####

    

    ' 忽略所有错误,默认打开

    on error resume next

    

    ' 得到本文件的名字

    mename=Request.ServerVariables("SCRIPT_NAME")

    

    ' 数据文件的绝对路径

    thedatafile=server.MapPath(datafile)



    

    '获取输入字符的首字母

    hanzi=str

    

    '判断是否是汉字

    if abs(asc(hanzi))>127 Then  '是汉字

        ' 创建FSO对象,读取数据文件

            Set FSO = CreateObject(FSOstr)

            set thefile=fso.OpenTextFile(thedatafile)

            datastr=thefile.readall

            thefile.close

            set thefile=nothing

            set fso=nothing

            

            for i=1 to len(hanzi)

                pinyin=pinyin & topy(mid(hanzi,i,1))

            next

            pinyin=replace(pinyin,"  "," ")

            pinyin=trim(replace(pinyin,vbcrlf & " ",vbcrlf))

            pinyin=Ucase(left(pinyin,1))

    Else '不是汉字

        pinyin=Mid(hanzi,1,1)

    end If

    '获取结束

    GetPY=pinyin  '返回

End Function



'****************** 自定义函数 ********************



'检查组件是否被支持的自定义函数

Function topy(strhz)

    on error resume next

    if asc(strhz)>0 and asc(strhz)<127 then

        topy=strhz

        exit function

    end if

    topy=strhz

    thepy=split(datastr,strhz)

    if ubound(split)<>0 then topy=" "  & trim(left(thepy(1),instr(thepy(1),vbcrlf)-1)) & " "

End function

调用方式举例：

[code=VBScript]
Rem 调用方式
response.Write GetPY("asdfsdf")&GetPY("中国")
[code]

将下面的字库文件放在同目录下，并重命名为 hzpy.dat(可用记事本打开添加字库内容)

点此下载字库文件

新手，有不足之处多包涵和指教！

一把编程的菜刀 2008-09-12

打赏
举报

那只是词库的问题

sy_binbin 2008-09-12

打赏
举报

贴出来分享一下阿！

网上的代码有些是认不全汉字的，比如一些比较偏的字根本就找不到拼音

zc_0101 2008-09-12

打赏
举报

改好了，哼！

一把编程的菜刀 2008-09-12

打赏
举报

自己网上搜索自己测试，网上一大把的例子，什么样的都有

还真是想投机取巧

现成的函数自己不测试修改，还让人修改好了再帖，有意思，别又来一句什么不懂。

lam999 2008-09-12

打赏
举报

在网上找的SQL语句,如果数据库用SQL Server等的话可以试下这个
给数据库建自定义函数
MS SQL 查询分析器测试 select dbo.f_getpy('坂') as py
py为列名(此为别名,可改),列的值就是返回拼音首字母B,此函数也可以返回多个汉字的首字母



CREATE FUNCTION f_GetPY(@str nvarchar(4000))

RETURNS nvarchar(4000)

AS

BEGIN

    DECLARE @py TABLE(

        ch char(1),

        hz1 nchar(1) COLLATE Chinese_PRC_CS_AS_KS_WS,

        hz2 nchar(1) COLLATE Chinese_PRC_CS_AS_KS_WS)

    INSERT @py SELECT 'A',N'吖',N'鏊'

    UNION  ALL SELECT 'B',N'八',N'簿'

    UNION  ALL SELECT 'C',N'嚓',N'错'

    UNION  ALL SELECT 'D',N'哒',N'跺'

    UNION  ALL SELECT 'E',N'屙',N'贰'

    UNION  ALL SELECT 'F',N'发',N'馥'

    UNION  ALL SELECT 'G',N'旮',N'过'

    UNION  ALL SELECT 'H',N'铪',N'蠖'

    UNION  ALL SELECT 'J',N'丌',N'竣'

    UNION  ALL SELECT 'K',N'咔',N'廓'

    UNION  ALL SELECT 'L',N'垃',N'雒'

    UNION  ALL SELECT 'M',N'妈',N'穆'

    UNION  ALL SELECT 'N',N'拿',N'糯'

    UNION  ALL SELECT 'O',N'噢',N'沤'

    UNION  ALL SELECT 'P',N'趴',N'曝'

    UNION  ALL SELECT 'Q',N'七',N'群'

    UNION  ALL SELECT 'R',N'蚺',N'箬'

    UNION  ALL SELECT 'S',N'仨',N'锁'

    UNION  ALL SELECT 'T',N'他',N'箨'

    UNION  ALL SELECT 'W',N'哇',N'鋈'

    UNION  ALL SELECT 'X',N'夕',N'蕈'

    UNION  ALL SELECT 'Y',N'丫',N'蕴'

    UNION  ALL SELECT 'Z',N'匝',N'做'

    DECLARE @i int

    SET @i=PATINDEX('%[吖-做]%' COLLATE Chinese_PRC_CS_AS_KS_WS,@str)

    WHILE @i>0

        SELECT @str=REPLACE(@str,SUBSTRING(@str,@i,1),ch)

            ,@i=PATINDEX('%[吖-做]%' COLLATE Chinese_PRC_CS_AS_KS_WS,@str)

        FROM @py

        WHERE SUBSTRING(@str,@i,1) BETWEEN hz1 AND hz2

    RETURN(@str)

END

wtg321 2008-09-12

打赏
举报

少了一句条件语句：重补一下。



<%

function py(char) 

zm=65536+asc(char) 

if(zm>=45217 and zm<=45252) then py= "A" 

if(zm>=45253 and zm<=45760) then py= "B" 

if(zm>=47761 and zm<=46317) then py= "C" 

if(zm>=46318 and zm<=46825) then py= "D" 

if(zm>=46826 and zm<=47009) then py= "E" 

if(zm>=47010 and zm<=47296) then py= "F" 

if(zm>=47297 and zm<=47613) then py= "G" 

if(zm>=47614 and zm<=48118) then py= "H" 

if(zm>=48119 and zm<=49061) then py= "J" 

if(zm>=49062 and zm<=49323) then py= "K" 

if(zm>=49324 and zm<=49895) then py= "L" 

if(zm>=49896 and zm<=50370) then py= "M" 

if(zm>=50371 and zm<=50613) then py= "N" 

if(zm>=50614 and zm<=50621) then py= "O" 

if(zm>=50622 and zm<=50905) then py= "P" 

if(zm>=50906 and zm<=51386) then py= "Q" 

if(zm>=51387 and zm<=51445) then py= "R" 

if(zm>=51446 and zm<=52217) then py= "S" 

if(zm>=52218 and zm<=52697) then py= "T" 

if(zm>=52698 and zm<=52979) then py= "W" 

if(zm>=52980 and zm<=53640) then py= "X" 

if(zm>=53689 and zm<=54480) then py= "Y" 

if(zm>=54481 and zm<=55289) then py= "Z" 

if(zm=56288  then py= "B" 

end function 

response.write py("坂")

%>

wtg321 2008-09-12

打赏
举报



 '我来回一下。不懂咱可以学。可以问。不要气馁。不过你这个提问倒是修正了我以前没注意的一个问题。

'有些汉字是有规律的，有些是没有规律的。无规律的就作为个案单写代码了。比较笨，不过可以用。

'有些大师一看就是简单问题直接回一句网上代码多什么之类的，要是找的到的话就不到CSDN里问了。回了不如不回。

<%

function py(char) 

zm=65536+asc(char) 

if(zm>=45217 and zm<=45252) then py= "A" 

if(zm>=45253 and zm<=45760) then py= "B" 

if(zm>=47761 and zm<=46317) then py= "C" 

if(zm>=46318 and zm<=46825) then py= "D" 

if(zm>=46826 and zm<=47009) then py= "E" 

if(zm>=47010 and zm<=47296) then py= "F" 

if(zm>=47297 and zm<=47613) then py= "G" 

if(zm>=47614 and zm<=48118) then py= "H" 

if(zm>=48119 and zm<=49061) then py= "J" 

if(zm>=49062 and zm<=49323) then py= "K" 

if(zm>=49324 and zm<=49895) then py= "L" 

if(zm>=49896 and zm<=50370) then py= "M" 

if(zm>=50371 and zm<=50613) then py= "N" 

if(zm>=50614 and zm<=50621) then py= "O" 

if(zm>=50622 and zm<=50905) then py= "P" 

if(zm>=50906 and zm<=51386) then py= "Q" 

if(zm>=51387 and zm<=51445) then py= "R" 

if(zm>=51446 and zm<=52217) then py= "S" 

if(zm>=52218 and zm<=52697) then py= "T" 

if(zm>=52698 and zm<=52979) then py= "W" 

if(zm>=52980 and zm<=53640) then py= "X" 

if(zm>=53689 and zm<=54480) then py= "Y" 

if(zm>=54481 and zm<=55289) then py= "Z" 

end function 

response.write py("坂")

'下面一行为查出对应的汉字所对应的数字码的。可以放到上面的条件语句里。

'response.write 65536+asc("坂")

以下为测试代码用的，可以看出没有什么规律

'for i=56288 to 56388 

'response.write i&"-"&chr(i)

'next

%>

－－－－－－－－－－－－－－－－－－
编代码也要开心啊。。。。。。。。。。：）

Asp汉字转拼音函数

相关推荐