数据库中的字段按条件取出然后合并成一个文件？？？(100分)

F

fanren945

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-03

• #21

to wolf1860:

不好用啊，出来的是乱码，可能是我代码写的不好，能否给一个合并rtf文件的例子。
谢谢谢谢。

 

P

Pipi.

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-03

• #22

function link2(s1,s2:string):string;
var
p:integer;
begin
p:=LastDelimiter('}',s1);
if p>0 then
s1:=copy(s1,1,p-1)
else
s1:='{'+s1;
p:=Pos('{',s2);
if p>0 then
Delete(s2,1,p)
else
s2:=s2+'}';
result:=s1+s2;
end;

调用的时候
s1:=data.FieldByName('rtf_field').AsStriing;
....
s2:=data.FieldByName('rtf_field').AsStriing;
Richedit.Lines.Text:=link2(s1,s2);

 

F

fanren945

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-03

• #23

非常谢谢PiPi
我在去试试。

 

F

fanren945

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-03

• #24

谢谢Pipi
你的方法很好，可以用了
但是还有一点问题，我还是解决不了，你能不能再帮帮忙阿
问题是：
如果字段中包括图片，那么汉字就会变成乱码，这可怎么解决阿。

 

P

Pipi.

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-03

• #25

未处理前，
richedit.Text := data.FieldByName('rtf_field').AsStriing;
汉字正常吗

 

F

fanren945

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-03

• #26

为处理前没有问题，包括图片都能正常显示

 

P

Pipi.

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-03

• #27

哎呀，那我也没办法了

 

P

Pipi.

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-03

• #28

我是用写字板做的rtf，连起来以后也是用写字板看的，很正常

 

F

fanren945

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-03

• #29

你也尽力了，谢谢。

 

F

fanren945

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-04

• #30

还有没有人能帮忙解决这个问题阿，急用阿！！！！！

 

P

Pipi.

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-04

• #31

你用什么来显示rtf的？

 

F

fanren945

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-04

• #32

richtx32.ocx
richtextbox
是VB的ocx控件
非常好用，不过就是上面的问题

 

P

Pipi.

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-04

• #33

先在你的richedit上面显示一个rtf，并且设置选择全部文字和图像等
然后 SendMessage(RichEdit1.Handle,WM_COPY,0,0); 拷贝到剪贴板
再在你的richedit上面显示另外一个rtf，并且把光标定位在最后的部位
SendMessage(RichEdit1.Handle,WM_PASTE,0,0); 把剪贴板的内容粘贴上去

 

F

fanren945

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-04

• #34

ToPipi:
这个方法我早就用过了，可以实现，但是不好，
太耗费系统资源了如果有图片的话(大约吃掉25MB的内存)

 

L

lisi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-05

• #35

ip3K的RichEdit可以

 

F

fanren945

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-14

• #36

问题没解决，继续讨论......

 

J

jrq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-16

• #37

gz

 

F

fanren945

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-21

• #38

Pipi兄的办法是对的，问题解决了，结束贴子给分了。