完整脚本。。。避免了重复的相同后缀
--取得文件列表
FileString:=Catalog(FileLocation,"F")
--取得文件个数
FileNumber:=LineCount(FileString,Return)
--初始化文件后缀名记录字符串
FileFixs:=""
FileCRC:=0
--取得文件后缀名
repeat with i:=1 to FileNumber
FileNames:=GetLine(FileString,i)
lastindex:=CharCount(FileNames)
FileFix:=SubStr(FileNames,lastindex-2, lastindex)
FixsNumber:=LineCount(FileFixs,Return)
repeat with k:=1 to FixsNumber
FixsNames:=GetLine(FileFixs,k)
if FixsNames=FileFix then
FileCRC:=1
else
FileCRC:=0
end if
end repeat
if FileCRC=0 then
FileFixs:=FileFixs^FileFix^Return
end if
end repeat
范例下载:
判断文件后缀名8K