X xchen301 Unregistered / Unconfirmed GUEST, unregistred user! 2003-11-26 #1 [8D]我想编个程序每天自动从网络上一台主机上固定格式的文件夹（以日期取如20031126)下载TXT（每天都不一样数据库转换过来的），然后TXT要删除某些不能用的行，还要在每行后加上固定的两个字段，该怎么实现啊，急！！！
[8D]我想编个程序每天自动从网络上一台主机上固定格式的文件夹（以日期取如20031126)下载TXT（每天都不一样数据库转换过来的），然后TXT要删除某些不能用的行，还要在每行后加上固定的两个字段，该怎么实现啊，急！！！
S seagod007 Unregistered / Unconfirmed GUEST, unregistred user! 2003-11-28 #3 用ICS里的FTP控件可以实现你的下载要求。 “然后TXT要删除某些不能用的行”不明白，如何判断不能用？ “还要在每行后加上固定的两个字段”好办，第二条解决了这个也一并解决
C chenshaizi Unregistered / Unconfirmed GUEST, unregistred user! 2003-11-28 #4 应该不是很难，但做起来有点烦是真的，我做过一个也差不多吧，但不是取txt而是到xml文件，ICS里的FTP控件功能很好，不防用它试试，设置好username,password,代理(如需要) 就可以下载文件了，文件夹是有格式的那么文件呢，文件没有格式吗，用ids的列表框可以列出
应该不是很难，但做起来有点烦是真的，我做过一个也差不多吧，但不是取txt而是到xml文件，ICS里的FTP控件功能很好，不防用它试试，设置好username,password,代理(如需要) 就可以下载文件了，文件夹是有格式的那么文件呢，文件没有格式吗，用ids的列表框可以列出
X xchen301 Unregistered / Unconfirmed GUEST, unregistred user! 2003-12-02 #5 有些行是注释，有标记可以删除的，文件都是TXT的，
S seagod007 Unregistered / Unconfirmed GUEST, unregistred user! 2003-12-04 #7 var F: TextFile; S:string; i:integer; begin AssignFile(F,FileName);//关联一个文件 Reset(F); //打开这个文件 Readln(F, S); // 读取文件的第一行 while not eof(F) do begin if S = .....then .....// 判断是否应该删掉 Readln(F, S); //读取下一行 ..... end; CloseFile(F); end; end;
var F: TextFile; S:string; i:integer; begin AssignFile(F,FileName);//关联一个文件 Reset(F); //打开这个文件 Readln(F, S); // 读取文件的第一行 while not eof(F) do begin if S = .....then .....// 判断是否应该删掉 Readln(F, S); //读取下一行 ..... end; CloseFile(F); end; end;
