API實現快速轉換簡體字與繁體字

2021-08-18 19:17:36 字數 1500 閱讀 7021

private

declare

function lcmapstring lib

"kernel32"

alias

"lcmapstringa" (byval locale as

long, _

byval dwmapflags as

long, byval lpsrcstr as

string, byval cchsrc as

long, byval lpdeststr as

string, byval cchdest as

long) as

long

private

declare

function lstrlen lib

"kernel32"

alias

"lstrlena" (byval lpstring as

string) as

long

function jian_fan_conv(byval strstring as

string, optional

byval imode as

integer = 0) as

string

dim lstrlength as

long

dim strnew as

string

const j2f_mapflag = &h4000000

const f2j_mapflag = &h2000000

jian_fan_conv = ""

lstrlength = lstrlen(strstring)

strnew = space(lstrlength)

if imode = 0

then

lcmapstring &h804, j2f_mapflag, strstring, lstrlength, strnew, lstrlength

else

lcmapstring &h804, f2j_mapflag, strstring, lstrlength, strnew, lstrlength

endif jian_fan_conv = strnew

endfunction

**是不是很簡單,就是api函式lcmapstring實現轉換。

使用下面的**測試一下效果:

sub demo()

debug.print

"簡體轉繁體結果:" & jian_fan_conv("唧唧復唧唧,木蘭當戶織")

debug.print

"繁體轉簡體結果:" & jian_fan_conv("唧唧復唧唧,木蘭當戶織", 1)

end sub

立即視窗中的結果如下:

簡體轉繁體結果:唧唧復唧唧,木蘭當戶織

繁體轉簡體結果:唧唧復唧唧,木蘭當戶織

c 實現簡體字 繁體字的與轉

實現方式非常簡單 1 引用microsoft.visualbasic類庫 2 新建乙個方法,一般這類幫助方法是寫在乙個幫助類中方便重用 簡 繁體轉換 輸入中文文字 預設為簡體轉換為繁體 轉換後的文字 public static string chs2cht string input,bool def...

C 實現繁體字和簡體字之間的轉換

今天收到乙個需求,將一組簡體的漢字轉換成繁體的漢字,剛開始有點茫然,後來在網上搜了一下思路,結果很少有涉及,終於我在看了msdn後找到了如何解決,可能這方面對一些高程來說很easy,但是除了高程還有很大一部分的初中程並不知道,所以我寫這個只是提醒和幫助一下大家。下面分享下 1.想要實現這個程式的目的...

PHP簡體字繁體字相互轉換類

今天 要用到簡繁體相互轉換,於是用到了下面的類,親測可用 如下 class trans 簡體轉繁體 public function toorginal str 224 ord str 239 str str false this utf8 big5 this utf8 big5 a 3 contin...