很急，在线等待，关于打开文件的问题
我想打开一个文件，从中读取数据，而这个文件名中有两位是不固定的，如（Sp1600??.633）类型，各位高手，看看如何打开它？？
问题点数：100、回复次数：7Top
1 楼Drate（小虫(好好学习,天天向上)）回复于 2002-09-17 08:58:24 得分 0
你连文件名都不知道，如何打开？就如你不知道人家的地址，如何去访问人家？Top
2 楼bluespy（自古英雄出我辈, 一入江湖岁月催!）回复于 2002-09-17 09:00:37 得分 0
if opendialog1.execute then ...Top
3 楼d983074（d983074）回复于 2002-09-17 09:07:12 得分 0
用循环判断
function FileSearch(const Name, DirList: string): string;
Top
4 楼bfqu_yuj（泡泡满天飞）回复于 2002-09-17 09:58:25 得分 0
说明一点，这是一类报文，后两位是不固定的，因为所有的报文都放在一个目录底下，有可能出现文件名相似的情况（如Sp160001.633,Sp160002.633,时间相差一个月）我们需要每天自动监测到当日的报文，判断后读取资料。现在的问题是，我能用通配符判断出当日的文件是否存在：
datetostr(filedatetodatetime(fileage('sp1600??.631')))=datetostr(now)
就是无法读取sp1600??.631。
换个说法，在知道这个文件确实存在的前提下，如何得知具体的文件名，这样问题就解决了。
各位高手，想想办法！Top
5 楼d983074（d983074）回复于 2002-09-17 10:21:13 得分 50
用FINDFIRST,FINDNEXT试试
function FindFirst(const Path: string; Attr: Integer; var F: TSearchRec): Integer;
type
TSearchRec = record
Time: Integer;
Size: Integer;
Attr: Integer;
Name: TFileName;
ExcludeAttr: Integer;
FindHandle: THandle;
FindData: TWin32FindData;
end;
令Name:='sp1600??.631'
Top
6 楼moudy（勇士(绝对盗版)）回复于 2002-09-17 10:24:03 得分 0
gzTop
7 楼doni（蓝色天空）回复于 2002-09-17 10:57:11 得分 50
var
sr: TSearchRec;
begin
if findfirst('f:\Sp1600??.633',faAnyFile,sr)=0 then
showmessage(sr.Name);
while FindNext(sr) = 0 do
showmessage(sr.Name); //通过sr可以取得文件名
FindClose(sr);
end;
Top
