请问如何让将sql2000中的简体中文转为繁体.

Description of your first forum.

请问如何让将sql2000中的简体中文转为繁体.

帖子erickleung » 星期一, 2002年12月16日 18:24


各位, 我们原本是dbf来存档, 并用delphi把当中的简体中文的字段, 进行 GB --> Big5转换,
并转入远程数据库的繁体中文字段.

可是最近我们把这一个dbf文档转为sql 2000 的表格中, 所以我们修改原有程式, 加入ADO来
读取MS SQL 2000的表格.  但是得到的结果是所有中文字符都为 ????但所有英文和数字都正常.

请问我需如何设置才可以呢?  需不需要把他们换到unicode? 用户大部份仍是用win98.
 
 
 

请问如何让将sql2000中的简体中文转为繁体.

帖子jsxjd » 星期一, 2002年12月16日 18:47


可能调用 word 的功能:

83. 用Word 进行简繁转换
procedure TForm1.Button1Click(Sender: TObject);
var
 doc,app:olevariant;
 s:string;
begin
 doc:=createOleobject('Word.Document');
 app:=doc.application;
 //app.visible:=true;
 app.Selection.typetext(Memo1.text);
 app.Selection.wholestory;
 app.selection.select;
 app.WordBasic.ToolsSCTCTranslate(0,0,0);//简转繁
 //  app.WordBasic.ToolsTCSCTranslate(0,0,0);//繁转简
 s:=app.selection.text;
 delete(s,length(s),1);
 s:=stringreplace(s,#13,#13#10,[rfReplaceAll]);
 memo1.text:=s;
 doc.close(0);
//  app.quit
end;


简繁转换
Sub Macro1()
'
' Macro1 Macro
' 宏在 02-9-2 由 xxc 录制
'
   Selection.WholeStory
   Selection.TypeText Text:="BBBBBBBBB"
   Selection.WholeStory
   WordBasic.ToolsSCTCTranslate Direction:=0, Varients:=0, TranslateCommon:=0
   Selection.Range.TCSCConverter WdTCSCConverterDirection:= _
       wdTCSCConverterDirectionAuto
   WordBasic.ToolsTCSCTranslate Direction:=0, Varients:=0, TranslateCommon:=0
End Sub


 
 
 

请问如何让将sql2000中的简体中文转为繁体.

帖子王公子 » 星期一, 2002年12月16日 18:59


我这有个程序,给个箱子,发给你
 
 
 

请问如何让将sql2000中的简体中文转为繁体.

帖子erickleung » 星期一, 2002年12月16日 22:25


To:王公子, 敬请发到ericleung@joys4u.com
 
 
 

请问如何让将sql2000中的简体中文转为繁体.

帖子xhd730 » 星期二, 2002年12月17日 10:46



我也要。 XHD730@163.com
多谢!
 
 
 

请问如何让将sql2000中的简体中文转为繁体.

帖子erickleung » 星期二, 2002年12月17日 16:37


终於解决了. 问题是因为 sql 2000的中文字段是用unicode格式, 我只需先调用 jedi-vcl 中的jclunicode
上的 WidestringToStringEx
e.g.  MyMultiByteString := WideStringToStringEx(MyData,936);
便可以把unicode转回平时的multibyte中文字了. 然後用原来的程序, 即王公子所传的程式, 便大功告成了.

也谢谢jsxjd的方案.  只是所用的数据有数以十数万计, 不想用word +vb(+ActiveX)来造