关于半角转换全角的问题(100分)

dedragon · 2004-01-06

其中对于半角下的句号、单引号和双引号，如何变成中文中的。‘’“”。根据什么判断，其中要结合其他标点符号一起判断。麻烦给出代码

dedragon · 2004-01-06

//标点符号半角转换全角 function TForm1.SignHalfToFull(SingleStr: string): string; var    i:integer;    temp:string;    single:char;    sinstr:string; begin    temp:='';    i:=1;    sinstr:=SingleStr;    while i<=length(sinstr) do    begin       single:=sinstr;       if ((ord(single)<128) and (((ord(single)>=32) and (ord(single)<=47)) or ((ord(single)>=58) and (ord(single)<=64)) or ((ord(single)>=91) and (ord(single)<=96)) or ((ord(single)>=123) and (ord(single)<=126)))) then       //第33~126号共94个字符，去除英文和数字，其他为标点符号和运算符号       begin          temp:=temp+#163+chr(ord(single)+128);          inc(i);       end       else       begin          temp:=temp+copy(sinstr,i,1);          inc(i);       end;    end;     result:=temp; end; 如何在这基础上改？请指教

江南大米 · 2004-01-06

其中对于半角下的句号、单引号和双引号， 如何变成中文中的。‘’“”。 .——>。后面的是全角符号——>． '' ——>‘’后面的是全角符号——>＇＇ ""——>“”后面的是全角符号——>＂＂ 输入的模式不同一个是半角加上中文标点，一个是切换全角 这个用那个全半角转换的函数是不可以的！

江南大米 · 2004-01-06

自动标题的问题我正在写！这个问题你还是找找其他办法吧！[

]

wr960204 · 2004-01-06

参考我以前写的东西，可能有点帮助 http://www.delphibbs.com/delphibbs/dispq.asp?lid=1687832

wr960204 · 2004-01-06

发错了，对不起

jackchin · 2004-01-06

建一个替换表 "转换成“ 还是 ”有点问题,要根据上下文

wr960204 · 2004-01-06

unit UnitToChinese; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls; type   TForm1 = class(TForm)     Memo1: TMemo;     Button1: TButton;     Memo2: TMemo;     Button2: TButton;     procedure Button1Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end; var   Form1             : TForm1; implementation {$R *.dfm} //通用的常规字符到全角字符的转化函数 function ToChinesChar(AChar: Char): WChar; begin   Result := WideChar(65248 + Ord(AChar)); end; //简单的转换函数，复杂的话恐怕要加上脚本标记才行， //因为有很多情况全角字符对应半角字符是多对一的关系 //例如:< 《＜〈  ≮ ≤;或者:[ 【［〔〖「『 // function ConvertToChinses(ASource: string): string; var   PSource           : PChar;   TmpChar           : string;   DoubleFH          : Boolean; begin   Result := '';   PSource := PChar(ASource);   DoubleFH := True;   while not (PSource^ = #0) do   begin     case PSource^ of       '(', ')', '[', ']', '{', '}', '-', '$', ':', '!', '?', ';':         TmpChar := ToChinesChar(PSource^);       '.':         begin           if ((PSource - 1)^ = '.') or ((PSource + 1)^ = '.') then           begin             TmpChar := '·';            //省略号           end           else             TmpChar := '。';            //句号         end;       '/':         TmpChar := '、';                //顿号       '"':         begin           if DoubleFH then           begin             TmpChar := '“';            //左双引号           end           else           begin             TmpChar := '”';            //右双引号           end;           DoubleFH := not DoubleFH;         end;       '''':         begin           if DoubleFH then           begin             TmpChar := '‘';            //左单引号           end           else           begin             TmpChar := '’';            //右单引号           end;           DoubleFH := not DoubleFH;         end;       '<':         begin           TmpChar := '《';              //左书名号         end;       '>':         begin           TmpChar := '》';              //右书名号         end;     else       TmpChar := PSource^;     end;     Result := Result + TmpChar;     Inc(PSource);   end; end; procedure TForm1.Button1Click(Sender: TObject); begin   Memo2.Text := ConvertToChinses(Memo1.Text); end; end.

江南大米 · 2004-01-06

[

]哎！又走回穷举了……

dedragon · 2004-01-08

不一定要用穷举吧，只把这几个符号做特殊的处理应该也行吧，我也还在测试中 谢谢各位的帮忙，再看看再分分吧

dedragon · 2004-01-08

哈哈，终于改好了，谢谢各位的帮忙。因为我不懂指针，所以wr960204朋友的方法我也没用，还是按照自己的方法改好了，程序如下，为了方便以后有朋友需要使用。 function TForm1.SignHalfToFull(SingleStr: string): string; var    i:integer;    temp,sinstr:string;    single:char;    HalfMark,FullMark:boolean; begin    temp:='';    i:=1;    sinstr:=SingleStr;    HalfMark:=true;    FullMark:=true;    while i<=length(sinstr) do    begin       single:=sinstr;       if ((ord(single)<128) and (((ord(single)>=32) and (ord(single)<=47)) or ((ord(single)>=58) and (ord(single)<=64)) or ((ord(single)>=91) and (ord(single)<=96)) or ((ord(single)>=123) and (ord(single)<=126)))) then       //第33~126号共94个字符，去除英文和数字，其他为标点符号和运算符号       begin         if ord(single)=46 then               temp:=temp+'。';         if ord(single)=60 then               temp:=temp+'《';         if ord(single)=62 then               temp:=temp+'》';         if ord(single)=39 then             begin               if HalfMark=true then                 temp:=temp+'‘'               else temp:=temp+'’';                 HalfMark:=Not HalfMark;             end;         if ord(single)=34 then             begin               if FullMark=true then                 temp:=temp+'“'               else temp:=temp+'”';                 FullMark:=Not FullMark;             end;         if ((ord(single)<>34) and (ord(single)<>39) and (ord(single)<>46) and (ord(single)<>60) and (ord(single)<>62)) then               temp:=temp+#163+chr(ord(single)+128);          inc(i);       end       else       begin          temp:=temp+copy(sinstr,i,1);          Inc(i);       end;    end;     result:=temp; end;

dedragon · 2004-01-08

多人接受答案了。

关于半角转换全角的问题(100分)

dedragon

Unregistered / Unconfirmed

dedragon

Unregistered / Unconfirmed

江南大米

Unregistered / Unconfirmed

江南大米

Unregistered / Unconfirmed

wr960204

Unregistered / Unconfirmed

wr960204

Unregistered / Unconfirmed

jackchin

Unregistered / Unconfirmed

wr960204

Unregistered / Unconfirmed

江南大米

Unregistered / Unconfirmed

dedragon

Unregistered / Unconfirmed

dedragon

Unregistered / Unconfirmed

dedragon

Unregistered / Unconfirmed

Similar threads