[Iska]

91892823, попробуйте скрипт vbscript:

читать дальше »

Код:

Option Explicit

Const READYSTATE_COMPLETE = 4


Dim strSourceFolder

Dim objShell
Dim objFolder
Dim objFolderItem

Dim intDuration
Dim dtTotalDuration


If WScript.Arguments.Count = 1 Then
	strSourceFolder = WScript.Arguments.Item(0)
	
	Set objShell  = WScript.CreateObject("Shell.Application")
	Set objFolder = objShell.NameSpace(strSourceFolder)
	
	If Not objFolder Is Nothing Then
		For intDuration = 0 To 86
			If UCase(objFolder.GetDetailsOf(, intDuration)) = UCase("Длительность") Or _
				UCase(objFolder.GetDetailsOf(, intDuration)) = UCase("Duration") Then
				
				Exit For
			End If
		Next
		
		dtTotalDuration = CDate("00:00:00")
		
		For Each objFolderItem In objFolder.Items
			If UCase(Right(objFolderItem.Name, 4)) = UCase(".mp3") Then
				dtTotalDuration = dtTotalDuration + CDate(objFolder.GetDetailsOf(objFolderItem, intDuration))
			End If
		Next
		
		With WScript.CreateObject("InternetExplorer.Application")
			.Navigate("about:blank")
			
			Do
				WScript.Sleep 100
			Loop Until Not .Busy And .ReadyState = READYSTATE_COMPLETE
			
			.document.parentWindow.clipboardData.setData "text", CStr(dtTotalDuration)
			
			.Quit
		End With
	Else
		WScript.Echo "Can't find source folder [" & strSourceFolder & "]"
	End If
	
	Set objFolder = Nothing
	Set objShell  = Nothing
Else
	WScript.Echo "Usage: " & WScript.ScriptName & " <Source folder>" & vbCrLf & _
		"" & vbCrLf & _
		"Or drag one folder into this script"
End If

WScript.Quit 0

папку в которой он находится »

Это в корне неправильный подход.

[Foreigner]

Потребуется консольный mediainfo:

Код:

@echo off
setlocal enabledelayedexpansion

pushd %1 || goto:eof
set "mediainfo=mediainfo --Inform=Audio;%%Duration/String3%%"

for %%i in (*.mp3) do (

    for /f "tokens=1 delims=." %%j in (' !mediainfo! "%%i" ') do call:sum "%%j"

)
echo %th%:%tm%:%ts% | clip
popd
goto:eof

:sum
for /f "tokens=1-3 delims=:" %%i in (%1) do (

    set /a h=1%%i-100
    set /a m=1%%j-100
    set /a s=1%%k-100

)

set /a th+=h
set /a tm+=m
set /a ts+=s

if %ts% geq 60 (

    set /a tm+=1
    set /a ts-=60

)

if %tm% geq 60 (

    set /a th+=1
    set /a tm-=60

)

Вызывать с параметром - путь к папке с файлами mp3. Миллисекунды не считал

[91892823]

Iska, спасибо. Но я ничего не смыслю в vbscript`ах, как им хоть пользоваться?

Foreigner, консольный mediainfo?
Простите за нубство..

[Iska]

как им хоть пользоваться? »

Сохранить код приведённого скрипта в файл с расширением «.vbs» (можно посредством Блокнота, указав кодировку ANSI при сохранении). Перетащить потребную папку на скрипт.

консольный mediainfo? »

MediaInfo_CLI_0.7.58_Windows_i386.zip

[91892823]

Iska, спасибо еще раз. Но у меня почему-то он не совсем работает, выдает только "0:00:00".. Даже не знаю в чем причина..
Foreigner, спасибо, ваш способ работает. Есть еще вопрос: что нужно исправить в батнике, чтобы консольная версия находилась в определенном месте, чтоб не копировать ее всюду?

[Foreigner]

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

Либо поместить в каталог, находящийся в %PATH%

Код:

set path

Либо в произвольный каталог, но прописать в батнике, например:

Код:

@echo off
setlocal enabledelayedexpansion

set "path=%path%;C:\BIN\Mediainfo"

...

Где C:\BIN\Mediainfo каталог утилиты

[91892823]

Foreigner, то есть так?

читать дальше »

@echo off
setlocal enabledelayedexpansion

pushd %1 || goto:eof
set "path=%path%;C:\M\Mediainfo=mediainfo --Inform=Audio;%%Duration/String3%%"

for %%i in (*.mp3) do (

for /f "tokens=1 delims=." %%j in (' !mediainfo! "%%i" ') do call:sum "%%j"

)
echo %th%:%tm%:%ts% | clip
popd
goto:eof

:sum
for /f "tokens=1-3 delims=:" %%i in (%1) do (

set /a h=1%%i-100
set /a m=1%%j-100
set /a s=1%%k-100

)

set /a th+=h
set /a tm+=m
set /a ts+=s

if %ts% geq 60 (

set /a tm+=1
set /a ts-=60

)

if %tm% geq 60 (

set /a th+=1
set /a tm-=60

)

[Iska]

Но у меня почему-то он не совсем работает, выдает только "0:00:00".. Даже не знаю в чем причина.. »

Возможно в версии ОС и в ином именовании столбца (я раньше натыкался как-то на список свойств в разных ОС где-то на форуме KiXtart'а). Перетащите ту же папку на этот скрипт:

читать дальше »

Код:

Option Explicit

Const READYSTATE_COMPLETE = 4


Dim strSourceFolder

Dim objShell
Dim objFolder
Dim objFolderItem

Dim intDuration

Dim objSWbemObjectEx
Dim strContent

If WScript.Arguments.Count = 1 Then
	strSourceFolder = WScript.Arguments.Item(0)
	
	Set objShell  = WScript.CreateObject("Shell.Application")
	Set objFolder = objShell.NameSpace(strSourceFolder)
	
	If Not objFolder Is Nothing Then
		strContent = ""
		
		For Each objSWbemObjectEx In GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2").InstancesOf("Win32_OperatingSystem")
			strContent = strContent & objSWbemObjectEx.Caption & " " & objSWbemObjectEx.Version & vbCrLf & vbCrLf
		Next
		
		For intDuration = 0 To 86
			strContent = strContent & CStr(intDuration) & vbTab & objFolder.GetDetailsOf(, intDuration) & vbCrLf
		Next
		
		With WScript.CreateObject("InternetExplorer.Application")
			.Navigate("about:blank")
			
			Do
				WScript.Sleep 100
			Loop Until Not .Busy And .ReadyState = READYSTATE_COMPLETE
			
			.document.parentWindow.clipboardData.setData "text", strContent
			
			.Quit
		End With
	Else
		WScript.Echo "Can't find source folder [" & strSourceFolder & "]"
	End If
	
	Set objFolder = Nothing
	Set objShell  = Nothing
Else
	WScript.Echo "Usage: " & WScript.ScriptName & " <Source folder>" & vbCrLf & _
		"" & vbCrLf & _
		"Or drag one folder into this script"
End If

WScript.Quit 0

Затем выложите полученное содержимое буфера обмена сюда.

[91892823]

Foreigner, премного благодарен! Все работает)
вдруг кому пригодится

читать дальше »

@echo off
setlocal enabledelayedexpansion

set "path=%path%;C:\M\"

pushd %1 || goto:eof
set "mediainfo=mediainfo --Inform=Audio;%%Duration/String3%%"

for %%i in (*.mp3) do (

for /f "tokens=1 delims=." %%j in (' !mediainfo! "%%i" ') do call:sum "%%j"

)
set "th=00%th%"
set "tm=00%tm%"
set "ts=00%ts%"

echo %th:~-2%:%tm:~-2%:%ts:~-2% | clip
popd
goto:eof

:sum

for /f "tokens=1-3 delims=:" %%i in (%1) do (

set /a h=1%%i-100
set /a m=1%%j-100
set /a s=1%%k-100

)

set /a th+=h
set /a tm+=m
set /a ts+=s

if %ts% geq 60 (

set /a tm+=1
set /a ts-=60

)

if %tm% geq 60 (

set /a th+=1
set /a tm-=60

)