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;
 

相关阅读 >>

crc32.pas

Delphi 获取webbrowser中的图片

Delphi与汇编

Delphi 实现透明窗体

Delphi adoquery 运用

Delphi tstringlist自定义排序

Delphi tms web core messagedlg对话框 yes no

Delphi 根据关键字取关键词以后的字符串

Delphi应用程序 paramstr（）带有参数

Delphi 调用百度地图api

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

转载请注明出处：木庄网络博客 » Delphi 调用JS解决全角转半角