delphi 全形轉半形函式

2021-05-23 12:31:03 字數 556 閱讀 2819

從網上搜尋很多類似的函式 大都是乙個函式  sbctodbc  測試時確發現很多有問題 比如全形符號 句號 方括號等。

其實知道了 全形編碼範圍 可以自己著手寫乙個  測試通過

**如下:

function tfrm_main.todbc(input: string): widestring;

varc: widestring;

i: integer;

begin

c := input;

for i := 1 to length(input) do

begin

if (ord(c[i]) = 12288) then

begin

c[i] := chr(32);

continue;

end;

if (ord(c[i]) > 65280) and (ord(c[i]) < 65375) then

c[i] := widechar(chr(ord(c[i]) - 65248));

end;

result := c;

end;

全形轉半形函式 全形數字轉半形數字

private static char doublebytetohalfangle char c byte bs system.text.encoding.unicode.getbytes cs,0,1 if bs.length 2 return cs 0 private static string...

全形轉半形函式

object userdefinedfunction dbo f convert script date 01 21 2010 15 33 00 set ansi nulls on goset quoted identifier on goalter function dbo f convert s...

全形轉半形 半形轉全形(Python)

coding utf 8 def str q2b u string 全形轉半形 全形字符unicode編碼從65281 65374 十六進製制 0xff01 0xff5e 半形字元unicode編碼從33 126 十六進製制 0x21 0x7e 空格比較特殊,全形為 12288 0x3000 半形為...