Delphi 调用JS解决全角转半角


本文整理自网络,侵删。

 

{此函数需要 ComObj 单元的支持}
{参数 JsCode 是要执行的 Js 代码; 参数 JsVar 是要返回的变量}
function RunJs(const JsCode, JsVar: string): string;
var
  script: OleVariant;
begin
  try
    script := CreateOleObject('ScriptControl');
    script.Language := 'JavaScript';
    script.ExecuteStatement(JsCode);
    Result := script.Eval(JsVar);
  except
    Result := '';
  end;
end;


//全角转换为半角函数 qq123691873
function FullToHalf(const str: string): string;
var
  i,n: Integer;
  s: string;
  jslist:TStringList;
begin
jslist:=TStringList.Create;
//全角转换为半角函数
jslist.Add('function ToHalf() {');
jslist.Add('var str="'+StringReplace(str,#13#10,'',[rfReplaceAll])+'";'); //Memo1.Text
jslist.Add('var tmp = "";');
jslist.Add('for (var i = 0; i < str.length; i++) {');
jslist.Add('if (str.charCodeAt(i) > 65280 && str.charCodeAt(i) < 65375) {');
jslist.Add('tmp += String.fromCharCode(str.charCodeAt(i) - 65248);');
jslist.Add('}');
jslist.Add('else if (str.charCodeAt(i) == 12288) {');
jslist.Add('tmp += String.fromCharCode(32);');
jslist.Add('}');
jslist.Add('else {');
jslist.Add('tmp += String.fromCharCode(str.charCodeAt(i));');
jslist.Add('}');
jslist.Add('}');
jslist.Add('return ToFull=tmp;');
jslist.Add('}');
Result:=RunJs(jslist.Text,'ToHalf()');
jslist.Free;
end;


//半角转换为全角函数
function HalfToFull(const str: string): string;
var
  i,n: Integer;
  s: string;
  jslist:TStringList;
begin
jslist:=TStringList.Create;
jslist.Add('function ToFull() {');
jslist.Add('var txtstring="'+StringReplace(str,#13#10,'',[rfReplaceAll])+'";'); //Memo1.Text
jslist.Add('var tmp = "";');
jslist.Add('for (var i = 0; i < txtstring.length; i++) {');
jslist.Add('if (txtstring.charCodeAt(i) == 32) { ');
jslist.Add('tmp = tmp + String.fromCharCode(12288);');
jslist.Add('}');
jslist.Add('else if (txtstring.charCodeAt(i) < 127) {');
jslist.Add('tmp = tmp + String.fromCharCode(txtstring.charCodeAt(i) + 65248); ');
jslist.Add('}');
jslist.Add('else');
jslist.Add('tmp = tmp + String.fromCharCode(txtstring.charCodeAt(i));');
jslist.Add('}');
jslist.Add('return ToFull=tmp;');
jslist.Add('}');
Result:=RunJs(jslist.Text,'ToFull()');
jslist.Free;
end;

相关阅读 >>

Delphi xe system.netencoding 字符串base64编码解码

Delphi下调用有返回值的存储过程

Delphi 条件编译语法 $ifdef $else $endif

Delphi xe5 android 调用 google zxing

Delphi tidhttp 登录网页封装

Delphi - 右滚动文字

Delphi 简单的字符串加密和解密

Delphi 获取带分隔符字符串中的字段值

Delphi 判断字符串是否包含汉字

Delphi base64编码/解码及zlib压缩/解压

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...