Hola, muchas gracias por las respuestas! bueno este fin de semana me puse a investigar un poco y avanze bastante.
Bueno el esquema se me amplio un poco seria el siguiente:
1. Leer el enlace de la página web desd el txt (hecho)
2. Añadir el nombre del archivo zip como explicaron en mensajes anteriores (echo)
3. Descargar el archivo zip en la carpeta que desees (echo)
4. Descomprimir el contenido del archivo zip utilizando la UDF en la carpeta que desees (FALTA!)
5. Eliminar el archivo zip (Hecho)
6. Renombrar los archivos descomprimidos (Hecho)
7. editar ID3 Tag (FALTA!)
Posibles mejoras
Tanto renombrar como eliminar los acrchivos de ayer se podria hacer con un If 1 to 6
hacer un if por si no si no descomprime correctamente no sigue el programa.
hasta ahora llege a este codigo
Código: Seleccionar todo
$archivo = FileOpen("Link.txt", 0); lee el txt para obtener el link
$url= FileReadLine($archivo)
FileClose($archivo)
$fich = $url & "/MB" & StringRight(@YEAR,2) & @MON & @MDAY & ".zip"
InetGet($fich, "D:\Mis Documentos\Mis documentos Nelson\Mi musica\Archivos Radio\programas\MusicBox.zip", 0, 0)
Sleep(50000) ; tiempo estimativo de descarga del zip, por als dudas es bastante grande
;Descomprime FALTA!
Sleep(5000); tiempo que tarda en descomprimir el zip
FileDelete ( "D:\Mis Documentos\Mis documentos Nelson\Mi musica\Archivos Radio\programas\MusicBox.zip" ) ;Borra Zip luego de descomprimirlo
FileDelete ( "D:\Mis Documentos\Mis documentos Nelson\Mi musica\Archivos Radio\programas\MusicBox\" & "MusicBox1.mp3" ) ; borra el archivo de ayer
$sFileOld = "D:\Mis Documentos\Mis documentos Nelson\Mi musica\Archivos Radio\programas\MusicBox\" & "MUSICBOX_"& StringRight(@YEAR,2) & @MON & @MDAY & "_BLOQUE01.mp3" ; toma el nombre de hoy
$sFileRenamed = "D:\Mis Documentos\Mis documentos Nelson\Mi musica\Archivos Radio\programas\MusicBox\" & "MusicBox1.mp3" ; o modifica para que el software de radio lo pueda leer automaticamente
FileMove($sFileOld, $sFileRenamed)
Sleep(10)
FileDelete ( "D:\Mis Documentos\Mis documentos Nelson\Mi musica\Archivos Radio\programas\MusicBox\" & "MusicBox2.mp3" )
$sFileOld = "D:\Mis Documentos\Mis documentos Nelson\Mi musica\Archivos Radio\programas\MusicBox\" & "MUSICBOX_"& StringRight(@YEAR,2) & @MON & @MDAY & "_BLOQUE02.mp3"
$sFileRenamed = "D:\Mis Documentos\Mis documentos Nelson\Mi musica\Archivos Radio\programas\MusicBox\" & "MusicBox2.mp3"
FileMove($sFileOld, $sFileRenamed)
Sleep(10)
FileDelete ( "D:\Mis Documentos\Mis documentos Nelson\Mi musica\Archivos Radio\programas\MusicBox\" & "MusicBox3.mp3" )
$sFileOld = "D:\Mis Documentos\Mis documentos Nelson\Mi musica\Archivos Radio\programas\MusicBox\" & "MUSICBOX_"& StringRight(@YEAR,2) & @MON & @MDAY & "_BLOQUE03.mp3"
$sFileRenamed = "D:\Mis Documentos\Mis documentos Nelson\Mi musica\Archivos Radio\programas\MusicBox\" & "MusicBox3.mp3"
FileMove($sFileOld, $sFileRenamed)
Sleep(10)
FileDelete ( "D:\Mis Documentos\Mis documentos Nelson\Mi musica\Archivos Radio\programas\MusicBox\" & "MusicBox4.mp3" )
$sFileOld = "D:\Mis Documentos\Mis documentos Nelson\Mi musica\Archivos Radio\programas\MusicBox\" & "MUSICBOX_"& StringRight(@YEAR,2) & @MON & @MDAY & "_BLOQUE04.mp3"
$sFileRenamed = "D:\Mis Documentos\Mis documentos Nelson\Mi musica\Archivos Radio\programas\MusicBox\" & "MusicBox4.mp3"
FileMove($sFileOld, $sFileRenamed)
Sleep(10)
FileDelete ( "D:\Mis Documentos\Mis documentos Nelson\Mi musica\Archivos Radio\programas\MusicBox\" & "MusicBox5.mp3" )
$sFileOld = "D:\Mis Documentos\Mis documentos Nelson\Mi musica\Archivos Radio\programas\MusicBox\" & "MUSICBOX_"& StringRight(@YEAR,2) & @MON & @MDAY & "_BLOQUE05.mp3"
$sFileRenamed = "D:\Mis Documentos\Mis documentos Nelson\Mi musica\Archivos Radio\programas\MusicBox\" & "MusicBox5.mp3"
FileMove($sFileOld, $sFileRenamed)
Sleep(10)
FileDelete ( "D:\Mis Documentos\Mis documentos Nelson\Mi musica\Archivos Radio\programas\MusicBox\" & "MusicBox6.mp3" )
$sFileOld = "D:\Mis Documentos\Mis documentos Nelson\Mi musica\Archivos Radio\programas\MusicBox\" & "MUSICBOX_"& StringRight(@YEAR,2) & @MON & @MDAY & "_BLOQUE06.mp3"
$sFileRenamed = "D:\Mis Documentos\Mis documentos Nelson\Mi musica\Archivos Radio\programas\MusicBox\" & "MusicBox6.mp3"
FileMove($sFileOld, $sFileRenamed)
;Editar Tags ID3 para que el RDS (pantalla de los estereos dice el titulo del archivo que esta al aire, y este programa tiene en ARtista album y titulo, Publicidad del programa.debe ser rempalzadao el titulo por "MusicBox", y borrar el contenido de artista y album )
Los codigos que consegui googleando son
Para descomprimir:
Código: Seleccionar todo
Func _Zip_UnzipAll($hZipFile, $hDestPath, $flag = 1)
Local $DLLChk = _Zip_DllChk()
If $DLLChk <> 0 Then Return SetError($DLLChk, 0, 0);no dll
If not _IsFullPath($hZipFile) then Return SetError(4,0) ;zip file isn't a full path
If Not FileExists($hZipFile) Then Return SetError(2, 0, 0) ;no zip file
If Not FileExists($hDestPath) Then DirCreate($hDestPath)
Local $aArray[1]
$oApp = ObjCreate("Shell.Application")
$oApp.Namespace($hDestPath).CopyHere($oApp.Namespace($hZipFile).Items)
For $item In $oApp.Namespace($hZipFile).Items
_ArrayAdd($aArray, $item)
Next
While 1
If $flag = 1 then _Hide()
If FileExists($hDestPath & "\" & $aArray[UBound($aArray) - 1]) Then
Return SetError(0, 0, 1)
ExitLoop
EndIf
Sleep(500)
WEnd
EndFunc ;==>_Zip_UnzipAll
y para editar los ID3
Código: Seleccionar todo
Func _Zip_UnzipAll($hZipFile, $hDestPath, $flag = 1)
Local $DLLChk = _Zip_DllChk()
If $DLLChk <> 0 Then Return SetError($DLLChk, 0, 0);no dll
If not _IsFullPath($hZipFile) then Return SetError(4,0) ;zip file isn't a full path
If Not FileExists($hZipFile) Then Return SetError(2, 0, 0) ;no zip file
If Not FileExists($hDestPath) Then DirCreate($hDestPath)
Local $aArray[1]
$oApp = ObjCreate("Shell.Application")
$oApp.Namespace($hDestPath).CopyHere($oApp.Namespace($hZipFile).Items)
For $item In $oApp.Namespace($hZipFile).Items
_ArrayAdd($aArray, $item)
Next
While 1
If $flag = 1 then _Hide()
If FileExists($hDestPath & "\" & $aArray[UBound($aArray) - 1]) Then
Return SetError(0, 0, 1)
ExitLoop
EndIf
Sleep(500)
WEnd
EndFunc ;==>_Zip_UnzipAll
El problema es que no lso entiendo para nada y no se como modificarlos.
Por otro lado realize un programa para testear que en el txt este bien puesto el Link: el codigo es este
Código: Seleccionar todo
$archivo = FileOpen("Link.txt", 0)
$url= FileReadLine($archivo)
FileClose($archivo)
$fich = $url & "/MB" & StringRight(@YEAR,2) & @MON & @MDAY & ".zip"
ClipPut($fich) ; Lo copio para chequear en el navegador que funcione
Msgbox(0,"El Link es...","" & $fich)
Saludos garcias por su tiempo a todos, las corecciones/Sugerencias son bienvenidas!