怎样在已存在的文本文件的每一行首插入字符？(50分)

Z

zjmg

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-01

• #1

多行文本文件一行内容为:19980811.......,若想在每行首插入字符abcd,使之成为
abcd19980811......该如何写代码？

 

E

ew9980

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-01

• #2

關注

 

L

luyear

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-01

• #3

假设多行文本是str共n行
for i:= 1 to n do
str[1]:='abcd'+str[1];

 

阿

阿高

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-01

• #4

关注

 

C

chshanghai

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-01

• #5

先用readln 从文件中读出全部字符串
然后用 luyear 的方法更改内容
用writeln写进
不要告诉我你不知道如何写文件>>>>>

 

S

sword_liu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-01

• #6

用richedit读出该文件的内容。
再用
with richedit1 do
for i:=1 to lines.count
lines:='abcd'+lines

 

C

cnwinds

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-01

• #7

一般是先把文件改名，然后创建文件，写入新内容，加上源文件内容，删除改名文件

 

D

DiamondKing

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-01

• #8

var
Mytext,TempText:Textfile;
S:string[20];
i:integer;
begin
AssignFile(TempText:TempText.txt) //创建临时文件
Rewrite(TempText);
AssignFile(MyText,'MyText.text')
//关联需要改动的文件
Reset(MyText);
try
while not eof(myText) do
begin
ReanLn(myText,s,i);
s:='abcd'+s
//插入字段
Writeln(TempText,s,i);
end;
finally
closefile(Temptext);
closefile(MyText);
end;
end;

 

Z

zjmg

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-01

• #9

多人接受答案了。