Question

求delphi的一段代码，或源码。 读取文件操作并保存。

需求： 1、现有一excel文件，或者文本文件，里面有两列URL，N行。
2、我的目的要生成一个新的excel文件或者文本文件
3、生成文件的要求是：比如URL字符串里有包含index则将该行改写为汉字“首页”。包含menu则改写为“菜单”等。
4、3的条件里提供两行类似的代码就可以了。
5、一点思路：我对c++和java比较熟，算法比较清楚，应该是逐行读取文件数据放到二维数组，然后遍历。我对delphi完全不熟，希望好心朋友帮我，谢谢

Answer 1

文本文件的:
procedure aaa(FileName:string);
var
str:TStringList;
i,j,len:integer;
s1,s2:string;
begin
str:=TStringList.Create;
Str.LoadFromFile(FIleName);
for i:=0 to Str.Count-1 do begin
s1:=LowerCase(str.Strings[i]);
Len:=Pos(' ',s1); //分隔符为空格
Len:=Pos(#9,s1); //分隔符为TAB
if Len>0 then begin
s2:=copy(s1,Len,length(s1));
delete(s1,len,length(s1));
if Pos('index',s1)>0 then s1:='首页';
if Pos('menu',s2)>0 then s2:=' 菜单';
str.Strings[i]:=s1+s2;
end;
end;
str.Free;
end;

追问

我对语法不熟，给个能运行出来的源码谢谢，
包括打开一个原始文件并显示，点击转化按钮后，生成新的文件并保存。
无以回报，非常感谢！

追答

在str.free;之前加上一句
str.savetofile(ExtractFilePath(Application.ExeName)+'111.txt');
到你的程序目录找,111.txt
在你的按钮事件下加上
aaa('我要转换的文本.txt');
就OK了

追问

希望给出能运行的完整代码，我调半天老报错，郁闷的很...主要是第一次玩这个，属于小白。

追答

发你QQ号吧

追问

谢谢，我的qq：745973088或者邮箱realxiaoyao@vip.qq.com.