通配符

[notebook800]

文件搜索时使用通配符 ，文件查找条件 E13??_*.dcm （查找条件不确定）

如何判断已知文件“E139B_00.DCM” 符合该条件。
如何判断已知文件“E4403-F5205_00.DCM” 不符合该条件

[dinoalex]

pos

[dinoalex]

利用正则,copy,rightstr,leftstr之类的函数

[dinoalex]

还在一个简单的办法,只是加多一些组件:

正则搞出除?*外的字符

把文件字存在ACCESS档里,再用SQL语句中的LIKE来查询

[hongqi162]

*E13*.DCM

[hongqi162]

http://www.koders.com/delphi/fid730F2C34D1F8D72AC1E132C8D447CB2AC2C1D237.aspx

uses ShLwApi;

var
  tmp: string;
begin
  tmp:= 'E139B_00.DCM';
  if ShLwApi.PathMatchSpec( PAnsiChar( tmp ), '*E13*.DCM' ) then
    ....
end;

[skertone]

dir /b E13??_*.dcm >>temp_#$.txt
TStringList.LoadFromFile('temp_#$.txt');

[lyhoo163]

up

[notebook800]

[Quote=引用 5 楼 hongqi162 的回复:]
http://www.koders.com/delphi/fid730F2C34D1F8D72AC1E132C8D447CB2AC2C1D237.aspx


Delphi(Pascal) code
uses ShLwApi;var
tmp: string;begin
tmp:='E139B_00.DCM';if ShLwApi.PathMatchSpec( PAnsiChar( tmp ),'*E13*.DCM' )then
....end;

[/Quote]


测试通过，非常感谢！！！