Samsung Playlist Generator

Bueno hace dos navidades mi novia me regalo un Samsung YP-Z5F que no es otra cosa que un reproductor MP3/WMA/FLAC/AAC con ciertas funciones tactitles (touch buttons) y una buena pantalla, en fin es un buen reproductor con casi 75 horas de reproducción continua, el único pero que tiene es que para generar listas de reproducción es todo un show.

Una de las formas hacerlo es instalar el manejador de archivos que trae en su CD, pero es realmente malo y lento para solamente generar listas, la otra forma es utilizar el Windows Media Player 10 u 11, pero de igual forma hace mas tonterías de lo que debería de hacer… un simple drag & drop en la carpeta Music es mas rápido y efectivo, pero como siempre tiene un inconveniente a menos que seas un freaky que tiene todos sus MP3 con sus ID3 tags perfectas tendrás toda la musica sin acomodar y te sera imposible leer por disco… la solución:

SPLGen.VBS

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32

Set objFso = CreateObject("Scripting.FileSystemObject")
 
Set MusicFolder = objFso.GetFolder(".\\Music")
Set PlaylistFolder = objFso.GetFolder(".\\Playlist")
 
Set colFolders = MusicFolder.Subfolders
 
For Each folder In colFolders
	Wscript.Echo "Generating " & folder.Name & ".spl"
	Set objOutputFile = PlaylistFolder.CreateTextFile(folder.Name & ".spl", True)
 
	objOutputFile.WriteLine "SPL PLAYLIST"
	objOutputFile.WriteLine "VERSION 1.00"
	objOutputFile.WriteLine ""
 
	Set enumFiles = objFso.GetFolder(".\\Music\\" & folder.Name).Files
 
	For Each file in enumFiles
		If InStr(UCase(file.Name), ".MP3") <> 0 Or InStr(UCase(file.Name), ".WMA") <> 0 Or InStr(UCase(file.Name), ".OGG") <> 0 Then
			Wscript.Echo "+ " & file.Name
			objOutputFile.WriteLine "\Music\" & folder.Name & "\" & file.Name
		Else
			Wscript.Echo "- " & file.Name
		End If
	Next
 
	objOutputFile.WriteLine ""
	objOutputFile.WriteLine "END PLAYLIST"
	objOutputFile.Close
 
	Wscript.Echo "Finished!" & VBCrLf
Next

SPLGen.CMD

1
2
3

@ECHO OFF
CScript SPLGen.vbs
PAUSE

Los pones los dos en la raíz del disco del reproductor y corres el archivo SPLGen.CMD cuando acabes de subir tus archivos de musica a la carpeta Music, básicamente lo que hace es listar todas las carpetas dentro de la carpeta Music, y genera un archivo SPL dentro de la carpeta Playlist con el contenido de las carpeta. Muy practico si tienes un reproductor de estos.

Por desgracia este programa esta hecho para satisfacer mis necesidades, y como tal tiene ciertas limitaciones, la principal es que no hace una exploración recursiva en los directorios únicamente va a mostrar los archivos que estén a primer nivel, por eso te dejo el source para que lo modifiques si necesitas esta opción.

VUGenBOT 1.0

Una de las tareas mas tediosas cuando tienes que escribir secuencias de comandos para LoadRunner, es ingresar las transacciones del mismo, bueno al menos para mi si lo es así que en Diciembre pasado escribí la versión en VBScript de esta aplicación y funciono bastante bien, de hecho tan bien que me decidí por hacerlo una aplicación con llamadas al sistema y que no dependiera del contexto de la ventana y un sin numero de pequeños detalles…

Y es así como nace VUGenBOT, es una pequeña aplicación de Visual Basic que inserta los lr_start_transaction y lr_end_transaction por ti, lo único que hace es esperar a que abras los diálogos de transacción en la barra de comando del VUGen, y se encarga de los demás. adicionalmente te dice cuantas transacciones te faltan por grabar, si te parece útil no olvides dejar un comentario, lo mismo para tus sugerencias o ideas que quieras ver en versiones futuras de la aplicación.

Descargar VUGenBOT 1.0 (ZIP)