用Delphi如何实现对文本的操作?(50分)

我

我饿了

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-04

• #1

想编写一个程序.功能大概如下:
从1.txt文档中提取第一行和2.txt文档中的第一行结合.存到3.txt文档中的第1行.再从1中取第1行和2中的第2行结合.存到3中的第2行.这样循环下去.
应该不是很难~请各位帮忙.

 

卷

卷起千堆雪tyn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-04

• #2

可以利用剪贴板来实现 ：
CopyToClipBoard 和 PasteFromClipBoard;

 

Z

zytzjx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-04

• #3

这个卷起千堆雪tyn的方法可以,也可以直接用TMemo实现，要用递归就可以了。也很方便。

 

我

我饿了

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-05

• #4

能否再详细些????
我是个初学者~谢谢~

 

I

iie

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-05

• #5

textfile文件类型可以直接读写文本文件，跟标准pascal基本一样

 

房

房客

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-05

• #6

Tstringlist.loadfromfile

 

我

我饿了

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-05

• #7

看来我真是太苯了.
这样吧~~~~~谁有时间.帮我写一份简单的源程.发给我.我自己慢慢研究.
谢谢.
stonegong@yeah.net

 

C

creation-zy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-05

• #8

还是房客的法子好！

procedure TForm1.Button1Click(Sender: TObject);
var
i:Integer;
SL1,SL2:TStringList;
begin
SL1:=TStringList.Create;
SL2:=TStringList.Create;
SL1.LoadFromFile('1.txt');
SL2.LoadFromFile('2.txt');
for i:=0 to SL2.Count-1 do
SL2.Strings:=SL1.Strings[0]+SL2.Strings;
SL2.SaveToFile('3.txt');
SL1.Free;
SL2.Free;
end;

>再从1中取第1行和2中的第2行结合
1.txt中从头到尾只用了一行？

 

X

xiuguo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-05

• #9

笨方法要吗？
readln(t1,str1);
readln(t2,str2);
writeln(t3,str1+str2);
循环！

 

我

我饿了

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-05

• #10

creation-zy的方法我试过了.可行.但是只能用到1.txt中的第1行.
我想的是1.txt中的第一行与2.txt中的各行结合后再用1.txt中下一行于2.txt中的各行结合.
不知道这样应该怎么实现.
十分感谢~~~

 

C

creation-zy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-06

• #11

呵呵，原来是这样，早说嘛。

var
i,j:Integer;
SL1,SL2,SL3:TStringList;
begin
SL1:=TStringList.Create;
SL2:=TStringList.Create;
SL3:=TStringList.Create;
SL1.LoadFromFile('1.txt');
SL2.LoadFromFile('2.txt');
for j:=0 to SL1.Count-1 do
for i:=0 to SL2.Count-1 do
SL3.Add(SL1.Strings[j]+SL2.Strings);
SL3.SaveToFile('3.txt');
SL1.Free;
SL2.Free;
SL3.Free;
end;

OK?

 

我

我饿了

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-07

• #12

right
good!
thank you!

 

我

我饿了

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-12

• #13

又有问题了.
请帮忙.
我想在生成文件3.txt后判断3.txt有多少行.于是用了showmessage('共生成'+sl3.count-1+'行')可是不行.
请问应该如何解决?
谢谢~

 

I

iie

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-12

• #14

写一段小程序，统计行数：

assign(f, '3.txt');
reset(f);
i := 0;
while not eof(f) do
begin
inc(i);
readln(f, s);
end;

 

我

我饿了

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-12

• #15

应该不用这么麻烦吧~~~~~~
没有别的办法吗??????????

 

C

creation-zy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-13

• #16

ShowMessage('共生成'+IntToStr(SL3.Count)+'行'); //IntToStr，不要减1

SL3.Count=SL1.Count*SL2.Count