[loficous]

Я просто затупил при ответе.
Где в коде изменить чтобы указать путь к папке, не перетаскивая ее?

Так и сделано. «Конкретная папка» указывается параметром при вызове скрипта. Можете просто перетаскивать потребную папку прямо на скрипт (или на ярлык на скрипт) в Проводнике. В этой папке будут обработаны все файлы вида «Pays_<цифры и подчёркивания>.txt». »

[Iska]

Где в коде изменить чтобы указать путь к папке, не перетаскивая ее? »

Вообще-то, в коде — нигде.

Создайте пакетный файл, в котором напишите:

Код:

@echo off
cscript.exe //nologo "Путь к скрипту" "Путь к папке"

Например, скрипт именуется Мой скрипт.vbs и находится по пути C:\Мои проекты\0180, обработать нужно каталог C:\Мои проекты\0180\0005. Тогда вторая строка будет выглядеть как:

Код:

cscript.exe //nologo "C:\Мои проекты\0180\Мой скрипт.vbs" "C:\Мои проекты\0180\0005"

[loficous]

Благодарю Вас за помощь.

Например, скрипт именуется Мой скрипт.vbs и находится по пути C:\Мои проекты\0180, обработать нужно каталог C:\Мои проекты\0180\0005. Тогда вторая строка будет выглядеть как: »

[megaloman]

Вот батник с привлечением js

Код:

@set @E=1; /*
@Echo Off
	cls

       	Set "FileIn=Z:\Soft_In\Pays_*.txt"
	rem                                                                         1                   2                   3                   4                   5                   6               7
	FOR %%f IN ("%FileIn%") DO Call Cscript //NoLogo /E:jscript "%~dpnx0" "%%f" "\|APLT\|" "|1201|" "\|awnb\|" "|2527|" "\|ibhb\|" "|2526|" "\|kasp\|" "|4000|" "\|kpst\|" "|4001|" "\|104\|" "|5|" "\|00000004\|" "|5|"  

	pause
GoTo :Eof

*/
var oArg = WScript.Arguments;
var nArg = oArg.Count();
var nRep = Math.floor(nArg/2);

if (nArg <= 3 || nRep == nArg/2) {
	WScript.Echo("Error! Invalid number of arguments!");
	WScript.Quit(240);
}
var FText=oArg(0);

var FSO=WScript.CreateObject("Scripting.FileSystemObject");

var InFile;
try {InFile = FSO.OpenTextFile(FText,1);}
catch (e) {
   if (e !=0 ) {
	WScript.Echo("Error! " + FText + "  " + e.description);
       	WScript.Quit(240);
     }
}
var TextAll = InFile.ReadAll();
InFile.Close();

var ss,RegRep;           

for (var i = 1; i < nArg; i+=2) {
//	WScript.Echo(oArg(i) + "  " + oArg(i+1));
	TextAll=TextAll.replace(new RegExp(oArg(i),"ig"),oArg(i+1));
}

InFile = FSO.OpenTextFile(FText,2);
InFile.Write(TextAll);
InFile.Close();

В батнике в For для каждого файла вызывается js. При этом в вызове необходимо указать пары для замены
"\|заменяемое\|" "|замена|"
Количество пар произвольно
Я принципиально хотел сохранить символы | при поиске и замене, из опасения ложного срабатывания. Но, каюсь, не сумел написать регулярное выражение, если указывать в виде
"|заменяемое|" "|замена|", поэтому приходится писать "\|заменяемое\|"
Путь к файлам укажите свой.
Надеюсь, найдутся люди и натыкают меня носом, как это сделать.

[loficous]

В батнике в For для каждого файла вызывается js. При этом в вызове необходимо указать пары для замены "\|заменяемое\|" "|замена|" Количество пар произвольно Я принципиально хотел сохранить символы | при поиске и замене, из опасения ложного срабатывания. Но, каюсь, не сумел написать регулярное выражение, если указывать в виде "|заменяемое|" "|замена|", поэтому приходится писать "\|заменяемое\|" Путь к файлам укажите свой. Надеюсь, найдутся люди и натыкают меня носом, как это сделать. »

Спасибо вам за ваши старания! Очень впечатлён отзывчивостью пользователей данного форума, если еще столкнусь с такими ситуациями обязательно обращусь.

[loficous]

Вообще-то, в коде — нигде. Создайте пакетный файл, в котором напишите: Код: @echo off cscript.exe //nologo "Путь к скрипту" "Путь к папке" Например, скрипт именуется Мой скрипт.vbs и находится по пути C:\Мои проекты\0180, обработать нужно каталог C:\Мои проекты\0180\0005. Тогда вторая строка будет выглядеть как: Код: cscript.exe //nologo "C:\Мои проекты\0180\Мой скрипт.vbs" "C:\Мои проекты\0180\0005" »

Здравствуйте!! только увидел ваше сообщение, и решил попробовать. попытка не увенчалась успехом, командная строка мелькает с надписью "ошибка ввода".

[Iska]

командная строка мелькает с надписью "ошибка ввода". »

Чтобы она не мелькала — сначала откройте её, а затем исполняйте в ней пакетный файл.

[loficous]

Чтобы она не мелькала — сначала откройте её, а затем исполняйте в ней пакетный файл. »

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

вопрос можно ли какнибудь сделать так чтобы он принимал кирилицу, или нет?

[Iska]

опрос можно ли какнибудь сделать так чтобы он принимал кирилицу, или нет? »

Конечно, можно. Просто сохраняйте пакетный файл в кодировке OEM/866. Стандартный Блокнот для этого не годится.

[loficous]

Конечно, можно. Просто сохраняйте пакетный файл в кодировке OEM/866. Стандартный Блокнот для этого не годится. »

сейчас такая нелепая ситуация. не могу вспомнить как прописать путь так, чтобы он считывал из этой же папки (любой в какую его положишь)