3e3589d0870c4d04b7a59344ec78e505

вообщем проблема такая, есть каталог с исходящими файлами типа 3dl****, dfg*** и т.д.
необходимо с помощью скрипта запомнить первые 3 символа названия файла в массив, затем проверять входящий каталог и по мере поступления файлов сверять первые 3 символа названия файла с теми что есть в массиве, и если таковые совпадения найдутся то удалять их из массива до тех пор пока массив не окажется пуст

// //========================проверка исходящих каталогов=============================================================
TS = Time();
TSDialUp = Time();

while (FilePtkOut.size > 0) {
FilesPtkName= new Enumerator(FilePtkOut.Files);
n = 0;
i = 0;
for (; !FilesPtkName.atEnd(); FilesPtkName.moveNext()) {
n++;

for (;i < n;i++) {
s1ptk= new String(FilesPtkName.item().name);
ptkfls[i] = (s1ptk.charAt(0)+s1ptk.charAt(1)+s1ptk.charAt(2)+s1ptk.charAt(3)+s1ptk.charAt(4));
ptkfls.sort();


}
}
FLogError.WriteLine("Время: "+TimeToStr(d)+" отчеты: "+ptkfls.toString()+" были отправлены");
WScript.sleep(5000);

}
//==========================проверка входящих каталогов===============================================================
do {
while (FilePtkIn.size > 0) {

FilesPtkName2= new Enumerator(FilePtkIn.Files);
i=0
for (; !FilesPtkName2.atEnd(); FilesPtkName2.moveNext()) {
s1ptk2= new String(FilesPtkName2.item().name);
chAt = (s1ptk2.charAt(0)+s1ptk2.charAt(1)+s1ptk2.charAt(2)+s1ptk2.charAt(3)+s1ptk2.charAt(4));

for (;i<ptkfls.length;i++) {

if (ptkfls[i] == chAt) {
FLogError.WriteLine("Время: "+TimeToStr(d)+" был получен ответ на посылку: "+ptkfls[i]+" ждем дальше");
ptkfls[i] = "";

}
else {
break;
}
}
FSO.MoveFile(FilesPtkName2.item().path, ptk);
}
WScript.sleep(5000);

}
FLogError.WriteLine("Время: "+TimeToStr(d)+" нет ответа на посылку: "+ptkfls[i]+" ждем дальше");
}

while (ptkfls[i-1] != "")

DownDial();

проблема в том что если вдруг в то время как мы проверяем входящий каталог, в исходящий каталог могут послать ещё одно сообщение, это надо отслеживать и добавлять это сообщение в конец уже сформированного массива. Вот тут я пока и застрял (запутался).

ptkin = "C:\\Входящие\\";
ptk = "C:\\Обработанные\\";
ptkout = "C:\\На отправку\\";

вот сам макрос так будет понятнее я думаю

вот последний вариант, вот только он не выходит в цикл перебора файлов входящих вот сюда блин (for (; !FilesPtkName2.atEnd(); FilesPtkName2.moveNext()) {)
//------------------------------------------
do {
n = 0;
i = 0;
while ((FilePtkOut.size > 0) | (FilePtkIn.size > 0)){
FilesPtkName= new Enumerator(FilePtkOut.Files);
FilesPtkName2= new Enumerator(FilePtkIn.Files);

for (; !FilesPtkName.atEnd(); FilesPtkName.moveNext()) {
n++;

for (;i < n;i++) {
s1ptk= new String(FilesPtkName.item().name);
ptkfls[i] = (s1ptk.charAt(0)+s1ptk.charAt(1)+s1ptk.charAt(2)+s1ptk.charAt(3)+s1ptk.charAt(4));
FLogError.WriteLine("Время: "+TimeToStr(d)+" была отправлена посылка: "+ptkfls[i]+" ждем дальше");
ptkfls.sort();
}
}
for (; !FilesPtkName2.atEnd(); FilesPtkName2.moveNext()) {
s1ptk2= new String(FilesPtkName2.item().name);
chAt = (s1ptk2.charAt(0)+s1ptk2.charAt(1)+s1ptk2.charAt(2)+s1ptk2.charAt(3)+s1ptk2.charAt(4));
i=0;
for (;i<ptkfls.length;) {
if (ptkfls[i] == chAt) {
FLogError.WriteLine("Время: "+TimeToStr(d)+" был получен ответ на посылку: "+ptkfls[i]+" ждем дальше");
ptkfls[i] = "";
ptkfls.reverse();
ptkfls.length=ptkfls.length-1;
ptkfls.sort();
i++;
//break;
}
else {
break;
}
}
FSO.MoveFile(FilesPtkName2.item().path, ptk);//перенос файлов из папки входящие в обработанные
}

WScript.sleep(5000);
FLogError.WriteLine("Время: "+TimeToStr(d)+" нет ответа на посылку: "+ptkfls[i]+" ждем дальше");
}
}
while (ptkfls.length != 0)//пока массив не будет пуст