Серый форум — VBS:Win XP ругается на CDate

Re: VBS:Win XP ругается на CDate

2015-08-18T07:30:30Z

griha09 пишет:

Спасибо!!!

Пож-та, сейчас ещё мелкие правки внёс с Run.

Re: VBS:Win XP ругается на CDate

2015-08-18T05:17:33Z

Спасибо!!!

Re: VBS:Win XP ругается на CDate

2015-08-17T22:56:26Z

Как-то уже глаза мылит от этой 'порнографии'. Оформил:

ffmpeg   = """C:\ffmpeg\ffmpeg.exe"""
Input    = "D:\Video\"         ' папка input
Output   = Input & "segment\"  ' папка segment
Interval = CDate("00:03:00")

Set FSO = CreateObject("Scripting.FileSystemObject")
Dim WSH : Set WSH = WScript.CreateObject("WScript.Shell")
If Not FSO.FolderExists(Output) Then FSO.CreateFolder Output

For Each File in FSO.GetFolder(Input).Files
  Name = FSO.GetBaseName(File)
  With CreateObject("MediaInfo.ActiveX")
    Handle = .MediaInfo_New()
    .MediaInfo_Open   Handle, CStr(File)
    .MediaInfo_Option Handle, "Inform", "General;%Duration/String3%"
    Duration = Left(.MediaInfo_Inform(Handle, 0), 8)
  End With
  S1 = "00:00:00"
  For i = 1 To Int(CDate(Duration)/Interval)
    WSH.Run ffmpeg & " -i """ & File & """ -vcodec copy -acodec copy -ss " _
    & S1 & " -t " & Interval & " """ & Output & Name & i & ".avi""", 0, True
    S1 = CDate(S1) + Interval
  Next
Next

На 7-ке советую с манифестом попробовать.

Re: VBS:Win XP ругается на CDate

2015-08-17T20:33:21Z

Результаты по MediaInfoActiveX.dll

В Win XP MediaInfoActiveX.dll зарегистрировался успешно

DllRegisterServer в c:\WINDOWS\system32\MediaInfoActiveX.dll завершено успешно.

но все равно выдает ошибку

---------------------------
Windows Script Host
---------------------------
Сценарий:    c:\MediaInfoActiveX.vbs
Строка:    15
Символ:    3
Ошибка:    Несоответствие типа: 'MediaInfo_Open'
Код:    800A000D
Источник:     Ошибка выполнения Microsoft VBScript

---------------------------
ОК   
---------------------------

В Win7 MediaInfoActiveX.dll просто не хочет зарегистрироватся

[Window Title]
RegSvr32
[Content]
Не удалось загрузить модуль "c:\Windows\System32\MediaInfoActiveX.dll".

Проверьте, что двоичный файл хранится на указанном пути или запустите отладку, чтобы диагностировать проблемы с этим двоичным файлом или зависимыми DLL-файлами.
Не найден указанный модуль.
[ОК]

потому и выдает ошибку

---------------------------
Windows Script Host
---------------------------
Сценарий:    C:\MediaInfoActiveX.vbs
Строка:    13
Символ:    1
Ошибка:    Невозможно создание объекта контейнером ActiveX: 'MediaInfo.ActiveX'
Код:    800A01AD
Источник:     Ошибка выполнения Microsoft VBScript

---------------------------
ОК   
---------------------------

ну ладно не надо Win7, что WinXP не нравится в 'MediaInfo_Open'?

вот скрипт MediaInfoActiveX.vbs


input = "d:\Video\"            'папка input

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set WSHShell = WScript.CreateObject("WScript.Shell")


    'Получаем объектную модель текущего каталога
    Set Folder = objFSO.GetFolder(input)
 
    'Перебираем все файлы в текущем каталоге
    For Each File in Folder.Files

With CreateObject("MediaInfo.ActiveX")
  handle = .MediaInfo_New()
  .MediaInfo_Open   handle, File
  .MediaInfo_Option handle, "Inform", "General;%Duration/String3%"
  Duration = .MediaInfo_Inform(handle, 0)
End With
    param = Left(Duration, 8)

MsgBox Str
    Next

Set WSHShell = Nothing

Re: VBS:Win XP ругается на CDate

2015-08-15T16:25:53Z

запустил скрипт, появилась ошибка

Текст сообщения забирается по Ctrl+C без всяких скриншотов.
Ошибка могла бы появится в случае отсутствия регистрации. Случайно, Uninstall не запускался? Регистрация была на x32 системе?

griha09 пишет:

Размер MediaInfoActiveX.dll - 22016 байт. Чето маловато, наверное.

Да ну? dynwrapx.dll вдвое меньше.

griha09 пишет:

Что делать с манифестом?

Именуется MediaInfoActiveX.sxs.manifest. Кладётся рядом с MediaInfo.dll, компонентом, wscript.exe и

+ wscript.exe.manifest

type="win32"
name="wscript.exe"
version="1.0.0.0" />

type="win32"
name="MediaInfoActiveX.sxs"
version="1.0.0.0" />

запускается: "путь к данному wscript.exe" "путь к скрипту".
Получается переносной вариант (кнопка в ФМ, ярлык и т.п.).

griha09 пишет:

в смысле что за "общепонятной схематикой расстановки отступов"

Читаем.

Re: VBS:Win XP ругается на CDate

2015-08-15T15:38:54Z

Flasher пишет:

Я пишу про подобный цикл, а не сам цикл. Ведь правильней использовать For i = 0 to Minute(param).

Че-то недогадался, да и Do While CDate(param) > CDate(s1) отлично работает.

Flasher пишет:

griha09 пишет:
Это о чем?
О коде, разумеется.

в смысле что за "общепонятной схематикой расстановки отступов"

Re: VBS:Win XP ругается на CDate

2015-08-15T15:34:00Z

Flasher пишет:

Не надо ничего скрывать. Я же не просто так указал на компонент.
Пишем
With CreateObject("MediaInfo.ActiveX")
  handle = .MediaInfo_New()
  .MediaInfo_Open   handle, File
  .MediaInfo_Option handle, "Inform", "General;%Duration/String3%"
  Duration = .MediaInfo_Inform(handle, 0)
End With
    param = Left(Duration, 8)

Я, к сожалению, ни разу не программист, поэтому эта подсказка мне не помогла.
Переделал код в скрипте
скачал MediaInfo_DLL_0.7.76_Windows_i386_WithoutInstaller.7z распаковал, нашел MediaInfoActiveX.dll, в той же папке запустил MediaInfoActiveX_Install.bat
в ОС появились
c:\Windows\System32\MediaInfo.dll
c:\Windows\System32\MediaInfoActiveX.dll
запустил скрипт, появилась ошибка

на эту строку


With CreateObject("MediaInfo.ActiveX")

Для проверки ввел
regsvr32 c:\Windows\System32\MediaInfoActiveX.dll
получил ошибку

Размер MediaInfoActiveX.dll - 22016 байт. Чето маловато, наверное.

Что делать с манифестом?

Re: VBS:Win XP ругается на CDate

2015-08-15T14:55:56Z

griha09 пишет:

Вот я отрезал, например, кусок с 0 до 5 минут, затем сложил 00:00:00+00:05:00, у меня стало -ss 00:05:00, затем отрезал кусок с 5 до 10 минут итд. до конца видео. Поэтому и нужен цикл до конца видео.

Я пишу про подобный цикл, а не сам цикл. Ведь правильней использовать For i = 0 to Minute(param).

griha09 пишет:

Это о чем?

О коде, разумеется.

Re: VBS:Win XP ругается на CDate

2015-08-15T14:42:45Z

Flasher пишет:

Do While CDate(param) > CDate(s1) - можно смысл в необходимости подобного цикла объяснить? :\

команда


"""" & ffmpeg & """  -i """ & File & """ -vcodec copy -acodec copy -ss "& s1 &" -t "& dlit &" """&output&Name2&i&".avi"

или в оригинале


ffmpeg -i input.avi -vcodec copy -acodec copy -ss 00:00:00 -t 00:05:00 segment.avi

-ss 00:00:00 - время откуда начинаем резать
-t 00:05:00 - длительность куска
Вот я отрезал, например, кусок с 0 до 5 минут, затем сложил 00:00:00+00:05:00, у меня стало -ss 00:05:00, затем отрезал кусок с 5 до 10 минут итд. до конца видео. Поэтому и нужен цикл до конца видео.

Flasher пишет:

И большая просьба уважить окружающих, не нужно пренебрегать общепонятной схематикой расстановки отступов.

Это о чем?

Re: VBS:Win XP ругается на CDate

2015-08-15T08:20:54Z

RecursiveFolderScan - название не годится, тут нет никакой рекурсии. Да и вообще процедура тут не нужна.
Do While CDate(param) > CDate(s1) - можно смысл в необходимости подобного цикла объяснить? :\
И большая просьба уважить окружающих, не нужно пренебрегать общепонятной схематикой расстановки отступов.

Re: VBS:Win XP ругается на CDate

2015-08-15T07:50:50Z

Не надо ничего скрывать. Я же не просто так указал на компонент.
Пишем

With CreateObject("MediaInfo.ActiveX")
  handle = .MediaInfo_New()
  .MediaInfo_Open   handle, File
  .MediaInfo_Option handle, "Inform", "General;%Duration/String3%"
  Duration = .MediaInfo_Inform(handle, 0)
End With
    param = Left(Duration, 8)

вместо

MediaInfo="c:\MediaInfo_CL\MediaInfo.exe"
...
Set WshExec = WshShell.Exec (MediaInfo&" "&"""--Inform=General;%Duration/String3%"" """ & File & """")
Set TextStream = WshExec.StdOut
    param = Left(TextStream.ReadLine(),8)

+ Манифест, если надо:

Re: VBS:Win XP ругается на CDate

2015-08-15T05:05:34Z

вот переделал с MediaInfo, усе работает, правда mkv разрезает с ошибками, но это уже проблема ffmpeg

Раздражает появляющееся окно WshShell.Exec. Как его скрыть?


'сегментирование видео из командной строки в ffmpeg

ffmpeg="c:\ffmpeg\ffmpeg.exe"
MediaInfo="c:\MediaInfo_CL\MediaInfo.exe"
input = "d:\Video\"            'папка input
output= input&"segment\"        'папка segment
dlit="00:03:00"

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set WSHShell = WScript.CreateObject("WScript.Shell")
If not objFSO.FolderExists(output) Then objFSO.CreateFolder output          'создаем output

RecursiveFolderScan input

'Создаём процедуру рекурсивного обхода каталога
Sub RecursiveFolderScan(FolderPath)
    'Получаем объектную модель текущего каталога
    Set Folder = objFSO.GetFolder(FolderPath)
 
    'Перебираем все файлы в текущем каталоге
    For Each File in Folder.Files
Name2 = objFSO.GetBaseName(File)
' проверяем на длительность
Set WshExec = WshShell.Exec (MediaInfo&" "&"""--Inform=General;%Duration/String3%"" """ & File & """")
Set TextStream = WshExec.StdOut
    param = Left(TextStream.ReadLine(),8)

s1="00:00:00"
i=1
Do While  CDate(param) > CDate(s1)

RetCode = WSHShell.Run ("""" & ffmpeg & """  -i """ & File & """ -vcodec copy -acodec copy -ss "& s1 &" -t "& dlit &" """&output&Name2&i&".avi",0,True)

 ' складываем длительность
s1 = DateDiff("s", 0, s1) + DateDiff("s", 0, dlit)
H = Int(s1/3600)     
M1 = s1   - (H * 3600)
M = Int(M1/60)       
S  = M1   - (M * 60)
s1 =  TimeSerial(H, M, S)
i=i+1

Loop
    Next
 End Sub

Re: VBS:Win XP ругается на CDate

2015-08-14T18:03:06Z

Тогда ситуация ещё хуже, чем я думал, ибо я вовсе не описался.

Re: VBS:Win XP ругается на CDate

2015-08-14T17:29:35Z

Flasher пишет:

К тому же для XP индекс длительности 22, а не 27. Поэтому сперва нужно узнать версию системы в реестре.

Только не 22, а 21. Только что проверил.

Re: VBS:Win XP ругается на CDate

2015-08-14T15:36:25Z

griha09
Мда. А смысл что-то куда-либо переносить, если можно сразу обрабатывать исходные файлы?
Обращу также внимание, что стоило таки спросить про более грамотный перенос в надлежащем топике, ибо тут нет необходимости в цикле и FSO.
Разумеется, ошибка будет, а куда ей деться в таких условиях? Тут несомненно стоило прежде проверять диск по If FSO.DriveExists(I:) Then.
Я уже как-то писал, что лучше для таких вещей не vbs-скриптами пользоваться. Пусть лучше этим занимается программа, работающая на уровне ядра.