Imprimir Página - QPF to Chapter file

Título: QPF to Chapter file
Publicado por: ovichan en 12 Julio 2013, 05:48 am

Hola buenas, estaba intentando hacer un conversor de archivos qpf files (que es un txt con otra extensión) para calcular una serie de codigos de tiempo en base a un numero prefijado de 23.976 frames por segundo.

El caso es que nada mas empezar no me ejecuta la tarea mas basica que es motrar en la consola las lineas del qpf. El código es este:

Código

@echo off
SetLocal EnableDelayEdexpansion
 
@ECHO OFF
FOR /F "tokens=*" %%A IN ("C:\Users\Isra\Desktop\Nueva carpeta\10. QPFILE_NAME.txt") DO CALL:Tratar "%%A"
GOTO:EOF
 
:Tratar
   SET Reg=%~1
   ECHO %Reg%
   GOTO:EOF
 
pause&exit

El formato de un archivo qpf es:

Código:

Entonces necesito coger cada numero, tratarlo durante el proceso del for, calcular el codigo de tiempo, e ir almacenandolo en otro txt. El algoritmo sería algo como:

Codigo de tiempo=2616*0,0417083sg=109,1089128sg/60=1,81848188=1min+0,81848188

resto_tiempo=0,81848188*60=49,1089128sg=49sg+109ms

total 1min49sg109ms-->00:01:49.109

Tras calcular el primer resultado tendria que discenir si x>=3600 entonces el resultado que da seria en horas, si x>=60 daria en minutos, x<60 en segundos.

Vamos, pero que me gustaria saber pq no me lista los numeros. Tengo windows8, por si afecta en algo.

Título: Re: QPF to Chapter file
Publicado por: Eleкtro en 12 Julio 2013, 09:43 am

Cita de: ovichan en 12 Julio 2013, 05:48 am

me gustaria saber pq no me lista los numeros.

No estás usando comillas en el comando agrupado, no le estás indicando al FOR que se trata de un archivo, en lugar de eso estás usando comillas dobles así que estás ~~leyendo~~ interpretando un String "...\10. QPFILE_NAME.txt", no el contenido del archivo.

Hay dos formas de hacerlo, una es usando el parámetro "usebackq" del FOR y usar sólo comillas, y la otra es usando la sintaxis correcta del For agrupando un comando con comillas: ...In ('Type "archivo"') Do..., bueno, aquí tienes la sintaxis:

Citar

Código:

 FOR /F ["options"] %%parameter IN ('command_to_process') DO command

Citar

Código:

      usebackq     Use the alternate quoting style:                        
                   - Use double quotes for long file names in "filenameset".
                   - Use single quotes for 'Text string to process'
                   - Use back quotes for `command_to_process`

Código

@echo off
SetLocal EnableDelayEdexpansion
 
FOR /F "usebackq delims=" %%A IN (
	"C:\Users\Isra\Desktop\Nueva carpeta\10. QPFILE_NAME.txt"
) DO (
	SET "Reg=%%A"
	ECHO !Reg!
)
 
Pause&Exit

Saludos

Título: Re: QPF to Chapter file
Publicado por: ovichan en 12 Julio 2013, 13:19 pm

Vaya, que facil parece y que dolor de cabeza tenia ayer con esto. Gracias.

EDITO: ~~Tengo este codigo pero se cierra el msdos y no puedo ver nada, aparentemente se ejecuta sin fallos.~~

EDITO2: Solucionado ^^

Código

@echo off
SetLocal EnableDelayEdexpansion
 
@ECHO OFF
FOR /F "usebackq tokens=1" %%A IN (
	"C:\Users\Isra\Desktop\Nueva carpeta\10. QPFILE_NAME.txt"
) DO (
	call:timecode %%A
 
)
goto:finish
 
:timecode
SET /a Reg="%1"
echo %reg%
goto:eof
 
:finish
pause&exit

Título: Re: QPF to Chapter file
Publicado por: ovichan en 12 Julio 2013, 17:39 pm

Creo que la sintaxis es correcta pero me indica que le falta el operador WTF!!

Código

@echo off
Title QPFile to Chapter´s Timecodes
 
@ECHO OFF
For /f "usebackq tokens=1" %%A IN (
	"C:\Users\Isra\Desktop\Nueva carpeta\10. QPFILE_NAME.txt"
) DO (
	call:timecode %%A
 
)
Goto:finish
 
:timecode
Set /a reg=%1
Echo %reg%
set /a const=0.0417083
set /a reg=%reg%*%const%
Echo %reg%
 
	::Mensaje de error
	IF %reg% GEQ 216000 (color 4E & echo Error. Un video no puede tener una duracion continua igual a un o mas días.)
 
	::Calculo de timecodes partiendo de horas
	IF %reg% GEQ 3600 (echo hola 1) 
 
	::Calculo de timecodes partiendo de minutos
	IF %reg% LSS 3600 (IF %reg% GEQ 60 (echo hola 2))
 
	::Calculo de timecodes partiendo de segundos.
	IF %reg% LSS 60 (IF %reg% GEQ 0 (echo hola 3))
Pause
Goto:eof
 
:finish
Pause&exit

¿Algo está mal? ¿Acaso no se puede operar con numeros decimales?

Título: Re: QPF to Chapter file
Publicado por: Eleкtro en 12 Julio 2013, 18:07 pm

Cita de: ovichan en 12 Julio 2013, 17:39 pm

¿Algo está mal? ¿Acaso no se puede operar con numeros decimales?

Exacto, ese es el problema, Batch no soporta operaciones con decimales.

Aunque se pueden llegar a hacer, pero es un jaleo de código y porsupuesto no es algo "nativo" que digamos, diréctamente te recomiendo cualquier otro lenguaje.

Si no quieres depender de tener un intérprete instalado en el PC entonces te iría bien usar VBScript, javascript, O Powershell.

Saludos!

Título: Re: QPF to Chapter file
Publicado por: ovichan en 12 Julio 2013, 18:08 pm

Jeje me lo habia supuesto, estoy aprendiendo ahora a manejar vbscript, me suena de cuando en la facultad toque por encima el visualbasic... pero vamos que fue para importar tablas de excel y hace siglos de eso.... me mueroooooo :silbar:

Título: Re: QPF to Chapter file
Publicado por: Eleкtro en 12 Julio 2013, 18:19 pm

Cita de: ovichan en 12 Julio 2013, 18:08 pm

No te preocupes, para lo que necesitas no tienes que aprender casi nada, sólo a usar los operadores aritméticos y escribir una rchivo de texto.

Ejemplo:

Código

num1 = 0.5
num2 = 2
Result = (num1 * num2)
 
Wscript.Echo(Result)
 
Set textfile = CreateObject("Scripting.FileSystemObject").OpenTextFile("C:\test.txt", 8, true)
textfile.Write(Result & vbCrLf) : textfile.Close
 
Wscript.Quit(0)

Saludos

Título: Re: QPF to Chapter file
Publicado por: ovichan en 12 Julio 2013, 18:21 pm

Pues menos mal porque estaba haciendo esto y no me salia :-[

Código

Dim valor
Valor1 = 0.0417083
Valor2=2616
valor=valor1*valor2
 
If  valor < 10 then
    "El valor es MENOR a diez "
Else
   document.write( "El valor es MAYOR a diez " & valor)
End if

Título: Re: QPF to Chapter file
Publicado por: ovichan en 12 Julio 2013, 18:42 pm

Se puede hacer un filtrado por tokens de un for de dos, en vbs??

Título: Re: QPF to Chapter file
Publicado por: Eleкtro en 12 Julio 2013, 18:50 pm

Cita de: ovichan en 12 Julio 2013, 18:42 pm

Se puede hacer un filtrado por tokens de un for de dos, en vbs??

Código

str = "a-b-c-d-e-f"
 
For each token in split(str, "-")
    wscript.echo(token)
next

Saludos

Título: Re: QPF to Chapter file
Publicado por: ovichan en 12 Julio 2013, 19:01 pm

Me sabe mal pero te voy a martirizar. Estoy intentando ir por pasitos. Entonces lo que estoy intentando lo primero es abrir el archivo qpf tal que asi:

Código

'Creamos el objeto ActiveX con el que podamos operar con archivos en el sistema.
Set objfso = createobject("scripting.filesystemobject")
 
set qpfile=objfso.Opentextfile("C:\Users\Isra\Desktop\Nueva carpeta\10. QPFILE_NAME.qpf",1)
msgbox qpfile.readline

Esto funciona, lo muestra en pantalla pero claro lo que quiero que me guarde esa linea en una variable y hacer el filtrado por tokenks como has indicado. Ademas la lectura por lineas creo que deberia usarlo con un for, hasta el final del archivo. Algo quizas como:

Código

Do until ARCHIVO FINALICE
  Procedimiento anterior
Loop until

La condicion ARCHIVO FINALICE imagino que respondera a algun metodo del objeto del archivo de texto. ¿Cuál es?

Siento ser tan cansino. ¬¬'

EDITO: ~~He intentado esto pero algo va mal~~

EDITO2: Esta parte resuelta

Código

'Creamos el objeto ActiveX con el que podamos operar con archivos en el sistema.
Set objfso = createobject("scripting.filesystemobject")
dim linea
 
set qpfile=objfso.Opentextfile("C:\Users\Isra\Desktop\Nueva carpeta\10. QPFILE_NAME.qpf",1)
linea=qpfile.readline()
msgbox(linea)
 
'qpfile.copyline(linea)

Hay que ser cafre que estaba intentando meter un string en un objeto. Esto de los objetos siempre me costo entenderlo.... y ya en java con los constructores ni te digo.

Título: Re: QPF to Chapter file
Publicado por: Eleкtro en 12 Julio 2013, 19:37 pm

Código

set qpfile=createobject("scripting.filesystemobject").Opentextfile("C:\Users\Isra\Desktop\Nueva carpeta\10. QPFILE_NAME.qpf",1)
 
Do until qpfile.AtEndOfStream 
 linea=qpfile.readline()
 ' o msgbox(qpfile.readline())
Loop

saludos

Título: Re: QPF to Chapter file
Publicado por: ovichan en 12 Julio 2013, 19:49 pm

Por ahora, voy asi... pero por hoy no puedo dedicarle mas tiempo que tengo que sincronizar mas cosas:

Código

'Creamos el objeto ActiveX con el que podamos operar con archivos en el sistema.
Set objfso = createobject("scripting.filesystemobject")
dim linea
dim numero
dim constante
 
constante=0,0417083
 
'do 
	set qpfile=objfso.Opentextfile("C:\Users\Isra\Desktop\Nueva carpeta\10. QPFILE_NAME.qpf",1)
	linea=qpfile.readline()
 
	'Filtrar linea, para quedarnos con el numero del frame
 	For each token in split(linea, " ")
    		numero=token
	exit For
	next
 
	msgbox(numero)
 
'loop until qpfile.AtEndOfStream = true

Ahora debo aplicar el algoritmo de conversion. ¿Se puede hacer como en dos, crear una etiqueta (procedimiento) desde el interior del bucle??

No se algo como:

Function Conversion (string x){}

Título: Re: QPF to Chapter file
Publicado por: Eleкtro en 12 Julio 2013, 20:32 pm

Cita de: ovichan en 12 Julio 2013, 19:49 pm

¿Se puede hacer como en dos, crear una etiqueta (procedimiento) desde el interior del bucle??

Cualquier cosa que haga Batch se puede hacer en otro lenguaje, y mejor xD :

Código

Set   TextFile = createobject("scripting.filesystemobject").Opentextfile("C:\Users\Isra\Desktop\Nueva carpeta\10. QPFILE_NAME.qpf",1)
Const Constant = 0.0417083
 
Do Until TextFile.AtEndOfStream 
 
	For Each Token in split(TextFile.readline()) ' Te hago saber que por defecto un token es separado por un "espacio".
 	        Tratar(Token)
	Next
 
Loop
 
Wscript.quit
 
Sub Tratar(Token)
	MsgBox(Token)
End Sub

Título: Re: QPF to Chapter file
Publicado por: ovichan en 13 Julio 2013, 00:25 am

Buenas otra vez, como tengo que saltar una linea del archivo de texto al que se invoca, mi pregunta es si puedo usar el otro tipo de FOR, con indice y a su vez, usar la opcion de split.

Mi codigo por ahora va asi:

Código

'Creamos el objeto ActiveX con el que podamos operar con archivos en el sistema.
Set objfso = createobject("scripting.filesystemobject")
 
'Definicion de variables
dim linea
dim numero
const constante = 0.0417083
 
'do until qpfile.AtEndOfStream
 
	set qpfile=objfso.Opentextfile("C:\Users\Isra\Desktop\Nueva carpeta\10. QPFILE_NAME.qpf",1)
	linea=qpfile.readline()
 
	'Filtrar linea, para quedarnos con el numero del frame
 	For each token in split(linea, " ")
    		Tratar(token)
	exit For
	next
 
'loop 
 
Wscript.quit
 
Sub Tratar(Token)
	'Mensaje de error
	IF (token >= 216000) THEN
 
		msgbox("Error. Un video no puede tener una duracion continua igual a un o mas días.")
 
	ELSE
		'Calculo de timecodes partiendo de horas
		IF (token >= 3600) THEN
			msgbox("hola1")
		ELSE
			IF (token < 3600 AND token >= 60) THEN
 
				msgbox("hola2")
			ELSE
				IF (token < 60 AND token >= 0) THEN
 
					msgbox("hola3")
				ELSE
					msgbox("Error. No pueden existir valores negativos.")
				END IF
			END IF
		END IF
	END IF
 
 
End Sub

Título: Re: QPF to Chapter file
Publicado por: Eleкtro en 13 Julio 2013, 02:39 am

Si el problema es que necesitas saltar la primera línea del archivo pues ejecuta esta instrucción 2 veces:

Código

...
 
qpfile.readline() : linea=qpfile.readline() ' leemos dos lineas, pero nos quedamos con la segunda.
 
For each token in split(linea, " ") ...
...

EDITO: Si no es eso pues da más detalles... pero ten en cuenta antes de preguntar que puedes usar condicionales...

Código

if not "a" = "A" then   : Wscript.Echo "no" : end if
if Instr("a", "a") then : Wscript.Echo "si" : end if

Saludos

Título: Re: QPF to Chapter file
Publicado por: ovichan en 13 Julio 2013, 03:05 am

Si, era el primer caso que me has puesto pero cuando ejecute el bucle que aun no lo he probado pues estoy depurando el algoritmo, ejecutara cada ciclo con dos lineas.

Código

'Creamos el objeto ActiveX con el que podamos operar con archivos en el sistema.
Set objfso = createobject("scripting.filesystemobject")
 
'Definicion de variables
Dim linea 
Dim token
Const constante = 0.0417083
 
 
'do until qpfile.AtEndOfStream
 
	set qpfile=objfso.Opentextfile("C:\Users\Isra\Desktop\Nueva carpeta\10. QPFILE_NAME.qpf",1)
	qpfile.readline() : linea=qpfile.readline() 
 
	'Filtrar linea, para quedarnos con el numero del frame
 	For each token in split(linea, " ")
    		Tratar(token)
	exit For
	next
 
'loop 
 
Wscript.quit
 
'Subrutina para transformar numero entero en timestamp
Sub Tratar(Token)
	'Establecemos criterio de comparación
	calculo=token*constante
	p_entera= Cint(calculo)
 
	'Mensaje de error
	IF (p_entera >= 216000) THEN
		hora=normalizar(calculo)
		msgbox("Error. Un video no puede tener una duracion continua igual a un o mas días.")
 
	ELSE
		'Calculo de timecodes partiendo de horas
		IF (p_entera >= 3600) THEN
			msgbox("hola1")
		ELSE 'Calculo de timecodes partiendo de minutos
			IF (p_entera < 3600 AND p_entera >= 60) THEN
 
				min=calculo\60
				seg=calculo mod 60
				ms=round(((((calculo/60)-min)*60)-seg),3)*1000
				msgbox(min & " min. " & seg & " seg. " & ms & " ms. ")
 
			ELSE 'Calculo de timecodes partiendo de segundos
				IF (p_entera < 60 AND p_entera >= 0) THEN
					msgbox("hola3")
				ELSE
					msgbox("Error. No pueden existir valores negativos.")
				END IF
			END IF
		END IF
	END IF
End Sub

EDITO: De todas maneras creo que hay un problema, pq al retorna a procedimientos principal no se si guarda correctamente los valores de las variables (hora, min, seg, ms). Y creo que no es un buen diseño depender de tantas variables generales, o al menos eso tenia entendido.

¿Más que un procedimiento, no debería ser una función?

EDITO2: Tengo un gran problema con el algoritmo, si fuerzo el valor de tokens=2633, el valor resultante no coincide con el que deberia puesto que automaticamente lo redondea. Me explico.

El frame 2633, tiene un timestamp igual a 01:49.818. Con el algoritmo que he puesto y otros que estoy probando, redondea los valores al inmediato superior. En este caso, los segundos los pasa a 50.

He probado con seg=FormatNumber((calculo/60-min)*60,0), y tambien lo redondea. Ñooooooo

Título: Re: QPF to Chapter file
Publicado por: Eleкtro en 13 Julio 2013, 03:41 am

Cita de: ovichan en 13 Julio 2013, 03:05 am

¿Más que un procedimiento, no debería ser una función?

Vamos a ver, no veo que intentes retornar ningún valor ni que tengas planeado hacerlo en un futuro, tal y como lo estás haciendo vas bien, aunque yo lo haría todo dentro del For, pero usa un proc si sigues así ...usa una función si quieres tratar los valores fuera del bloque de la subrutina, en el Ciclo del For.

Óbviamente si deseas "tratar" las variables del proc fuera del proc primero tienes que declararlas...

Código

dim hora
 
sub blabla
   hora = X
end sub
 
msgbox(hora)

saludos

Título: Re: QPF to Chapter file
Publicado por: ovichan en 13 Julio 2013, 03:52 am

Si, las habia declarado pero aun asi como el algoritmo para calcular los segundos, lo hice mediante el modulo, no se que pasa que no lo muestra en pantalla si hago un msgbox despues de haber llamado a la subrutina:

Código

For each token in split(linea, " ")
    		Tratar(token)
			msgbox(min & " min. " & seg & " seg. " & ms & " ms. ")

De todas maneras, ahora mismo el problema mas grande es que vbs me redondea automaticamente los valores de los resultados inmediatos a su numero entero superior, cosa que en mi caso, no es apropiado. ¿No puedo unicamente quedarme con la parte entera sin que me redondee?

Título: Re: QPF to Chapter file
Publicado por: Eleкtro en 13 Julio 2013, 04:01 am

Cita de: ovichan en 13 Julio 2013, 03:52 am

vbs me redondea automaticamente los valores de los resultados inmediatos a su numero entero superior

Es lo que hace la función "Cint", usa "Int" en su lugar.

Por cierto, podrías evitar el uso de if's anidados, no lo soporto, con lo bonito y organizado que queda un Case:

Código

' Variables
Const constante = 0.0417083
 
' Do until qpfile.AtEndOfStream
 
	set qpfile=createobject("scripting.filesystemobject").Opentextfile("C:\Users\Isra\Desktop\Nueva carpeta\10. QPFILE_NAME.qpf",1)
	qpfile.readline()
 
	'Filtrar linea, para quedarnos con el numero del frame
 	For each token in split(qpfile.readline())
    	tratar(token)
		exit For
	Next
 
' Loop 
 
Wscript.quit
 
'Subrutina para transformar numero entero en timestamp
Sub Tratar(Frame)
 
	'Establecemos criterio de comparación
	calculo  = (Frame * constante)
	p_entera = int(calculo)
 
	Select Case p_entera
 
		Case p_entera >= 216000 'Mensaje de error
			hora=normalizar(calculo)
			msgbox("Error. Un video no puede tener una duracion continua igual a un o mas días.")
 
		Case p_entera >= 3600 'Calculo de timecodes partiendo de horas
			msgbox("hola1")
 
		Case p_entera < 3600 AND p_entera >= 60 ' Calculo de timecodes partiendo de minutos
			min=calculo\60
			seg=calculo mod 60
			ms=round(((((calculo/60)-min)*60)-seg),3)*1000
			msgbox(min & " min. " & seg & " seg. " & ms & " ms. ")
 
		Case p_entera < 60 AND p_entera >= 0 'Calculo de timecodes partiendo de segundos
			msgbox("hola3")
 
		Case ELSE
			msgbox("Error. No pueden existir valores negativos.")
 
	End select
 
End Sub

PD: No lo he testeado, pero ya te haces una idea.

Saludos!

Título: Re: QPF to Chapter file
Publicado por: ovichan en 13 Julio 2013, 04:05 am

Vale, ya lo probaré. Y muchas gracias, pero no me lo tengas en cuenta que estoy ofuscado en esto y se me pira la olla. Perdona si te ha molestado. ;-)

Título: Re: QPF to Chapter file
Publicado por: Eleкtro en 13 Julio 2013, 04:10 am

No me molesta aunque si te fijas esto más bien es un tutorial express, lo del cint, el for y los "tokens", y etc no te habría costado nada encontrarlo en Google xD, de hecho yo estaba usando el Split como si fuese un método porque estoy acostumbrado a eso en el resto d elenguajes, y tuve que Googlear para ver que en VBS Split es una función y por lo tanto se escribe delante.

un saludo.

Título: Re: QPF to Chapter file
Publicado por: ovichan en 13 Julio 2013, 04:14 am

Pues te aseguro que he estado buscando en google de hecho me he bajado varios manuales, eso si, todo orientado a html.

Estoy mirando la documentacion aqui http://www.w3schools.com/vbscript/func_round.asp

Tambien en microsoft y me baje el chw 6.5, pero no se pq narices no me muestra la información, pero vamos que te aseguro que he estado buscando en google. Pero no te preocupes, no preguntaré tanto.

Y gracias again ::)

EDITO: Lo he testeado y había un fallito por el cual no ejecutaba el código.

Lo correcto:

Código

Select Case true

Imagino que todo tiene que ver al usar comparadores logicos en los casos del select. Un ratito me ha llevado encontrarlo T_T http://computer-programming-forum.com/59-vbscript/08b7100c477ec503.htm

Título: Re: QPF to Chapter file
Publicado por: ovichan en 13 Julio 2013, 06:17 am

Bueno, pues nada muchas gracias Elecktro, ya lo he terminado. El código es totalmente funcional, unicamente me gustaria saber un detallito. ¿Es posible hacer como en BAT, que del directorio actual del archivo vbs, tome los en cuenta el archivos *.qpf? Es para automatizar un poco más, y no tener que estar cambiando cada vez por tres la ruta de acceso. Ya sabes algo como: %~dp0*.qpf

Código

'Creamos el objeto ActiveX con el que podamos operar con archivos en el sistema.
Set objfso = createobject("scripting.filesystemobject")
 
'Definicion de variables
Dim linea 
Dim token
Dim hora
Dim min
Dim seg
Dim ms
Dim time
Const constante = 0.0417083
 
'Creamos el objeto del archivo qpf
set qpfile=objfso.Opentextfile("C:\Users\Isra\Desktop\Nueva carpeta\10. QPFILE_NAME.qpf",1)
 
'Para evitar que agrege continuamente codigos de tiempo, por un descuido al ejecutar varias veces. Borramos el archivo, si existe
	IF (objfso.FileExists("C:\Users\Isra\Desktop\Nueva carpeta\Chapters.txt"))  THEN 
		objfso.Deletefile("C:\Users\Isra\Desktop\Nueva carpeta\Chapters.txt")
	END IF
 
Do until qpfile.AtEndOfStream
 
	linea=qpfile.readline() 
 
	'Filtrar linea, para quedarnos con el numero del frame
 	For each token in split(linea, " ")
    		Tratar(token)
			'msgbox(hora & " hora. " & min & " min. " & seg & " seg. " & ms & " ms. ")
	exit For
	next
 
loop 
 
Wscript.quit
 
'Subrutina para transformar numero entero en timestamp
Private Sub Tratar(Token)
 
	'Establecemos criterio de comparación
	calculo=token*constante
	p_entera= Int(calculo)
 
	Select Case true 
 
		Case p_entera >= 216000 'Mensaje de error
			msgbox("Error. Un video no puede tener una duración continua igual a uno o más días.")
 
		Case p_entera >= 3600 'Calculo de timecodes partiendo de horas
			calculo=calculo/3600
			hora=Int(calculo)
			min=Int((calculo-hora)*60)
			seg=Int((((calculo-hora)*60)-min)*60)
			ms=Cint((((((calculo-hora)*60)-min)*60)-seg)*1000)
			msgbox(hora & " hora. " & min & " min. " & seg & " seg. " & ms & " ms. ")
 
		Case p_entera < 3600 AND p_entera >= 60 'Calculo de timecodes partiendo de minutos
			calculo=calculo/60
			'Establecemos para este caso, hora=0
			hora=0
			min=Int(calculo)
			seg=Int((calculo-min)*60)
			ms=CInt((((calculo-min)*60)-seg)*1000)
			'msgbox(hora & " hora. " & min & " min. " & seg & " seg. " & ms & " ms. ")
			Call Formatear(hora, min, seg, ms)
 
		Case p_entera < 60 AND p_entera >= 0 'Calculo de timecodes partiendo de segundos
			'Establecemos para este caso, hora=0
			hora=0
			min=0
			seg=Int(calculo)
			ms=CInt((((calculo)-seg))*1000)
			msgbox(hora & " hora. " & min & " min. " & seg & " seg. " & ms & " ms. ")
 
		Case ELSE
			msgbox("Error. No pueden existir valores negativos.")
 
	END SELECT
End Sub
 
Private Sub Formatear(hora, min, seg, ms)
	'Damos formato al codigo de tiempo para que añada un cero si es necesario
 
	SELECT CASE TRUE
 
	CASE hora<10 AND ms<100 'Añadimos un cero delante para dar formato a la hora y los milisegundos. 
		timestamp="0"&Timeserial(hora,min,seg)&".0"&ms
		Call Escribir(timestamp)
	CASE hora<10 'Añadimos un cero delante para dar formato a la hora.
		timestamp="0"&Timeserial(hora,min,seg)&"."&ms
		Call Escribir(timestamp)
	CASE ms<100 'Añadimos un cero delante para dar formato los milisegundos.
		timestamp=Timeserial(hora,min,seg)&".0"&ms
		Call Escribir(timestamp)
	CASE ELSE
		timestamp=Timeserial(hora,min,seg)&"."&ms
		Call Escribir(timestamp)
	END SELECT
 
 
end sub
 
Private Sub Escribir (timestamp)
 
	'Escribimos nuestro archivo de capitulos.
	Set codigo_tiempo=objfso.opentextfile("C:\Users\Isra\Desktop\Nueva carpeta\Chapters.txt", 8, true)	'creamos el archivo
	codigo_tiempo.writeline timestamp
	codigo_tiempo.close
 
end sub

La verdad pensaba que no me iba a salir, pero gracias a ti, aqui tengo mi primer codigo en vbs ^^ :rolleyes:

Título: Re: QPF to Chapter file
Publicado por: Eleкtro en 13 Julio 2013, 08:57 am

Código

Set FSO = CreateObject("Scripting.FileSystemObject")
 
For Each File In FSO.GetFolder(".\").Files
	If LCase(FSO.GetExtensionName(File.Name)) = "qpf" then
		Wscript.echo(File.Name)
	end if
Next

Título: Re: QPF to Chapter file
Publicado por: ovichan en 13 Julio 2013, 15:09 pm

Muchas gracias.

Foro de elhacker.net

Programación => Scripting => Mensaje iniciado por: ovichan en 12 Julio 2013, 05:48 am