关于文本的转换的问题！(100分)

W

windows.net

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-30

• #1

打开一个文本文件，文本文件中有几行内容，然后程序根本每行的内容千生成几个文件。
倒如我有一个文件，有二十行内容，执行程序后就生成20个文件，且文件名必须1-20，
扩展名可以自定义，每个文件的内容就是每行的内容。
最后有原代码，或者给出转换的源代码

 

D

D影子D

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-30

• #2

读取一行放入一个数组就存为一个文件就好了.
i=0;
文件名就i++

 

W

windows.net

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-30

• #3

能不能说得详细些，这个方法我也知道，但要怎么实现

 

J

jsxjd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-30

• #4

var
ss,st:TStrings;
i:integer;
begin
ss:=TStringList.Create;
st:=TStringList.Create;
ss.LoadFromFile('xx.txt');
for i:=1 to ss.count do
begin
st.text:=ss[i-1];
st.SaveToFile(inttostr(i)+'.TTT');
end;
ss.Free;
st.Free;
end;

 

M

ml.guo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-30

• #5

procedure TForm1.Button1Click(Sender: TObject);
var FileMemo,tempMemo:tmemo;
i:integer;
begin
if OpenDialog1.Execute then
begin
try
FileMemo:=tmemo.Create(self);
tempMemo:=tmemo.Create(self);
fileMemo.Lines.LoadFromFile(OpenDialog1.FileName);
for i:=0 to fileMemo.Lines.Count-1 do
begin
tempMemo.Text:=FileMemo.Lines.Strings;
tempMemo.Lines.SaveToFile('c:/'+inttostr(i));
end;
finally
fileMemo.Free;
tempMemo.Free;
end;
end;
end;

 

S

SS2000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-30

• #6

这也是问题？找人做题差不多！

 

W

windows.net

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-30

• #7

别人不知道的问题肯定要提出了，你认为很简单的问题，不一定别人也和你一样都认为简单，
象你这样的也会有专家分，哈哈！不肯帮忙就算了，还说风凉话

 

W

windows.net

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-30

• #8

多人接受答案了。

 

W

windows.net

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-30

• #9

procedure TForm1.Button1Click(Sender: TObject);
var FileMemo,tempMemo:tmemo;
i:integer;
begin
if OpenDialog1.Execute then
begin
try
FileMemo:=tmemo.Create(self);
tempMemo:=tmemo.Create(self);
fileMemo.Lines.LoadFromFile(OpenDialog1.FileName);
for i:=0 to fileMemo.Lines.Count-1 do //提示这里出错，是怎么回事错误
begin
tempMemo.Text:=FileMemo.Lines.Strings;
tempMemo.Lines.SaveToFile('c:/'+inttostr(i));
end;
finally
fileMemo.Free;
tempMemo.Free;
end;
end;
end;

 

J

jsxjd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-30

• #10

无知！！！

 

W

windows.net

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-04

• #11

来自：jsxjd, 时间：2002-10-30 22:58:00, ID：1403754
无知！！！
你给我去死，你个猪头！