中文提取助记码

本文介绍了一个使用VB.NET编写的简单示例程序,该程序能够将输入的文本中的特定汉字转换为对应的拼音首字母。通过对每个字符进行比较并转换,最终实现了文本的快速拼音首字母化处理。

摘要生成于 C知道 ,由 DeepSeek-R1 满血版支持, 前往体验 >

 Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim ss As String
        ss = Me.TextBox3.Text.Trim
        Dim str As String
        For Each s As Char In ss
            str = str & GetZJM(s)
        Next
        Me.TextBox4.Text = str
    End Sub
    Private Function GetZJM(ByVal str As String) As String
        If (str.CompareTo("吖") < 0) Then Return str
        If (str.CompareTo("八") < 0) Then Return "A"
        If (str.CompareTo("嚓") < 0) Then Return "B"
        If (str.CompareTo("咑") < 0) Then Return "C"
        If (str.CompareTo("妸") < 0) Then Return "D"
        If (str.CompareTo("发") < 0) Then Return "E"
        If (str.CompareTo("旮") < 0) Then Return "F"
        If (str.CompareTo("铪") < 0) Then Return "G"
        If (str.CompareTo("讥") < 0) Then Return "H"
        If (str.CompareTo("咔") < 0) Then Return "J"
        If (str.CompareTo("垃") < 0) Then Return "K"
        If (str.CompareTo("嘸") < 0) Then Return "L"
        If (str.CompareTo("拏") < 0) Then Return "M"
        If (str.CompareTo("噢") < 0) Then Return "N"
        If (str.CompareTo("妑") < 0) Then Return "O"
        If (str.CompareTo("七") < 0) Then Return "P"
        If (str.CompareTo("亽") < 0) Then Return "Q"
        If (str.CompareTo("仨") < 0) Then Return "R"
        If (str.CompareTo("他") < 0) Then Return "S"
        If (str.CompareTo("哇") < 0) Then Return "T"
        If (str.CompareTo("夕") < 0) Then Return "W"
        If (str.CompareTo("丫") < 0) Then Return "X"
        If (str.CompareTo("帀") < 0) Then Return "Y"
        If (str.CompareTo("咗") < 0) Then Return "Z"
        Return str
    End Function

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值