getpy() 汉字转为拼音

矫情吗；* 2024-02-17 22:37 42阅读 0赞

<%  
'取字段数据每个汉字的拼音首字母

Function getpychar(char)  
tmp = 65536 + Asc(char)  
If(tmp>= 45217 And tmp<= 45252) Then  
getpychar = "A"  
ElseIf(tmp>= 45253 And tmp<= 45760) Then  
getpychar = "B"  
ElseIf(tmp>= 47761 And tmp<= 46317) Then  
getpychar = "C"  
ElseIf(tmp>= 46318 And tmp<= 46825) Then  
getpychar = "D"  
ElseIf(tmp>= 46826 And tmp<= 47009) Then  
getpychar = "E"  
ElseIf(tmp>= 47010 And tmp<= 47296) Then  
getpychar = "F"  
ElseIf(tmp>= 47297 And tmp<= 47613) Then  
getpychar = "G"  
ElseIf(tmp>= 47614 And tmp<= 48118) Then  
getpychar = "H"  
ElseIf(tmp>= 48119 And tmp<= 49061) Then  
getpychar = "J"  
ElseIf(tmp>= 49062 And tmp<= 49323) Then  
getpychar = "K"  
ElseIf(tmp>= 49324 And tmp<= 49895) Then  
getpychar = "L"  
ElseIf(tmp>= 49896 And tmp<= 50370) Then  
getpychar = "M"  
ElseIf(tmp>= 50371 And tmp<= 50613) Then  
getpychar = "N"  
ElseIf(tmp>= 50614 And tmp<= 50621) Then  
getpychar = "O"  
ElseIf(tmp>= 50622 And tmp<= 50905) Then  
getpychar = "P"  
ElseIf(tmp>= 50906 And tmp<= 51386) Then  
getpychar = "Q"  
ElseIf(tmp>= 51387 And tmp<= 51445) Then  
getpychar = "R"  
ElseIf(tmp>= 51446 And tmp<= 52217) Then  
getpychar = "S"  
ElseIf(tmp>= 52218 And tmp<= 52697) Then  
getpychar = "T"  
ElseIf(tmp>= 52698 And tmp<= 52979) Then  
getpychar = "W"  
ElseIf(tmp>= 52980 And tmp<= 53640) Then  
getpychar = "X"  
ElseIf(tmp>= 53689 And tmp<= 54480) Then  
getpychar = "Y"  
ElseIf(tmp>= 54481 And tmp<= 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))  
Next  
End Function  
%>  
程序代码  
<%  
'取字段数据每个汉字的拼音首字母

Function getpychar(char)  
tmp = 65536 + Asc(char)  
If(tmp>= 45217 And tmp<= 45252) Then  
getpychar = "A"  
ElseIf(tmp>= 45253 And tmp<= 45760) Then  
getpychar = "B"  
ElseIf(tmp>= 47761 And tmp<= 46317) Then  
getpychar = "C"  
ElseIf(tmp>= 46318 And tmp<= 46825) Then  
getpychar = "D"  
ElseIf(tmp>= 46826 And tmp<= 47009) Then  
getpychar = "E"  
ElseIf(tmp>= 47010 And tmp<= 47296) Then  
getpychar = "F"  
ElseIf(tmp>= 47297 And tmp<= 47613) Then  
getpychar = "G"  
ElseIf(tmp>= 47614 And tmp<= 48118) Then  
getpychar = "H"  
ElseIf(tmp>= 48119 And tmp<= 49061) Then  
getpychar = "J"  
ElseIf(tmp>= 49062 And tmp<= 49323) Then  
getpychar = "K"  
ElseIf(tmp>= 49324 And tmp<= 49895) Then  
getpychar = "L"  
ElseIf(tmp>= 49896 And tmp<= 50370) Then  
getpychar = "M"  
ElseIf(tmp>= 50371 And tmp<= 50613) Then  
getpychar = "N"  
ElseIf(tmp>= 50614 And tmp<= 50621) Then  
getpychar = "O"  
ElseIf(tmp>= 50622 And tmp<= 50905) Then  
getpychar = "P"  
ElseIf(tmp>= 50906 And tmp<= 51386) Then  
getpychar = "Q"  
ElseIf(tmp>= 51387 And tmp<= 51445) Then  
getpychar = "R"  
ElseIf(tmp>= 51446 And tmp<= 52217) Then  
getpychar = "S"  
ElseIf(tmp>= 52218 And tmp<= 52697) Then  
getpychar = "T"  
ElseIf(tmp>= 52698 And tmp<= 52979) Then  
getpychar = "W"  
ElseIf(tmp>= 52980 And tmp<= 53640) Then  
getpychar = "X"  
ElseIf(tmp>= 53689 And tmp<= 54480) Then  
getpychar = "Y"  
ElseIf(tmp>= 54481 And tmp<= 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))  
Next  
End Function  
%>

发表评论取消回复

表情：

评论列表（有 0 条评论，42人围观）

还没有评论，来说两句吧...

相关阅读

相关 getpy() 汉字转为拼音

<% '取字段数据每个汉字的拼音首字母 Function getpychar(char) tmp = 65536 + Asc(char) If(tmp>= 452

矫情吗；*/ 2024年02月17日 22:37/ 0 赞/ 43 阅读

相关汉字转拼音

import android.text.TextUtils; import java.text.Collator; import java.u

客官°小女子只卖身不卖艺/ 2023年10月05日 14:13/ 0 赞/ 76 阅读

相关拼音转汉字、SpEL表达式、汉字转拼音

一、SpEL语法案例 import org.springframework.expression.Expression; import org.springf

分手后的思念是犯贱/ 2022年11月28日 13:33/ 0 赞/ 311 阅读

相关 C#_获取汉字拼音

我们在做系统是经常遇到需要通过汉字提取汉字拼音的情况，我在网上搜集了几种获取方案包含了收首字母和完整拼音的获取，供大家参考！在此向原作者表示感谢！如果权利侵

不念不忘少年蓝@/ 2022年07月13日 12:07/ 0 赞/ 381 阅读

相关汉字转拼音

汉字转拼音首先需要js工具： jquery.min.js jQuery.Hz2Py-min.js 这种转换方法只适用于input输入框，具体应用为： <input id

ゝ一世哀愁。/ 2022年05月14日 05:04/ 0 赞/ 396 阅读

相关 SQL生成汉字拼音

create function [dbo].[fGetPy](@words nvarchar(2000)) returns varchar(8000)

墨蓝/ 2022年04月22日 09:36/ 0 赞/ 286 阅读

相关 PHP汉字转拼音

<?php / 汉字转拼音 Created by PhpStorm. User: 刘抱 Date: 2018/1

冷不防/ 2022年04月15日 06:38/ 0 赞/ 4884 阅读

相关汉字转拼音

本人微信 zf363133213 欢迎各位添加好友，共同探讨问题 jar包：pinyin4j //获取汉字串拼音首字母，英文字符不变 public static Stri

待我称王封你为后i/ 2022年04月12日 11:27/ 0 赞/ 416 阅读

相关 Vue将汉字转为拼音，取出首字母

效果图： ![20190108175657646.png][] .ts import HanziToPinyin from "../../hanziToPinyi

红太狼/ 2022年03月29日 13:11/ 0 赞/ 7667 阅读

相关把汉字转为拼音(java源码)

使用 pinyin4j 包。下载地址： [https://download.csdn.net/download/athenamax/10273728][https_down

你的名字/ 2021年09月21日 23:18/ 0 赞/ 250 阅读