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

  • 主题发起人 主题发起人 windows.net
  • 开始时间 开始时间
W

windows.net

Unregistered / Unconfirmed
GUEST, unregistred user!
打开一个文本文件，文本文件中有几行内容，然后程序根本每行的内容千生成几个文件。
倒如我有一个文件，有二十行内容，执行程序后就生成20个文件，且文件名必须1-20，
扩展名可以自定义，每个文件的内容就是每行的内容。
最后有原代码，或者给出转换的源代码
 
读取一行放入一个数组就存为一个文件就好了.
i=0;
文件名就i++
 
能不能说得详细些，这个方法我也知道，但要怎么实现
 
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;
 
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;
 
这也是问题？找人做题差不多！
 
别人不知道的问题肯定要提出了，你认为很简单的问题，不一定别人也和你一样都认为简单，
象你这样的也会有专家分，哈哈！不肯帮忙就算了，还说风凉话
 
多人接受答案了。
 
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;
 
无知！！！
 
来自：jsxjd, 时间：2002-10-30 22:58:00, ID：1403754
无知！！！
你给我去死，你个猪头！
 
您必须登录或注册才可回复。

Similar threads

Ray
[转]终于可以发布Delphi下收点OSGI精髓皮毛而设计的插件框架WisdomPluginFramework
回复
4
查看
4K
chlkuei
C
商
关于文本文件的几个问题(200分)
回复
12
查看
183
商朝子
商
P
关于文本文件中的字符处理,请大侠们看看。 (100分)
回复
14
查看
184
vivee
V
X
Re:关于二进制数据的转换(50分)
回复
2
查看
113
realLearning
R
S
关于string TO Tmenuitem 的转换(100分)
回复
5
查看
151
streaming
S
后退
顶部