D devilsniffer Unregistered / Unconfirmed GUEST, unregistred user! 2005-06-02 #1 一个文本文件，里面包含如下地址，每个为一行：<br><br>http://www.123.com<br>http://www.456.com<br>http://www.789.com<br>........<br><br>然后用一个程序来访问这个记事本文件，如果发现存在里面包含的网站地址，就执行某些操作，代码如何写？
一个文本文件，里面包含如下地址，每个为一行：<br><br>http://www.123.com<br>http://www.456.com<br>http://www.789.com<br>........<br><br>然后用一个程序来访问这个记事本文件，如果发现存在里面包含的网站地址，就执行某些操作，代码如何写？
D devilsniffer Unregistered / Unconfirmed GUEST, unregistred user! 2005-06-02 #2 一个文本文件，里面包含如下地址，每个为一行：<br><br>http://www.123.com<br>http://www.456.com<br>http://www.789.com<br>........<br><br>然后用一个程序来访问这个记事本文件，如果发现存在里面包含的网站地址，就执行某些操作，代码如何写？
一个文本文件，里面包含如下地址，每个为一行：<br><br>http://www.123.com<br>http://www.456.com<br>http://www.789.com<br>........<br><br>然后用一个程序来访问这个记事本文件，如果发现存在里面包含的网站地址，就执行某些操作，代码如何写？
J jangill Unregistered / Unconfirmed GUEST, unregistred user! 2005-06-02 #3 Var F:TextFile;<br> locate: String;<br>begin<br>Assignfile(F, '文本文件全路径');<br>Reset(F);<br>while Not F,Eof do<br>begin<br>readln(Fj, locate);<br>if locate='http://www.456.com'<br>begin<br>//您要做的事情在这里<br>Break;<br>end<br>end<br><br>close(F)<br>end;
Var F:TextFile;<br> locate: String;<br>begin<br>Assignfile(F, '文本文件全路径');<br>Reset(F);<br>while Not F,Eof do<br>begin<br>readln(Fj, locate);<br>if locate='http://www.456.com'<br>begin<br>//您要做的事情在这里<br>Break;<br>end<br>end<br><br>close(F)<br>end;
爱 爱不到要偷 Unregistered / Unconfirmed GUEST, unregistred user! 2005-06-02 #4 var<br> F: TextFile;<br> s,sTemp: string;<br>begin<br> try<br> AssignFile(F,'d:/abc.txt');<br> ReSet(F);<br> while not Eof(F) do<br> begin<br> ReadLn(F,sTemp);<br> s:=trim(copy(sTemp,1,pos(' ',sTemp)-1));<br> showmessage(trim(copy(sTemp,pos(' ',sTemp)+1,length(sTemp))));<br> end;<br> finally<br> CloseFile(F);<br> end;
var<br> F: TextFile;<br> s,sTemp: string;<br>begin<br> try<br> AssignFile(F,'d:/abc.txt');<br> ReSet(F);<br> while not Eof(F) do<br> begin<br> ReadLn(F,sTemp);<br> s:=trim(copy(sTemp,1,pos(' ',sTemp)-1));<br> showmessage(trim(copy(sTemp,pos(' ',sTemp)+1,length(sTemp))));<br> end;<br> finally<br> CloseFile(F);<br> end;
N newsmile Unregistered / Unconfirmed GUEST, unregistred user! 2005-06-02 #5 var<br> str:tstringlist;<br> i:integer;<br>begin<br> str:=tstringlist.Create;<br> str.LoadFromFile('d:/a.txt');<br>for i:=0 to str.strings.count-1 do<br> if pos(edit1.text,str.strings)<>0 then<br>//做你的事<br>end;
var<br> str:tstringlist;<br> i:integer;<br>begin<br> str:=tstringlist.Create;<br> str.LoadFromFile('d:/a.txt');<br>for i:=0 to str.strings.count-1 do<br> if pos(edit1.text,str.strings)<>0 then<br>//做你的事<br>end;
C caihua Unregistered / Unconfirmed GUEST, unregistred user! 2005-06-02 #6 Memo1.Line.LoadFile('文件名');<br>if memo1.line.indexof('网址')>=0 then<br>begin<br> .....<br>end;
Memo1.Line.LoadFile('文件名');<br>if memo1.line.indexof('网址')>=0 then<br>begin<br> .....<br>end;
J jangill Unregistered / Unconfirmed GUEST, unregistred user! 2005-06-02 #7 好的.上面的3个方法都是对的. 嘿, Delphi高手真多.山外有山楼外楼.
D devilsniffer Unregistered / Unconfirmed GUEST, unregistred user! 2005-06-02 #8 RE： newsmile<br>for i:=0 to str.strings.count-1 do<br><br>这一句为什么编译不过去？
N newsmile Unregistered / Unconfirmed GUEST, unregistred user! 2005-06-02 #10 对不起，没注意，应该是：for i:=0 to str.count-1 do
