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

  • 主题发起人 主题发起人 erickleung
  • 开始时间 开始时间
E

erickleung

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

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

请问我需如何设置才可以呢? 需不需要把他们换到unicode? 用户大部份仍是用win98.
 
可能调用 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


 
我这有个程序,给个箱子,发给你
 
To:王公子, 敬请发到ericleung@joys4u.com
 

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

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