背景:当你输日文汉字的额时候,输出它的读音。

如下图所示

实现的代码如下

Option Explicit

' Replace を まとめて おこなう
Private Function ReplaceA(ByVal s As String, ByVal t1 As String, ByVal t2 As String) As String Dim u1() As String: u1 = Split(t1)
Dim u2() As String: u2 = Split(t2)
Dim i As Integer For i = 0 To UBound(u1)
s = Replace(s, u1(i), u2(i))
Next ReplaceA = s End Function ' カタカナを ローマ字(英語式)に おきかえる
Public Function KatakanaToRoomaziE(ByVal s As String) As String ' 前処理
s = ReplaceA(s, "ッン", "'ン") ' 拗音・特殊音
s = ReplaceA(s, "キャ キュ キョ", "kya kyu kyo")
s = ReplaceA(s, "シャ シュ ショ", "sha shu sho")
s = ReplaceA(s, "チャ チュ チョ", "cha chu cho")
s = ReplaceA(s, "ニャ ニュ ニョ", "nya nyu nyo")
s = ReplaceA(s, "ヒャ ヒュ ヒョ", "hya hyu hyo")
s = ReplaceA(s, "ミャ ミュ ミョ", "mya myu myo")
s = ReplaceA(s, "リャ リュ リョ", "rya ryu ryo")
s = ReplaceA(s, "ギャ ギュ ギョ", "gya gyu gyo")
s = ReplaceA(s, "ジャ ジュ ジョ", "ja ju jo")
s = ReplaceA(s, "ヂャ ヂュ ヂョ", "ja ju jo")
s = ReplaceA(s, "ビャ ビュ ビョ", "bya byu byo")
s = ReplaceA(s, "ピャ ピュ ピョ", "pya pyu pyo") ' 直音
s = ReplaceA(s, "ア イ ウ エ オ", "a i u e o")
s = ReplaceA(s, "カ キ ク ケ コ", "ka ki ku ke ko")
s = ReplaceA(s, "サ シ ス セ ソ", "sa shi su se so")
s = ReplaceA(s, "タ チ ツ テ ト", "ta chi tsu te to")
s = ReplaceA(s, "ナ ニ ヌ ネ ノ", "na ni nu ne no")
s = ReplaceA(s, "ハ ヒ フ ヘ ホ", "ha hi fu he ho")
s = ReplaceA(s, "マ ミ ム メ モ", "ma mi mu me mo")
s = ReplaceA(s, "ヤ ユ ヨ", "ya yu yo")
s = ReplaceA(s, "ラ リ ル レ ロ", "ra ri ru re ro")
s = ReplaceA(s, "ワ ヰ ヱ ヲ", "wa i e o")
s = ReplaceA(s, "ガ ギ グ ゲ ゴ", "ga gi gu ge go")
s = ReplaceA(s, "ザ ジ ズ ゼ ゾ", "za ji zu ze zo")
s = ReplaceA(s, "ダ ヂ ヅ デ ド", "da ji zu de do")
s = ReplaceA(s, "バ ビ ブ ベ ボ", "ba bi bu be bo")
s = ReplaceA(s, "パ ピ プ ペ ポ", "pa pi pu pe po") ' 撥音
s = Replace(s, "ン", "n")
s = ReplaceA(s, "nb nm np", "mb mm mp") ' 促音
s = ReplaceA(s, "ッk ッs ッt ッn ッh ッm ッy ッr ッw", "kk ss tt nn hh mm yy rr ww")
s = ReplaceA(s, "ッg ッz ッd ッb ッp", "gg zz dd bb pp")
s = ReplaceA(s, "ッc ッf ッj", "tc ff jj")
s = Replace(s, "ッ", "'") ' 長音
s = Replace(s, "iー", "ii")
s = Replace(s, "ー", "") KatakanaToRoomaziE = StrConv(StrConv(s, vbNarrow), vbLowerCase) End Function ' EOF
Function GetPhonetic(セル As Range, _
Optional ByVal 変換 As Integer = 8, _
Optional ByVal 全て As Boolean = False)
Dim strPhonetic As String
GetPhonetic = StrConv(Application.GetPhonetic(セル), 変換)
strPhonetic = GetPhonetic
If 全て = True Then
Do Until strPhonetic = ""
strPhonetic = StrConv(Application.GetPhonetic(), 変換)
If strPhonetic <> "" Then
GetPhonetic = GetPhonetic & " ; " & strPhonetic
End If
Loop
End If
End Function Function DelAIUEO(ByVal romaStr As String) As String
Dim delStr As String
delStr = romaStr
delStr = Replace(delStr, "A", "")
delStr = Replace(delStr, "I", "")
delStr = Replace(delStr, "U", "")
delStr = Replace(delStr, "E", "")
delStr = Replace(delStr, "O", "") delStr = Replace(delStr, "a", "")
delStr = Replace(delStr, "i", "")
delStr = Replace(delStr, "u", "")
delStr = Replace(delStr, "e", "")
delStr = Replace(delStr, "o", "") DelAIUEO = delStr
End Function

  

利用VBA来实现,输入日文之后,输出它的假名即读法的更多相关文章

  1. 利用C语言识别用户输入字符并且输出该字符ASCII码值(大小写字母篇)(含思路)

    要求:从键盘输入一个字符,如果输入字符的是小写英文字母,则将其转换为大写英文字母,然后将转换后的英文字母及其ASCII码值输出到屏幕上,如果输入的是其他字符,则不转换并且直接将它及其ASCII码值输出 ...

  2. Java练习小题_求一个3*3矩阵对角线元素之和,矩阵的数据用行的形式输入到计算机中 程序分析:利用双重for循环控制输入二维数组,再将a[i][i]累加后输出。

    要求说明: 题目:求一个3*3矩阵对角线元素之和,矩阵的数据用行的形式输入到计算机中 程序分析:利用双重for循环控制输入二维数组,再将 a[i][i] 累加后输出. 实现思路: [二维数组]相关知识 ...

  3. Verilog学习笔记简单功能实现(七)...............接口设计(并行输入串行输出)

    利用状态机实现比较复杂的接口设计: 这是一个将并行数据转换为串行输出的变换器,利用双向总线输出.这是由EEPROM读写器的缩减得到的,首先对I2C总线特征介绍: I2C总线(inter integra ...

  4. 利用VBA+OO4O构造CTAIS开放式通用平台

    利用VBA+OO4O构造CTAIS开放式通用平台 2010-06-08 14:59:28 | 来源:税务信息化论文集 | 作者:于非 易飞 摘  要:文立足于CTAIS系统体系,探讨如何通过OO4O技 ...

  5. [转]linux shell数据重定向(输入重定向与输出重定向)详细分析

      在了解重定向之前,我们先来看看linux 的文件描述符. linux文件描述符:可以理解为linux跟踪打开文件,而分配的一个数字,这个数字有点类似c语言操作文件时候的句柄,通过句柄就可以实现文件 ...

  6. 输入年月,输出月份有几天(分别用了if——else和switch)

    首先是switch做的 class Program { static void Main(string[] args) {/* 题目要求:请用户输入年份,输入月份,输出该月的天数. 思路:一年中月份的 ...

  7. 【mybatis深度历险系列】mybatis中的输入映射和输出映射

    在前面的博文中,小编介绍了mybatis的框架原理以及入门程序,还有mybatis中开发到的两种方法,原始开发dao的方法和mapper代理方法,今天博文,我们来继续学习mybatis中的相关知识,随 ...

  8. Python基础之注释,算数运算符,变量,输入和格式化输出

    Python的注释 注释的作用:用自己熟悉的语言,对某些代码进行标注说明,增强程序的可读性: 在python解释器解释代码的过程中,凡是#右边的,解释器都直接跳过这一行: 注释的分类 单行注释 # 这 ...

  9. python学习:利用循环语句完善输入设置

    利用循环语句完善输入设置 使用for循环: 代码1:_user = "alex"_password = "abc123" for i in range(3): ...

随机推荐

  1. 使用Zookeeper实现负载均衡原理

    思路 使用Zookeeper实现负载均衡原理,服务器端将启动的服务注册到,zk注册中心上,采用临时节点.客户端从zk节点上获取最新服务节点信息,本地使用负载均衡算法,随机分配服务器. 创建项目工程 M ...

  2. Hive UDF函数构建

    1. 概述 UDF函数其实就是一个简单的函数,执行过程就是在Hive转换成MapReduce程序后,执行java方法,类似于像MapReduce执行过程中加入一个插件,方便扩展.UDF只能实现一进一出 ...

  3. TensorFlow的GPU设置

    在使用GPU版的TensorFlow跑程序的时候,如果不特殊写代码注明,程序默认是占用所有主机上的GPU,但计算过程中只会用其中一块.也就是你看着所有GPU都被占用了,以为是在GPU并行计算,但实际上 ...

  4. PAT1057 stack(分块思想)

    1057 Stack (30分)   Stack is one of the most fundamental data structures, which is based on the princ ...

  5. 04-Flutter移动电商实战-打通底部导航栏

    关于界面切换以及底栏的实现可参考之前写的一篇文章:Flutter实 ViewPager.bottomNavigationBar界面切换 1.新建4个基本dart文件 在pages目录下,我们新建下面四 ...

  6. LeetCode 842. Split Array into Fibonacci Sequence

    原题链接在这里:https://leetcode.com/problems/split-array-into-fibonacci-sequence/ 题目: Given a string S of d ...

  7. JavaScript基础04——数组的创建及方法

    数组的概念及定义 数组的概念:         一组数据,数据的组和         哪些数据的组和,只要是数据(所有数据),就可以放在数组中 数组的意义:         可以同时操作多个数据 数组 ...

  8. Windows 2008R2 安装PostgreSQL 11.6

    前些天在CentOS 7.5 下安装了PostgreSQL 11.6.除了在无外网环境下需要另外配置之外,其他没有什么差别.今天主要写一下在Windows下面安装PostgreSQL的问题. 在官网看 ...

  9. 【JZOJ6226】【20190618】纳什均衡

    题目 一颗二叉树,每个点儿子个数为0 或 2 ,对每个叶子有一个权值\((c(u),d(u))\) 从根结点开始走,Alice 可以选择奇数层的走法,Bob 可以选择偶数层的走法,分别获得最后走到叶子 ...

  10. Redis BGSAVE因为内存不足 fork 失败导致目标 Redis 无法访问的问题

    中秋的时候正在外面愉快的在外卖喝着咖啡玩电脑......突发 redis 报警从 sentry 应用端曝出的错误 MISCONF Redis is configured to save RDB sna ...