**是不是很簡單,就是api函式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
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...