关于TXT文件内容处理的——Easy——问题！！！！！！！！！！(35分)

B

byflyer

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-05

• #1

如何实现在TXT文件内容中的每行的最前面加上'＃'的符号！

例如文本内容为：
123
4567
890

希望处理以后的文本内容变为：
＃123
＃4567
＃890

请大家不吝赐教！万分感谢！！！

 

S

sring

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-05

• #2

换行符是不可见的ASC码，好像是13吧？程序里搜索整个文件寻找换行符，然后在后头加#就行了。

 

老

老赵

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-05

• #3

或者10

 

X

xiuguo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-05

• #4

没有明白你的意思，不过人家都在提供ascii，所以我说一个'#'的ascii code是35
不信你看看下面的代码！

procedure TForm1.Button1Click(Sender: TObject);
var DepartmentFile:textfile;
i :integer;
begin
AssignFile(DepartmentFile,'g:/Department.Txt');
rewrite(DepartmentFile);
try
for i:=1 to 3 do
writeln(DepartmentFile,chr(35)+' po')
finally
closefile(DepartmentFile)
End;
end;

 

太

太阳火

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-05

• #5

用tstringlist更方便
var list:tstringlist;
i:integer;
begin
list:=tstringlist.create;
try
list.loadfromfile('c:/1.txt');
for i:=0 to list.count-1 do
list:='#'+list
finally
list.free
end;
end
给分吧

 

B

byflyer

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-05

• #6

多人接受答案了。

 

尘

尘莽

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-05

• #7

最简单的方法：
Procedure TForm1.Up;
var
M: TMemo;
i: integer;
begin
M := TMemo.Create(nil);
M.Lines.LoadFromFile('FileName.TXt');
for i := 10 to M.Lines.Count - 1 do
M.Lines := '#' + M.Lines;
M.Lines.SavetoFile('FileName.Txt');
M.Free;
End;