在excel中实现汉字转换拼音首字母大写
分享一下我老师大神的人工智能教程。零基础!通俗易懂!风趣幽默!还带黄段子!希望你也加入到我们人工智能的队伍中来!https://blog.csdn.net/jiangjunshow
在excel 2003和2007中已经验证成功。代码为网上收集,原作者已不可考。
Function getpychar(char)tmp = 65536 + Asc(char)If (tmp >= 45217 And tmp <= 45252) Thengetpychar = "A"ElseIf (tmp >= 45253 And tmp <= 45760) Thengetpychar = "B"ElseIf (tmp >= 45761 And tmp <= 46317) Thengetpychar = "C"ElseIf (tmp >= 46318 And tmp <= 46825) Thengetpychar = "D"ElseIf (tmp >= 46826 And tmp <= 47009) Thengetpychar = "E"ElseIf (tmp >= 47010 And tmp <= 47296) Thengetpychar = "F"ElseIf (tmp >= 47297 And tmp <= 47613) Thengetpychar = "G"ElseIf (tmp >= 47614 And tmp <= 48118) Thengetpychar = "H"ElseIf (tmp >= 48119 And tmp <= 49061) Thengetpychar = "J"ElseIf (tmp >= 49062 And tmp <= 49323) Thengetpychar = "K"ElseIf (tmp >= 49324 And tmp <= 49895) Thengetpychar = "L"ElseIf (tmp >= 49896 And tmp <= 50370) Thengetpychar = "M"ElseIf (tmp >= 50371 And tmp <= 50613) Thengetpychar = "N"ElseIf (tmp >= 50614 And tmp <= 50621) Thengetpychar = "O"ElseIf (tmp >= 50622 And tmp <= 50905) Thengetpychar = "P"ElseIf (tmp >= 50906 And tmp <= 51386) Thengetpychar = "Q"ElseIf (tmp >= 51387 And tmp <= 51445) Thengetpychar = "R"ElseIf (tmp >= 51446 And tmp <= 52217) Thengetpychar = "S"ElseIf (tmp >= 52218 And tmp <= 52697) Thengetpychar = "T"ElseIf (tmp >= 52698 And tmp <= 52979) Thengetpychar = "W"ElseIf (tmp >= 52980 And tmp <= 53640) Thengetpychar = "X"ElseIf (tmp >= 53689 And tmp <= 54480) Thengetpychar = "Y"ElseIf (tmp >= 54481 And tmp <= 62289) Thengetpychar = "Z"Else '如果不是中文,则不处理getpychar = charEnd IfEnd FunctionFunction getpy(str)For i = 1 To Len(str)getpy = getpy & getpychar(Mid(str, i, 1))Next iEnd Function
分享一下我老师大神的人工智能教程。零基础!通俗易懂!风趣幽默!还带黄段子!希望你也加入到我们人工智能的队伍中来!https://blog.csdn.net/jiangjunshow
在excel中实现汉字转换拼音首字母大写相关推荐
- 在Excel中取汉字的英文首字母或者全拼
与上一篇文章相关,在Excel中取汉字的英文首字母 在Excel中使用,觉得麻烦的,直接点最下面,复制附件,里面有例子,非常好用非常好用 需要说明的是,代码不是我写的,原作者如果看到了可以联系我,我会 ...
- delphi读音_delphi中获取汉字的拼音首字母
这段代码处理范围比较广,对于双单字,较偏的字也都能处理,是目前比较流行且全面的在delphi中获取汉字的拼音首字母的代码. 1.以下代码段直接复制在代码里即可. {$R *.dfm} py: arra ...
- 汉字转换拼音首字母(可以处理部分多音字)
一.前言 汉字转拼音貌似一直是C#开发的一个难题,无论什么方案都有一定的bug,之前使用了两种方案. 1.Chinese2Spell.cs 一些不能识别的汉字全部转为Z 2.Microsoft Vis ...
- SqlServer 汉字转换拼音首字母函数
CREATE function [dbo].[Func_GetPY](@str nvarchar(4000)) returns nvarchar(4000) as begin set @str=RTR ...
- C# 汉字转拼音首字母大写
我们在手机上经常都能看到通过拼音缩写来搜索好友信息,那么它是如何将一段汉字转换为首字母大写呢 首先我们来了解一下中文在计算机中的结构.计算机识别的是字节,字节(Byte)是计算机信息技术用于计量存储容 ...
- 在excel中实现汉字转换拼音全拼
分享一下我老师大神的人工智能教程!零基础,通俗易懂!http://blog.csdn.net/jiangjunshow 也欢迎大家转载本篇文章.分享知识,造福人民,实现我们中华民族伟大复兴! 在exc ...
- sql中实现汉字的拼音首字母查询
先在数据库中加入获取首字母的方法 create function f_GetPy(@str nvarchar(4000)) returns nvarchar(4000) as begin declar ...
- Java中获取GBK编码汉字的拼音首字母(包括生僻字)
Java中获取GBK编码汉字的拼音首字母(包括生僻字) 前言 代码 结果 前言 网上关于Java中获取汉字的拼音首字母的方法很多,但大多基于GB2312的汉字所属编码位置判断方法,现有一种基于GBK编 ...
- 从gb2py.idx中获取一个汉字的拼音首字母
function GetPinyinFromFile(aHanzi:string):AnsiChar; //从gb2py.idx中获取一个汉字的拼音首字母 var sfile:TMemoryStrea ...
最新文章
- torchtext语料库 词与 下标互转使用教程
- web网页获取,cookie 的管理,post和get方式的模拟。
- 百度已经完全落伍!被阿里腾讯甩出100条街,可他们却不自知
- 图像添加柯西分布噪声
- 【动态规划】公共子串
- swift面向对象之属性
- ASP.NET Core Web读取appsettings.json中的配置
- 【雷达通信】基于matlab线性调频(LFM)脉冲压缩雷达仿真【含Matlab源码 283期】
- php 批量改文件夹名,如何批量更改文件名(终极解决方案)
- 用ipv6搭建文件服务器,ipv6服务器搭建
- python--模拟掷骰子游戏
- 做好ToB运营:避开4个误区和掌握3个获客方式
- Audition 如何录制电脑内部声音
- python manage.py makemigrations执行完无反应的解决办法
- 关于Ubuntu双击打不开文件夹的解决方案
- 为了探究妹纸对内衣的喜好,我爬了淘宝内衣店的数据!
- 【读书笔记】《数学之美》——一个好方法在形式上总是简单的
- js常见弹窗以及简单使用
- 计算机毕业设计Java毕业生实习管理系统(源码+系统+mysql数据库+lw文档)
- GPS北斗定位模块如何应用于智慧农业
热门文章
- js+php微信扫码支付详细说明+demo
- 拉卡拉电子合同签约测试参数接入
- 红外线测距传感器AD读取stm32F407,PC1,ADC3_IN11
- 虚拟机:无法连接虚拟设备 ide1:0,因为主机上没有响应的设备
- 怎么提升淘宝自然流量 淘宝搜索流量提高方法
- 1.12.1CMOS摄像头之硬件原理
- es文件浏览器http服务器,App Store 上的“ES文件浏览器”
- python爬虫未来发展前景好的行业_爬虫实战2:招聘大数据告诉你运营岗需求现状及职业发展前景...
- 蚂蚁分类信息系统 列表显示标签名称和值
- 基于STC12C6A的重量感应及超声波感应变化图样的8*8*8单色光立方的制作(附代码)