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 adoquery连接数据库的查询、插入、删除、修改

Delphi判断驱动器类型

Delphi 在rxrichedit中插入图片的完美解决方法

Delphi 获取系统注册的文件图标

Delphi_关于null,nil

Delphi allocmem

Delphi获取本地全部盘符并存如combobox1

Delphi文本数据导入数据库的方法

Delphi unigui从数据表里下载流文件

Delphi tlist性能注意事项

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



打赏

取消

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

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

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

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

评论

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