问一个关于编辑文本文件的问题！！(100分)

S

sforever

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-23

• #1

我想让我的程序能编辑文本文件。
比如有一个文本文件，文本文件里面全都是英文字母。。
aaaaaaaaaaaaaaaaaaaaaaaa
sssssssssssssdsadsasa
asdwqdasdsadasdsadsa
sdsadsadsadsadsadsad
比如上面是文本文件的内容，我想把第三行中的第4、第5、第6个字符（即字母“wqd"）读取到一个edit1.text框中 。。。这如何编程实现？？

 

D

duckstar

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-23

• #2

1、用一个StringList把文本文件内容读出来；
2、根据所要求的行数，得到StringList对应的Item；
3、用Copy函数或其它方法得到你所想要的内容；
4、填到edit中。

 

刀

刀剑如梦

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-23

• #3

首先取行，然后用Copy函数来取字符。

 

O

Olmany

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-23

• #4

Delphi 下有一个文本编辑器的例子。

 

小

小笨苯

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-23

• #5

由于仅仅读三行文本，所以没有必要将全部文件读入，下面的方法应该是比较简单的。
var
f: TextFile;
i: Integer;
s: string;
begin
try
AssignFile(f, 'C:/xiaobenben.xbb');
Reset(f);
i := 0;
while i < 3do
begin
Readln(f, s);
Inc(i);
end;
finally
CloseFile(f);
end;
Edit1.Text := Copy(s, 4, 3);
end;

 

W

wfzha

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-23

• #6

这么小的程序不用考虑效率，用下面的简单
str:=tstringlist.create;
str.loadformfile('yourfilename');
result:=copy(str[2],4,3);

 

S

sforever

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-23

• #7

有没有代码能实现啊？

 

W

wfzha

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-23

• #8

不会吧？给你写个完整的：
procedure TForm1.SpeedButton1Click(Sender: TObject);
var str:TStringList;
begin
str:=tstringlist.create;
str.loadfromfile('c:/1.txt');
Edit1.text:=copy(str[2],4,3);
end;

 

魔

魔鬼大师

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-23

• #9

readline

 

S

sforever

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-12

• #10

我打开文件出现乱码是什么问题。
我打开一个文本文件。。。。

 

S

sforever

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-26

• #11

多人接受答案了。