# -*- coding: UTF-8 -*-
 
# Mueve archivos desde un punto de origen hasta un punto de destino
# Pensado para usarlo como replazamiento del "SendTo" de Windows.
#
# (Requiere el uso de argumentos)
 
 
# Módulos
 
require "FileUtils"
require 'dl'
 
exit if Object.const_defined?(:Ocra)
 
 
# Variables constantes
 
BUTTONS_OKCANCEL = 1
BUTTONS_YESNO = 4
CLICKED_CANCEL = 2
CLICKED_YES = 6
CLICKED_NO = 7
 
 
# Métodos
 
def help()
	print "\nSe requiere al menos 1 archivo de origen.\n\n\n"
	print "Modo de empleo: \n\n"
	print ' Mover.rb [Destino] [Archivo de origen 1] [Archivo de origen 2] [etc...]' + "\n\n\n"
	print 'Ejemplo: (Mover tres archivos al directorio de destino "C:"' + "\n\n"	
	print ' Mover.rb "C:\" "D:\Archivo1.txt" "E:\Archivo2.jpg" "F:\Archivo3.mp3"' + "\n\n"
	Process.exit
end
 
def message_box(txt, title='', buttons='')
    user32 = DL.dlopen('user32')
	msgbox = DL::CFunc.new(user32['MessageBoxA'], DL::TYPE_LONG, 'MessageBox')
	r, rs = msgbox.call([0, txt, title, 3].pack('L!ppL!').unpack('L!*'))
    return r
end
 
def force_move(source_file, dest_file)
  FileUtils.mv $archivo, ARGV[0]
  rescue Errno::EACCES
   response = message_box("El archivo esta en uso:\n" + $archivo  + "\n\n Reintentar?", "Reintentar?", BUTTONS_OKCANCEL)
	 if response == CLICKED_YES
   	     retry 
   	 elsif response == CLICKED_CANCEL
   	     Process.exit 
  end
end
 
 
# Control de errores
 
if ARGV.empty? == true
	help()
elsif ARGV.length < 2
	help()
elsif File.directory?(ARGV[0]) == false
	print "\n El directorio de destino no existe: " + (ARGV[0]) + "\n"
	Process.exit
end
 
for archivo in ARGV[1..ARGV.length].each
	if File.exist?(archivo) == false
		print "\n El archivo a mover no existe: " + archivo + "\n"
	end
 
end
 
 
# Proceso
 
for $archivo in ARGV[1..ARGV.length].each
 
	if File.exist?(ARGV[0] + "\\" + $archivo.split('\\').last)
		response = message_box("Origen:\n" + $archivo + "\n\n Destino:\n " + ARGV[0] + "\\" + $archivo.split('\\').last + "\n\n El archivo de destino ya existe, Reemplazar archivo?", "Reemplazar archivo?", BUTTONS_YESNO)
		if response == CLICKED_YES
  	 	 force_move($archivo, ARGV[0])
  	 	elsif response == CLICKED_CANCEL
  	 	 Process.exit
		end
	else
	 force_move($archivo, ARGV[0])
 	end
 
end
 
 
# Fin
Process.exit

# Proceso
 
def Mover()
 
for archivo in ARGV[1..ARGV.length].each
 
	if File.exist?(ARGV[0] + "\\" + archivo.split('\\').last)
		response = message_box("Origen:\n" + archivo + "\n\n Destino:\n " + ARGV[0] + "\\" + archivo.split('\\').last + "\n\n El archivo de destino ya existe, Reemplazar archivo?", "Reemplazar archivo?", BUTTONS_YESNO)
		if response == CLICKED_YES
  	 	 FileUtils.move archivo, ARGV[0]
  	 	elsif response == CLICKED_CANCEL
  	 	 Process.exit
		end
	else
	 FileUtils.move archivo, ARGV[0]
 	end
end
 
rescue Errno::EACCES
 puts "El archivo está en uso"
FileUtils.move archivo, ARGV[0]
retry
 
end
 
 
Mover()
Process.exit

require "FileUtils"
 
for archivo in ARGV
     FileUtils.move archivo, ARGV[0]
end
 
Process.exit

ARGV[1]..ARGV[(ARGV.length)].each { |archivo| FileUtils.move archivo, ARGV[0] }

ARGV[1].upto ARGV[(ARGV.length)] { |archivo| FileUtils.move archivo, ARGV[0] }

for archivo in ARGV[1], ARGV[(ARGV.length)]
    FileUtils.move archivo, ARGV[0]
end

class Anfitrion
   attr_accessor :nombre
 end

@nombre = "lo que sea"

if (ARGV[0])==(-h|--help)
	help()
end

# -*- coding: UTF-8 -*-
 
 
# Renombrador preconfigurado de archivos
#
# El código original es de RyogiShiki
# http://foro.elhacker.net/scripting/solucionado_ruby_renombrando_un_caracter_ilegal-t354066.0.html
 
 
 
# Gemas, Módulos...
 
require 'find'
exit if Object.const_defined?(:Ocra)
 
system('chcp 1252 >NUL')
 
 
 
# Métodos
 
def reset_vars()
	$total = -1
	$renamed = 0
end
 
def resultado()
	puts " Procesados: #{$total} archivos"
	puts " Renombrados: #{$renamed} archivos"
	system('chcp 850 >NUL')
	Process.exit
end
 
def advise()
	print ' Use "Renamer.exe -a" Para mostrar la ayuda.' + "\n"
	system('chcp 850 >NUL')
	Process.exit
end
 
def help()
	system('chcp 850 >NUL')
	print "\n Modo de empleo:\n\n"
	print "  " + __FILE__.split('/').last + " [Opci\u00F3n] [Ruta]\n\n"
	print "\n Opciones: \n\n"
	print "  -c --comilla        Reemplaza \[\u00B4\] por \[\u0027\]\n\n"
	print "  -e --extension      Reemplaza [ .mp3]  por [.mp3]\n\n"	
	print "  -f --featuring      Reemplaza [ ft ],[ ft. ],[ feat ],[ featuring ] por [ feat. ]\n\n"
	print "  -g --guion          Reemplaza \[\u2013\] por \[-\]\n\n"
	print "  -i --interrogante   Elimina \[\u00BF\]\n\n"
	print "  -t --todo           Combina todas las opciones (-c + -e + -f + -g + -i)\n"
	Process.exit
end
 
def reemplazar(caracter_a_reemplazar, nuevo_caracter)
	$total = -1
	Find.find(ARGV[1].gsub("\\", "/")) { |path|
	path = path.encode('utf-8')
	if path[caracter_a_reemplazar] then
	 if File.exist?(path.gsub(caracter_a_reemplazar, nuevo_caracter))
		print "\n ERROR.   El archivo a reemplazar ya existe: " + (path).split('/').last + "\n"
	 else
		File.rename(path, path.gsub(caracter_a_reemplazar, nuevo_caracter))
		$renamed += 1
	 end
	end
	$total += 1
    }
end
 
 
 
# Argumentos
 
if (ARGV.empty?) then
	help()
end
 
if (ARGV[0])=="-a" or ARGV[0] == "/?"
	help()
end
 
if (ARGV[1])==()
	print "\n ERROR.   Debe introducir una ruta...\n\n"
	advise()
elsif if not File.directory? (ARGV[1]) then
	print "\n ERROR.   La ruta no existe...\n\n"
	advise()
 end
end
 
if ARGV[0] == "-c" or ARGV[0] == "--comilla" 
	reset_vars()
	reemplazar("\u00B4", "\u0027")
	resultado()
elsif (ARGV[0])=="-e" or ARGV[0] == "--extension" 
	reset_vars()
	reemplazar(" .mp3", ".mp3")
	reemplazar(" .MP3", ".mp3")	
	reemplazar(" .Mp3", ".mp3")
	resultado()
elsif (ARGV[0])=="-f" or ARGV[0] == "--featuring" 
	reset_vars()
	reemplazar(" ft. ", " feat. ")
	reemplazar(" Ft. ", " feat. ")
	reemplazar(" FT. ", " feat. ")
	reemplazar(" ft ", " feat. ")
	reemplazar(" Ft ", " feat. ")
	reemplazar(" FT ", " feat. ")
	reemplazar(" feat ", " feat. ")
	reemplazar(" Feat ", " feat. ")	
	reemplazar(" FEAT ", " feat. ")
	reemplazar(" featuring ", " feat. ") 
	reemplazar(" Featuring ", " feat. ") 
	reemplazar(" FEATURING ", " feat. ") 
	resultado() 
elsif (ARGV[0])=="-g" or ARGV[0] == "--guion" 
	reset_vars()
	reemplazar("\u2013", "-")
	resultado()
elsif (ARGV[0])=="-i" or ARGV[0] == "--interrogante" 
	reset_vars()
	reemplazar("\u00BF", "")
	resultado()
elsif (ARGV[0])=="-t" or ARGV[0] == "--todo" 
	reset_vars()
	reemplazar("\u00B4", "\u0027")
	reemplazar("\u2013", "-")
	reemplazar("\u00BF", "")
	reemplazar(" ft. ", " feat. ")
	reemplazar(" Ft. ", " feat. ")
	reemplazar(" FT. ", " feat. ")
	reemplazar(" ft ", " feat. ")
	reemplazar(" Ft ", " feat. ")
	reemplazar(" FT ", " feat. ")
	reemplazar(" feat ", " feat. ")
	reemplazar(" Feat ", " feat. ")
	reemplazar(" FEAT ", " feat. ")
	reemplazar(" featuring ", " feat. ")
	reemplazar(" Featuring ", " feat. ")
	reemplazar(" FEATURING ", " feat. ")
	reemplazar(" .mp3", ".mp3")
	reemplazar(" .MP3", ".mp3")
	reemplazar(" .Mp3", ".mp3")
	resultado()
end