分享一下我老师大神的人工智能教程。零基础!通俗易懂!风趣幽默!还带黄段子!希望你也加入到我们人工智能的队伍中来!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中实现汉字转换拼音首字母大写相关推荐

  1. 在Excel中取汉字的英文首字母或者全拼

    与上一篇文章相关,在Excel中取汉字的英文首字母 在Excel中使用,觉得麻烦的,直接点最下面,复制附件,里面有例子,非常好用非常好用 需要说明的是,代码不是我写的,原作者如果看到了可以联系我,我会 ...

  2. delphi读音_delphi中获取汉字的拼音首字母

    这段代码处理范围比较广,对于双单字,较偏的字也都能处理,是目前比较流行且全面的在delphi中获取汉字的拼音首字母的代码. 1.以下代码段直接复制在代码里即可. {$R *.dfm} py: arra ...

  3. 汉字转换拼音首字母(可以处理部分多音字)

    一.前言 汉字转拼音貌似一直是C#开发的一个难题,无论什么方案都有一定的bug,之前使用了两种方案. 1.Chinese2Spell.cs 一些不能识别的汉字全部转为Z 2.Microsoft Vis ...

  4. SqlServer 汉字转换拼音首字母函数

    CREATE function [dbo].[Func_GetPY](@str nvarchar(4000)) returns nvarchar(4000) as begin set @str=RTR ...

  5. C# 汉字转拼音首字母大写

    我们在手机上经常都能看到通过拼音缩写来搜索好友信息,那么它是如何将一段汉字转换为首字母大写呢 首先我们来了解一下中文在计算机中的结构.计算机识别的是字节,字节(Byte)是计算机信息技术用于计量存储容 ...

  6. 在excel中实现汉字转换拼音全拼

    分享一下我老师大神的人工智能教程!零基础,通俗易懂!http://blog.csdn.net/jiangjunshow 也欢迎大家转载本篇文章.分享知识,造福人民,实现我们中华民族伟大复兴! 在exc ...

  7. sql中实现汉字的拼音首字母查询

    先在数据库中加入获取首字母的方法 create function f_GetPy(@str nvarchar(4000)) returns nvarchar(4000) as begin declar ...

  8. Java中获取GBK编码汉字的拼音首字母(包括生僻字)

    Java中获取GBK编码汉字的拼音首字母(包括生僻字) 前言 代码 结果 前言 网上关于Java中获取汉字的拼音首字母的方法很多,但大多基于GB2312的汉字所属编码位置判断方法,现有一种基于GBK编 ...

  9. 从gb2py.idx中获取一个汉字的拼音首字母

    function GetPinyinFromFile(aHanzi:string):AnsiChar; //从gb2py.idx中获取一个汉字的拼音首字母 var sfile:TMemoryStrea ...

最新文章

  1. torchtext语料库 词与 下标互转使用教程
  2. web网页获取,cookie 的管理,post和get方式的模拟。
  3. 百度已经完全落伍!被阿里腾讯甩出100条街,可他们却不自知
  4. 图像添加柯西分布噪声
  5. 【动态规划】公共子串
  6. swift面向对象之属性
  7. ASP.NET Core Web读取appsettings.json中的配置
  8. 【雷达通信】基于matlab线性调频(LFM)脉冲压缩雷达仿真【含Matlab源码 283期】
  9. php 批量改文件夹名,如何批量更改文件名(终极解决方案)
  10. 用ipv6搭建文件服务器,ipv6服务器搭建
  11. python--模拟掷骰子游戏
  12. 做好ToB运营:避开4个误区和掌握3个获客方式
  13. Audition 如何录制电脑内部声音
  14. python manage.py makemigrations执行完无反应的解决办法
  15. 关于Ubuntu双击打不开文件夹的解决方案
  16. 为了探究妹纸对内衣的喜好,我爬了淘宝内衣店的数据!
  17. 【读书笔记】《数学之美》——一个好方法在形式上总是简单的
  18. js常见弹窗以及简单使用
  19. 计算机毕业设计Java毕业生实习管理系统(源码+系统+mysql数据库+lw文档)
  20. GPS北斗定位模块如何应用于智慧农业

热门文章

  1. js+php微信扫码支付详细说明+demo
  2. 拉卡拉电子合同签约测试参数接入
  3. 红外线测距传感器AD读取stm32F407,PC1,ADC3_IN11
  4. 虚拟机:无法连接虚拟设备 ide1:0,因为主机上没有响应的设备
  5. 怎么提升淘宝自然流量 淘宝搜索流量提高方法
  6. 1.12.1CMOS摄像头之硬件原理
  7. es文件浏览器http服务器,‎App Store 上的“ES文件浏览器”
  8. python爬虫未来发展前景好的行业_爬虫实战2:招聘大数据告诉你运营岗需求现状及职业发展前景...
  9. 蚂蚁分类信息系统 列表显示标签名称和值
  10. 基于STC12C6A的重量感应及超声波感应变化图样的8*8*8单色光立方的制作(附代码)