'	0-DurataFilmati.bas

'	Note Taurinesche

'	#!/bin/sh
'	for i in *.mpg; do ffmpeg -i $i; done 2> durata1.txt
'	grep -E "Input|Duration" durata1.txt > d‬urata2.txt



	dim Comando1 as string
	dim aDol as string
	dim bDol as string
	dim a as integer

	Comando1 = "for i in *.mpg; do ffmpeg -i $i; done 2> durata1.txt"
	Shell Comando1

	open "durata1.txt" for input as #1
	open "durata.txt"  for output as #2

q12:	if eof(1) then goto q21
	line input #1, aDol
	a = instr(aDol, "'")
	if a > 0 then
		bDol = mid(aDol, a + 1)
		bDol = left(bDol, len(bDol) - 2)
		? #2, bDol;tab(45);
		goto q12
	end if
	if instr(aDol, "Duration") > 0 then
		? #2, mid(aDol, 13, 11)
	end if
	goto q12
q21:	close

	shell "rm durata1.txt"

	cls
	shell "cat durata.txt"
	?:?