2. 程式人生 > >VB實現 漢字轉拼音縮寫的函式

VB實現 漢字轉拼音縮寫的函式

阿新 • • 發佈：2019-01-30
PublicFunction getPYChar(char AsString) AsStringDim lChar AsLong
    lChar =65536+Asc(char)
    If (lChar >=45217And lChar <=45252) Then getPYChar ="A"If (lChar >=45253And lChar <=45760) Then getPYChar ="B"If (lChar >=47761And lChar <=46317) Then getPYChar ="C"If (lChar >=46318And lChar 
<=46825) Then getPYChar ="D"If (lChar >=46826And lChar <=47009) Then getPYChar ="E"If (lChar >=47010And lChar <=47296) Then getPYChar ="F"If (lChar >=47297And lChar <=47613) Then getPYChar ="G"If (lChar >=47614And lChar <=48118) Then getPYChar ="H"If (lChar >=48119And lChar 
<=49061) Then getPYChar ="J"If (lChar >=49062And lChar <=49323) Then getPYChar ="K"If (lChar >=49324And lChar <=49895) Then getPYChar ="L"If (lChar >=49896And lChar <=50370) Then getPYChar ="M"If (lChar >=50371And lChar <=50613) Then getPYChar ="N"If (lChar >=50614And lChar <=
50621) Then getPYChar ="O"If (lChar >=50622And lChar <=50905) Then getPYChar ="P"If (lChar >=50906And lChar <=51386) Then getPYChar ="Q"If (lChar >=51387And lChar <=51445) Then getPYChar ="R"If (lChar >=51446And lChar <=52217) Then getPYChar ="S"If (lChar >=52218And lChar <=52697) Then getPYChar ="T"If (lChar >=52698And lChar <=52979) Then getPYChar ="W"If (lChar >=52980And lChar <=53640) Then getPYChar ="X"If (lChar >=53689And lChar <=54480) Then getPYChar ="Y"If (lChar >=54481And lChar <=52289) Then getPYChar ="Z"End FunctionPublicFunction getPY(str AsString) AsStringFor i =0ToLen(str) -1
        getPY = getPY & getPYChar(Mid(str, i +1, 1))
    NextEnd Function

相關推薦

VB實現 漢字轉拼音縮寫的函式

PublicFunction getPYChar(char AsString) AsStringDim lChar AsLong    lChar =65536+Asc(char)    If (lChar >=45217And lChar <=45252) Then getPYChar ="A"

【Python】使用python實現漢字轉拼音（2018.12更新）

在瀏覽部落格時，偶然看到了用python將漢字轉為拼音的第三方包，但是在實現的過程中發現一些引數已經更新，現在將兩種方法記錄一下。 xpinyin 在一些部落格中看到，如果要轉化成帶音節的拼音，需要傳遞引數，‘show_tone_marks=True’，但我在實際使用時發現，已經

C#實現漢字轉拼音(包括生僻字)

專案裡面有一個功能是將使用者的名字轉變成拼音全拼，但是在使用過程中，有很多人的名字是生僻字，程式根本找不到那個字的拼音，後來看程式碼才發現，轉拼音這個類居然是將一個個的漢字列舉的： 且不說這樣列舉會增加多大的工作量，光這漢字之多，能列舉的完嗎？ 後來看了一些資料並借鑑了前

java實現漢字轉拼音

轉載請註明出處：http://blog.csdn.net/xiaojimanman/article/details/48579073 個人部落格站已經上線了，網址 www.llwjy.com ~歡迎各位吐槽~---------------------------------

利用Android原始碼，輕鬆實現漢字轉拼音功能

 今天和大家分享一個從Android系統原始碼提取出來的漢字轉成拼音實現方案，只要一個類，560多行程式碼就可以讓你輕鬆實現漢字轉成拼音的功能，且無需其他任何第三方依賴。 需求場景 實際開發過程中需要用到實現漢字轉成拼音的場景比較常見，如：通訊錄裡的聯絡人字母導航欄

js實現漢字轉拼音

將JSPinyin剝離mootools這個JavaScript庫，可以獨立使用。 1）一個是將漢字翻譯為拼音，其中每一個字的首字母大寫； pinyin.getFullChars(this.value); 2）一個是可以將每一個字的拼音的首字母提取出來，是大寫的

Android-實現漢字轉拼音支援一詞多音

<span style="font-family:KaiTi_GB2312;font-size:18px;"><RelativeLayout xmlns:android="http://schemas.android.com/apk/res/android" xmlns:tools=

python實現漢字轉拼音和讀寫excel

本文再次見證python是對付雜活的利器。不過，為什麼這麼多雜活呢？最近接到上級的任務，要在網路上收集一大批人圖片，主頁等資訊，然後將這些資訊填入到Excel表格。其中有一個令人髮指地無聊的工作就是要將所有人的英文名寫好整理好，由於都是中國人，因此，這工作也就是在考驗我的漢

簡單測試--C#實現中文漢字轉拼音首字母

esp chart htm foreach ext ads linq 類庫 play 第一種： 這個是自己寫的比較簡單的實現方法，要做漢字轉拼音首字母，首先應該有一個存儲首字母的數組，然後將要轉拼音碼的漢字與每個首字母開頭的第一個漢字即“最小”的漢字作比較，這裏的最小指的是

Android 實現ListView的A-Z字母排序和過濾搜尋功能，實現漢字轉成拼音

分享一下我老師大神的人工智慧教程！零基礎，通俗易懂！http://blog.csdn.net/jiangjunshow 也歡迎大家轉載本篇文章。分享知識，造福人民，實現我們中華民族偉大復興！        

漢字轉拼音的c++實現

目的 在一個專案裡，需要根據輸入的一組漢字來自動生成這組漢字的拼音首字母字串，搜了一下，很多實現方案，記錄下。 平臺 Win10 64bit + VS15 程式碼 void GetFirstLetter(CString sName, CS

Android 實現漢字轉成拼音，實現ListView的A-Z字母排序，顯現多音字城市排序

今天給大家帶來ListView的A-Z字母排序和過濾搜尋功能並且實現漢字轉成拼音的功能，我們知道一般我們對聯絡人，城市列表等實現A-Z的排序，因為聯絡人和城市列表我們可以直接從資料庫中獲取他的漢字拼音，而對於一般的資料，我們怎麼實現A-Z的排序，我們需要將漢字

sql漢字轉拼音函式

CREATE FUNCTION [dbo].[GetPY] ( @str nvarchar(4000) ) returns nvarchar(4000) as begin declare @word nchar(1),@PY nvarchar(

漢字轉拼音

col [] 沒有 行為 pin bin -1 風險 static 使用的庫: pinyin4j 鏈接：http://pan.baidu.com/s/1gf23Nkn 密碼：b4sf 使用pinyin4j獲取漢字的簡拼/全拼示例: 1 package prinyin

Word實現漢字和拼音分離

.com 分離 idt target nload 使用 width eight kaa 用戶在使用“拼音指南”後，有時需要把漢字和拼音分離，如制作小學語文試卷時的“看漢字寫拼音”。解決此問題的最便捷的方法是使用“選擇性粘貼”功能，而不需要再重新輸入一遍。 Word實現漢字

asp.net 漢字轉拼音的車禍現場

png trim 漢語拼音 集中 其中 現場 version nap 類文件 asp.net 漢字轉拼音 需求背景： 昨天遇到個問題，就是面對系統中集中性的要設置大批量的用戶設置默認的用戶名，密碼，權限（角色），同時要求用戶名是姓名的全拼，回頭看看旁邊那個

oracle漢字轉拼音(獲得全拼/拼音首字母/拼音截取等)

sub 截取 需要 sel 內容 zip bsp .com 整理 oracle漢字轉拼音(獲得全拼/拼音首字母/拼音截取等) 效果如下: Oracle 字符集 GBK 沒有問題 , UTF -8 需要修改一下Sql代碼 --oracle漢字轉拼音 PACKAGE --1

Python 漢字轉拼音

技術 PE fir for str IT 代碼 @param cep 本文參考： Python中文轉拼音代碼(支持全拼和首字母縮寫) 中文中不可以有“()” # -*- coding: utf-8 -*- __version__ = ‘0.9‘ __all__ = ["

楊澤業：讓你的網站無限可能之給你的網站增加漢字轉拼音的新功能

上傳 class 體驗 很多 microsoft eight col tps 拼音 一個網站可以無限可能，你的網站可以成就你的事業！ 這不是一句空話，而是一個可行的方案。 今天澤業建站網站長楊澤業來給大家講解一下最簡單的網站功能的增加。 現在增加的是【漢字轉拼音】的新功能為

C#之使用StringHelper來處理漢字轉拼音

ase blog true 符號 arr mes rep mode dede StringHelper字符串處理幫助 現在已經實現的功能有： 1.用給定的字符填充源字符串的左邊以達到指定的長度 2.用給定的字符填充源字符串的右邊以達到指定的長度 3.轉半角的函數(DBC c