[Alexander_88]

Спасибо, сейчас все, как хотел работает, изменил немного, имена берутся из categories, а расширение всегда ".bat". Вроде ничего не испортил... скрипт, который размножил, попробовал запустить, тоже работает.

Скрытый текст

Код:

INcategories = "C:\Users\Alexander\work\GENERATOR\categories.txt"
INnames = "C:\Users\Alexander\work\GENERATOR\names.txt"
INfish = "C:\Users\Alexander\work\GENERATOR\in.txt"
OutDir = "C:\Users\Alexander\work\GENERATOR"

key1 = "^names^"
key2 = "^categories^"

Set FSO = CreateObject("Scripting.FileSystemObject")

Masscat = Split(ReadFile(INcategories, FSO), vbCrLf)
Massnam = Split(ReadFile(INnames, FSO), vbCrLf)
N1 = LBound(Masscat)
NN = UBound(Masscat)
If NN <> UBound(Massnam) Then
    MsgBox "Files" + vbCrLf + vbCrLf + INcategories + vbCrLf + INnames + vbCrLf + vbCrLf + "contain a different number of lines"
    WScript.Quit 1
End If

fish = ReadFile(INfish, FSO)
Ext = FSO.GetExtensionName(INfish)

On Error Resume Next

For i = N1 To NN
    If Len(Trim(Massnam(i))) <> 0 Then
        Err.Number = 0
        Set Fout = FSO.OpenTextFile(OutDir + "\" + Masscat(i) + ".bat", 2, True)
        If Err.Number <> 0 Then
            MsgBox "Error open file " + vbCrLf + vbCrLf + OutDir + "\" + Massnam(i) + "." + Ext + vbCrLf + vbCrLf + "Err.Number " + CStr(Err.Number) + vbCrLf + Err.Description
            Fout.Close
        Else
            Fout.Write Replace(Replace(fish, key1, Massnam(i)), key2, Masscat(i))
            Fout.Close
        End If
    End If
Next
On Error GoTo 0
' ================================

Function ReadFile(filename, FO)
    On Error Resume Next
    Set Fin = FO.OpenTextFile(filename, 1, False)
    If Err.Number <> 0 Then
        MsgBox "Error open file " + vbCrLf + vbCrLf + filename + vbCrLf + vbCrLf + "Err.Number " + CStr(Err.Number) + vbCrLf + Err.Description
        WScript.Quit 1
    End If
    ReadFile = Fin.ReadAll
    Fin.Close
    On Error GoTo 0
End Function

[megaloman]

Alexander_88, Моя знакомая говАривала: я с Вас валяюсь!

расширение всегда ".bat". »

Тогда и INfish = "C:\Users\Alexander\work\GENERATOR\in.txtbat"
Не знаю, что за батник, но

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

Я Вам делал эту задачу, и батник у меня прекрасно размножался - только не надо в коде что-то менять, передавайте в него параметры.

Вроде ничего не испортил... скрипт, который размножил, попробовал запустить, тоже работает. »

Цитата: Запустим start.bat. А зачем это делать? Для чего? »

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

[Alexander_88]

Тогда и INfish = "C:\Users\Alexander\work\GENERATOR\in.txtbat" »

in.txt давно у меня, в него часто записывается нужный текст и не один скрипт с этим файлом работает, его имя и расширение нельзя менять, я в него просто текст батника вставляю, а скрипт уже размножает с именами *.bat