怎么实现繁体中文与简体中文之间的转换？(155分)

S

smartrich

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-01

• #1

不是转换GB与BIG5内码，是转换繁体中文字与简体中文字，其中的繁体中文字在简体中文系统上可以正常显示的那种
我做了繁体中文与简体中文的汉字编码表，两个文件，简体中文的文件名是GB.txt，繁体中文文件名是BIG5.txt
两个文件字数一样多，排列等均相同，比如简体中文“你”字在5行28列，那么到BIG5.txt里的5行28列，就可以找到繁体中文的“你”字。

现在我要怎么利用这两个文件实现简体字转换为繁体字？

请各位大侠赐教！小弟感激不尽！！！

155分是我在大富翁里所有的可用积分了，要是不够的话，以后可以再加

 

L

ligia

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-01

• #2

可否发我一份文件，我告诉您！
方法:1
创建二维数组a[2,文件的长度]，分别读文件简体/繁体到a[1,x],a[2,x]
使用时查找简体的位置输出繁体,就可以!
方法:2
直接使用文件指针定位，道理一样!
我的邮件地址 webmaster@iligia.com
欢迎您访问我们的网站 www.iligia.com

 

J

jsxjd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-01

• #3

108. 用Word 进行简繁转换
procedure TForm1.Button1Click(Sender: TObject);
var
doc,applevariant;
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

 

S

smartrich

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-02

• #4

ligia兄，已经发送，如果可以请贴出源码，万分感谢！

 

王

王公子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-02

• #5

gz

 

W

WangBingBing

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-02

• #6

gz

 

F

forgot2002

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-02

• #7

其实很简单，既然都是文本文件，用三个TStringList来LoadFromFile,一个字一个字地读取你想要
转换的文件，然后找这个字在字典中的位置，替换另一个字典中同一位置的字即可。反正思想就是
那样。

 

B

beta

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-02

• #8

smartrich: 这个问题很简单，我可以帮你解答
不过希望你帮个忙，把你那两个文件传到 www.playicq.com 以供我等下载[]

这样：
var
SimList, MulList: TStringList;
begin
SimList := TStringList.Create;
SimList.LoadFromFile('简体文件.txt');
MulList := TStringList.Create;
MulList.LoadFromFile('繁体文件.txt');

// 假设有一个中文在 str 里面
str := MulList[SimList.IndexOf(str)];
// 转换完成

SimList.Free;
MulList.Free;
end;

不过这样肯定很慢，最好是建一个 Hash 表，找本数据结构的书看看。

 

S

smartrich

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-02

• #9

这种方法我也想过，不过速度肯定大打折扣
Beta兄，把你的Email告诉我，我用Email发给你

 

R

resun_shaoqing

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-02

• #10

smartrich兄：能传一份给我吗？
EMAIL：RESUN_SHAOQING@SOHU.COM

 

W

WangBingBing

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-02

• #11

smartrich
請發我一個好嗎

我的郵箱是:wangbarry@taihsing.com.cn

 

S

smartrich

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-02

• #12

各位兄弟，贴出Email都已经发了，哪位写出了代码希望也能贴在此处与大家共享，谢谢！
谁还想要的写出Email我发给你

 

L

leway

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-02

• #13

我在DOS系統上做過簡繁轉化。
請發我一個後，看能否幫你。
lyaip@etang.com

 

S

smartrich

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-02

• #14

leway文件已发

 

L

ligia

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-02

• #15

我已经完成了!今天有一点事，晚上稍加修改传到我们的网站
明天就可以下载了！包括测试程序，函数库(GB简体/GB繁体/BIG5互相转换)[原码]
请明天登陆 www.iligia.com ,有什么事情请发到 support@iligia.com

 

L

ligia

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-02

• #16

已经上传!请下载!

 

S

smartrich

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-03

• #17

接受答案了.