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 playsound(); 停止播放

字符串截取小例子Delphi源代码

Delphi xe6 android下捕获功能键

Delphi线程的创建、挂起、激活与终止

Delphi xe6 for android 让手机震动

Delphi mainmenu控件 checkde属性用法

Delphi 进程之间传递cmd参数

Delphi 如何解析网址?

Delphi xe 无法编译apk提示sdk路径问题时?sdk路径配置方法

Delphi 动态生成九宫格按钮

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



打赏

取消

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

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

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

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

评论

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