关于文件操作 我需打开一个文本文件,然后查找是否存在指定字符串,如果没有就添加该有哪个函数查找. 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 把文本文件,付给一个Strings类型的变量,然后再查找 TStringListloadfromfile然后是字符串操作,你不会不知道POS吧?当然你要是自己去哈希也可以 memo1.loadfromfile, pos('abcd',memo1.text) (1)如果文本文件很小,楼上的方法是适用的,即,载入到一个TStringList中,然后在这个字符串列表中查找;(2)如果文本文件很大,我建议使用文件IO的方法,算法如下:打开文件;读文件,每次读一个字符,如果与目标匹配,则读取目标字符串长度个字符,作比较,如果匹配,则成功返回,否则返回则才读文件位置,继续读下一个字符,直到结束 openfile('c:\winnt\system32\drivers\ect\hosts',null,of_read and of_write);为甚模这样写打开文件不行,老报错 fileopen('c:\winnt\system32\drivers\ect\hosts',fmOpenReadWrite);openfile('c:\winnt\system32\drivers\ect\hosts',OF_READWRITE); 告错了是在loadfromfile时报错不能打开文件 能不能从一个form打开另一个form,具体如何操作,谢谢 有文件实时监控的软件吗?? 两个问题 一个很菜的问题? 关于串口通讯 FastReport问题 批量执行sql,如果有错误,跃过去,在delphi中如何实现?在线等待!! 一个数据表的打印 DOS下用C语言怎么访问后台SQL Server??答出来还有分加!! 求教!菜鸟求救! 找人帮忙 如何实现透明PANEL
楼上的方法是适用的,即,载入到一个TStringList中,然后在这个字符串列表中查找;
(2)如果文本文件很大,
我建议使用文件IO的方法,算法如下:
打开文件;
读文件,每次读一个字符,如果与目标匹配,则读取目标字符串长度个字符,作比较,如果匹配,则成功返回,否则返回则才读文件位置,继续读下一个字符,直到结束
为甚模这样写打开文件不行,老报错