I
ilook
Unregistered / Unconfirmed
GUEST, unregistred user!
以下是几个典型的文件名:
2002土建专业福州市200201综合价.mdb
2001土建专业福州市200202综合价.mdb
2002土建专业福州市200203信息价.mdb
2002安装专业福州市区200204综合价.mdb
2002安装专业福州马尾区200202信息价.mdb
.....
现在进行对文件名搜索
条件:专业、地区、年份、月份、价格类别(均可选)如果没有选择条件,我将它条件对应的关健字赋值为0。因为每个文件名中必包含0。
现在一个用户要对2月份的价格进行查询,他只在搜索条件中选择02,
如果用pos(tempmonths,s)的方式会找到错误的结果如把
2002土建专业福州市200203信息价.mdb找到。因为这个文件名中包含了02的字符。
现在就要实现这样的功能:只要找到2002土建专业福州市200202综合价.mdb和2002安装专业福州马尾区200202信息价.mdb两个
文件。请记住:以上5个条件可选可不选!!这是十分重要的!!!!
以下为原来的搜索代码
if FindFirst(tempfile,faAnyFile, sr)=0 then
begin
while FindNext(sr)=0 do
begin
s:=trim(ExtractFileName(sr.Name));
if length(s)=0 then continue;
a:=pos(tempsoftsort,s);//专业类别
if a>0 then
begin
b:=pos(temparea,s);//地区
if b>0 then
begin
c:=pos(tempyears,s);//年份
if c>0 then
begin
d:=pos(tempmonths,s);//月份
if d>0 then
begin
e:=pos(temppricesort,s);//价格类别
if e>0 then
begin
找到符合条件的结果后的程序段
end;
end;
end;
end;
end;
end;
end;
2002土建专业福州市200201综合价.mdb
2001土建专业福州市200202综合价.mdb
2002土建专业福州市200203信息价.mdb
2002安装专业福州市区200204综合价.mdb
2002安装专业福州马尾区200202信息价.mdb
.....
现在进行对文件名搜索
条件:专业、地区、年份、月份、价格类别(均可选)如果没有选择条件,我将它条件对应的关健字赋值为0。因为每个文件名中必包含0。
现在一个用户要对2月份的价格进行查询,他只在搜索条件中选择02,
如果用pos(tempmonths,s)的方式会找到错误的结果如把
2002土建专业福州市200203信息价.mdb找到。因为这个文件名中包含了02的字符。
现在就要实现这样的功能:只要找到2002土建专业福州市200202综合价.mdb和2002安装专业福州马尾区200202信息价.mdb两个
文件。请记住:以上5个条件可选可不选!!这是十分重要的!!!!
以下为原来的搜索代码
if FindFirst(tempfile,faAnyFile, sr)=0 then
begin
while FindNext(sr)=0 do
begin
s:=trim(ExtractFileName(sr.Name));
if length(s)=0 then continue;
a:=pos(tempsoftsort,s);//专业类别
if a>0 then
begin
b:=pos(temparea,s);//地区
if b>0 then
begin
c:=pos(tempyears,s);//年份
if c>0 then
begin
d:=pos(tempmonths,s);//月份
if d>0 then
begin
e:=pos(temppricesort,s);//价格类别
if e>0 then
begin
找到符合条件的结果后的程序段
end;
end;
end;
end;
end;
end;
end;