' 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

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

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

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

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

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 

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

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  

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) 

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

      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`

@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