【UiPath】よみがなを取得する

はじめに

この投稿は、RPAツール「UiPath」での 実装例 について記事です。

漢字のよみがなを取得

以下のように漢字の読み仮名を取得してみます。

令和 -> レイワ
平成 -> ヘイセイ

Excelには、漢字のよみがなを取得する「GetPhonetic」メソッドがあります。（phonetic 【形】 〔人の発話の〕音声の、音声に関する、表音つづり字）

.NETのコードで「Excel.Application」を操作し、読みがなを取得してみます。

以下のコードをInvokeCode（コード呼び出し）に記述すると変換されます。

' # Argument
' - in_text
' - out_text
Dim ap As New Microsoft.Office.Interop.Excel.Application
Try
    out_text = ap.GetPhonetic(in_text)
    '// カナ->かな変換（1041：日本語）
    ' out_text = Microsoft.VisualBasic.Strings.StrConv(out_text, microsoft.VisualBasic.VbStrConv.Hiragana, 1041)
    Console.writeLine(out_text)
Catch ex As Exception
    If Not(ap Is Nothing) Then ap = Nothing
    Console.writeLine(ex.ToString)
    Throw(ex)
Finally
    If Not(ap Is Nothing) Then ap = Nothing
End Try

英単語のカタカナ読みを取得

今度は英単語をカタカナ読みにしてみます。例えば以下のような変換です。

YOUNG -> ヤング
YOU'VE ->  ユーブ
YOU'RE ->  ユーアー

この「英語カタカナ読み変換」は上述のようなアプリケーションで解決する方法がないので、辞書ファイルを用いて変換します。

今回は以下の辞書ファイルを使用しました。
　Bilingual Emacspeak Project(BEP) GPLライセンス

' # Argument
' - in_text
' - in_filepath_dictionary '// 辞書ファイルのパス
' - out_text
Try
    '// 辞書ファイルの読み込み
    Dim dic As New Dictionary(Of String, String)
    Using sr As StreamReader = New StreamReader(in_filepath_dictionary, System.Text.Encoding.GetEncoding("UTF-8"))
        Dim line As String = sr.ReadLine()
        Dim aryLine As String()
        Do Until line Is Nothing
            If Not(line.StartsWith("#")) Then
                aryLine = Strings.Split(line, " "c)
                dic.Item(aryLine(0).ToUpper) = aryLine(1)
            End If
            line = sr.ReadLine()
        Loop
    End Using   

    '// 変換対象テキストを「スペース」区切りでループ
    Dim lstText As New List(Of String)
    For Each tx As String In  Strings.Split(in_text, " "c)
        '// 辞書から読みを取得
        If dic.ContainsKey(tx.ToUpper) Then
            lstText.Add(dic(tx.ToUpper))
        Else
            '// 最後の文字が「S」なら「S無し」で検索
            Dim lastw As String = tx.Substring(tx.Length-1, 1).ToUpper
            If lastw = "S" AndAlso dic.ContainsKey(tx.Substring(0, tx.Length-1).ToUpper) Then
                lstText.Add(dic(tx.Substring(0, tx.Length-1).ToUpper) & "ス")
            End If
        End If
    Next
    out_text = Strings.Join(lstText.ToArray, " "c)
    Console.writeLine(out_text)
Catch ex As Exception
    Console.writeLine(ex.ToString)
    Throw(ex)
End Try

終わりに

いかがでしたでしょうか。実装時に役立てば幸いです。
この記事が参考になったら、 LGTMをお願いします。閲覧ありがとうございました。