Войти

Показать полную графическую версию : [решено] Создание серии файлов.


nobody47
28-12-2011, 17:21
Я новенький в VBS, просьба помидорами не закидывать =)
Необходимо создать серию файлов, для последовательной записи в них содержимого буфера обмена. Т.е. создаем файл -> меняем содержимое б.ф.-> копируем; и так в цикле.

Создавать и изменять файлы я умею. Но писать для каждого файла свою строчку (а файлов будет >=100) очень не охото.

P.S. чувствую такая же задача у меня встанет и в Matlab'е, наверняка существует более менее универсальный медот.)

Iska
28-12-2011, 22:37
nobody47, не очень понятно, что Вам нужно. Попробуйте дать пояснение на примере.

nobody47
29-12-2011, 09:11
Постараюсь понятней.

Пример:

эта программа создаст 1 txt файл:

Dim fso, f1
Set fso = CreateObject("Scripting.FileSystemObject")
Set f1 = fso.CreateTextFile("C:\test.txt", True)

Но следующий файл должен называться, например, test2.txt, потом test3.txt. Но в строчке
Set f1 = fso.CreateTextFile("C:\test.txt", True)
нельзя вностить переменные в название файла. Как быть?)

Iska
29-12-2011, 11:01
nobody47, понятней не стало. Нужен не код, а подробное описание желаемого процесса словами. В том числе и касаемо связанного с буфером обмена.

нельзя вностить переменные в название файла. »
Отчего нет?
Option Explicit

Dim i

With WScript.CreateObject("Scripting.FileSystemObject")
For i = 1 To 10
With .CreateTextFile("C:\test" & CStr(i) & ".txt", True)
.Write i

.Close
End With
Next
End With

WScript.Quit 0

nobody47
03-01-2012, 16:57
Во! Благодарю, теперь проблема решена. Не знал я как воткнуть переменную в имя файла)).




© OSzone.net 2001-2012