Autoit.ES

Código: Seleccionar todo

; Reubica la carpeta de expediente terminado a la carpeta correspondiente según la fecha

#Include <Date.au3>
#Include <Array.au3>
#include <File.au3>

#include <WindowsConstants.au3>
#Include <GuiListView.au3>
#include <GUIConstantsEx.au3>

Global $Gui_Main,$aItems, $sItems

Global $szDrive, $szDir, $szFName, $szExt
Global $carpeta_base="C:\Documents and Settings\Usuario\Mis documentos\" ; <----------------------------------------------- PONER LA CARPETA QUE SE DESEA LEER. SI SE DESEA, SE PUEDE HACER QUE SE SELECCIONE CON FileSelectFolder 
Global $carpeta,$Path,$fecha_carpeta,$carpeta_ano,$carpeta_anomes,$carpeta_destino,$carpeta_destino_sin_dir


content($carpeta_base)

Func Content($directory)
	Local $listview, $button, $item1, $item2, $item3, $input1, $msg

	$FileList = _FileListToArray($directory, '*.*', 2) ; 0=Archivos+Carpetas 1=Archivos 2=Carpetas
	If @error = 1 Then
		MsgBox(0, "", "No se han encontrado Archivos\Carpetas.")
	EndIf

	$Gui_Main=GUICreate("Directorio " & $directory, 400, 450, 100, 230, -1, $WS_EX_ACCEPTFILES)

	$listview = GUICtrlCreateListView("Nombre", 10, 10, 370, 380)
	_GUICtrlListView_SetExtendedListViewStyle($listview,BitOR($LVS_EX_FULLROWSELECT, $LVS_EX_CHECKBOXES, $LVS_EX_GRIDLINES, $LVS_EX_REGIONAL,$LVS_SORTASCENDING ));,$LVS_SORTDESCENDING)
	_GUICtrlListView_SetColumnWidth($listview, 0, 360)
	$button1 = GUICtrlCreateButton("Reubicar", 10, 400,380,20)

	For $n = 1 To UBound($FileList) - 1
		GUICtrlCreateListViewItem($FileList[$n],$listview)
	Next
	GUISetState()

	While 1
		$nMsg = GUIGetMsg()

		Switch $nMsg
			Case $button1
				For $iI = 0 To _GUICtrlListView_GetItemCount($listview)-1
					$aItem = _GUICtrlListView_GetItemChecked($listview,$iI)
						cw("Item "&$iI& " marcado: "&$aItem)
					if $aItem="True" then
						$sItems &= @LF & _GUICtrlListView_GetItemTextString($ListView, $iI)
						reubicar($carpeta_base & _GUICtrlListView_GetItemTextString($ListView, $iI))
					EndIf
				Next
			;	MsgBox(4160, "Información", "Elementos Seleccionados: " & $sItems)
					$sItems=""

			Case $GUI_EVENT_CLOSE
				Exit
		EndSwitch
	WEnd
EndFunc   ;==>Content


Func reubicar($carpeta)

;$carpeta=FileSelectFolder("Seleccione carpeta a mover",@ScriptDir,1+4)	; Selecciona carpeta a mover
$Path = _PathSplit($carpeta, $szDrive, $szDir, $szFName, $szExt)		; Separa en partes la ruta de la carpeta origen
$fecha_carpeta=FileGetTime($carpeta,1,1)								; 1=Creado, 1=AAAAMMDDHHMMSS
$carpeta_ano=Stringleft($fecha_carpeta,4)
$carpeta_anomes=Stringleft($fecha_carpeta,6)
$carpeta_destino_sin_dir=FileGetShortName($carpeta_base & $carpeta_ano & "\" & $carpeta_anomes)
$carpeta_destino=FileGetShortName($carpeta_destino_sin_dir & "\" & $szFName)
;ms($fecha_carpeta)
cw("Carpeta selecionada: " &$carpeta)
cw("Carpeta destino: " &$carpeta_destino)

if $carpeta<>"" Then	; Si existe la carpeta destino, mueve, sino crea carpeta y mueve
		if FileExists($carpeta_destino_sin_dir) then
			;			mb("Ejecuta muevecarpeta()")
			muevecarpeta($carpeta,$carpeta_destino)
		Else
			;			mb("Crea carpeta y Ejecuta muevecarpeta()")
			DirCreate($carpeta_destino_sin_dir)
			muevecarpeta($carpeta,$carpeta_destino)
		EndIf
	Else
		mb("No se ha seleccionado carpeta")
EndIf
	content($carpeta_base)	; Vuelve a actualizar la lista
EndFunc ;Reubicar

func muevecarpeta($carpeta,$carpeta_destino)
		$resultado=dirmove($carpeta,$carpeta_destino,0) ;0=No sobreescribe. 1=Sobreescribe.
		if $resultado=1 Then
			mb("Se ha movido la carpeta " & $carpeta & " a la carpeta " & $carpeta_destino)
		Else
			mb("Parece que no se ha podido mover la carpeta" &@CRLF& $carpeta & @CRLF&" a la carpeta " & @CRLF& $carpeta_destino)
		EndIf

EndFunc

















; ====================== MisUDFs ======================

func cw($texto,$linea=@ScriptLineNumber)	; Muestra con ConsoleWrite el texto indicado + @CRLF
	consolewrite("("&$linea&"): "&$texto & @crlf)
EndFunc

func mb($texto,$linea=@ScriptLineNumber)	; Muestra MsgBox
	MsgBox(0,"Aviso ("&$linea&")",$texto)
EndFunc
; =====================================================

Código: Seleccionar todo

#include <Array.au3>
#include <File.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>	; para GUICreate .... $WS_EX_ACCEPFILES, $WS_EX_WINDOWEDGE

;Opt("GUIOnEventMode", 1) ; Modo OnEvent

; Definición de directorios de ubicación de programas y
;Global $Directorio_GhostScript = "C:\Archivos de programa\gs\gs9.02\bin\GSWin32c.exe"	; Ruta del programa GSWin32c.exe >>> http://pages.cs.wisc.edu/~ghost/
Global $Directorio_PDFTK = "c:\....................\PDFTK\pdftk.exe"	; Ruta del programa pdftk.exe >>> http://www.pdflabs.com/tools/pdftk-the-pdf-toolkit/
Global $Carpeta_Origen_Dialogo = @MyDocumentsDir

#Region ### START Koda GUI section ###

$Form1_1 = GUICreate("Modificar PDF (con PDFTK)", 411, 314, -1, -1, -1, BitOR($WS_EX_ACCEPTFILES,$WS_EX_WINDOWEDGE))
$FondoFormulario = GUICtrlCreateInput("", -10, -100, 420, 21)
GUICtrlSetState(-1, $GUI_DISABLE)
$Mensaje = GUICtrlCreateLabel("Seleccione archivo con el botón 'Seleccionar' o arrástrelo al formulario.", 14, 10, 375, 21)
$ArchivoOrigen = GUICtrlCreateInput("", 110, 50, 191, 21)
$E_ArchivoOrigen = GUICtrlCreateLabel("Archivo Origen", 20, 50, 74, 17)
$B_Seleccionar_Archivo = GUICtrlCreateButton("Seleccionar", 310, 50, 75, 25)
$E_Intervalo = GUICtrlCreateLabel("Intervalo", 20, 80, 45, 17)
$Intervalo = GUICtrlCreateInput("1-", 110, 80, 121, 21)
$Separado = GUICtrlCreateCheckbox("Separado", 110, 110, 97, 17)
$B_Procesar = GUICtrlCreateButton("Procesar PDF", 20, 150, 365, 25)
$Memo = GUICtrlCreateEdit("", 20, 190, 365, 89)
GUICtrlSetData(-1, "")
;~ $B_JPG = GUICtrlCreateButton("Convertir a JPG", 220, 118, 165, 25)
GUISetState(@SW_SHOW)

#EndRegion ### END Koda GUI section ###

; Control $FondoFormulario para recibir archivo arrastrado
	; Situación X=-10 e Y=-100 para esconder el texto que se muestra en el control cuando se le arrastra un archivo y ANCHO+20 y ALTO+100 para cubrir la ventana por completo
GUICtrlSetState($FondoFormulario, $GUI_DROPACCEPTED)     ; Hace que se pueda arrastrar archivo al control
	;GUICtrlSetState($FondoFormulario, $WS_DISABLED+ $ES_AUTOHSCROLL) ; Requiere #include <GuiEdit.au3>
GUICtrlSetState($ArchivoOrigen, $GUI_DROPACCEPTED)     ; Hace que se pueda arrastrar archivo al control


While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $B_Seleccionar_Archivo
			Selecciona_Archivo()
		Case $B_Procesar
			$ArchivoOrigen_T=GUICtrlRead($ArchivoOrigen)
			Procesar_PDF()
;~ 		Case $B_JPG
;~ 			$ArchivoOrigen_T=GUICtrlRead($ArchivoOrigen)
;~ 			Ejecuta_GhostScript()
		Case $GUI_EVENT_DROPPED
            $ArchivoArrastrado = @GUI_DragFile
            ConsoleWrite("Archivo Arrastrado - " & $ArchivoArrastrado & @CRLF)
			GUICtrlSetData($ArchivoOrigen,$ArchivoArrastrado)
		Case $GUI_EVENT_CLOSE
			Exit
	EndSwitch
WEnd

Func Selecciona_Archivo() ; ----- Selecciona archivo PDF para modificar  -----
	Global $ArchivoOrigen_T
	$ArchivoOrigen_T=FileOpenDialog("Seleccione archivo",$Carpeta_Origen_Dialogo,"(*.pdf)",1)
	;msgbox(1,"Archivo seleccionado","El archivo seleccionado es: " & $ArchivoOrigen_T)
	GUICtrlSetData($ArchivoOrigen,$ArchivoOrigen_T)
EndFunc

func Procesar_PDF()
	Global $ArchivoOrigen_T_A,$ArchivoOrigen_T
	Global $CadenaPaginas, $CadenaPaginas_SufijoArchivo
	Global $DirectorioArchivoSalida, $DirectorioArchivoSalida_Corto, $NombreArchivoSalida, $ArchivoOrigen_T_Salida
	Global $Sobreescribir

	$ArchivoOrigen_T_A=FileGetShortName($ArchivoOrigen_T)

	If StringRight($ArchivoOrigen_T_A, 3) = "pdf" Then

	#Region ; ----- Intervalo de páginas -----
	$CadenaPaginas=""
	$CadenaPaginas_SufijoArchivo=""
	$Paginas=StringSplit(GuiCtrlRead($Intervalo),",")
		if GuiCtrlRead($Separado)=1 then  ; 1 = Marcada la opción de "Separar"
			for $a=1 to $Paginas[0]
				$CadenaPaginas=""					; Se reinicia el valor para cada For...Next
				$CadenaPaginas_SufijoArchivo=""		; Se reinicia el valor para cada For...Next
				if StringLeft($Paginas[$a],1)="-" then $Paginas[$a]="1"&$Paginas[$a]
				if StringRight($Paginas[$a],1)="-" then $Paginas[$a]=$Paginas[$a]&"end"
				$CadenaPaginas=$CadenaPaginas & "A" & $Paginas[$a] & " "
				$CadenaPaginas_SufijoArchivo=$CadenaPaginas_SufijoArchivo & "_" & $Paginas[$a]
				;msgbox(0,"",$cadenaPaginas & @cr & $cadenapaginas_sufijoArchivo)
				Nombre_Archivo_Salida()
			Next
		Else  ; Si no está marcarda la opción "Separar"
			for $a=1 to $Paginas[0]
				if StringLeft($Paginas[$a],1)="-" then $Paginas[$a]="1"&$Paginas[$a]
				if StringRight($Paginas[$a],1)="-" then $Paginas[$a]=$Paginas[$a]&"end"
				$CadenaPaginas=$CadenaPaginas & "A" & $Paginas[$a] & " "
				$CadenaPaginas_SufijoArchivo=$CadenaPaginas_SufijoArchivo&"_"&$Paginas[$a]
				;msgbox(0,"Aviso","A"&$Paginas[$a])
			Next
				;msgbox(0,"Aviso",$CadenaPaginas)
				Nombre_Archivo_Salida()
		EndIf
	Else
		msgbox(0,"Aviso","El archivo seleccionado no es PDF." & @cr & "No se realizará ninguna operación.")
	EndIf
	#EndRegion

EndFunc

Func Nombre_Archivo_Salida(); ----- Nombre archivo salida  -----
	$DirectorioArchivoSalida=""
	$NombreArchivoSalida=stringsplit($ArchivoOrigen_T,"\")
	for $a=1 to $NombreArchivoSalida[0]-1
		$DirectorioArchivoSalida=$DirectorioArchivoSalida&$NombreArchivoSalida[$a]&"\"
	Next
		$DirectorioArchivoSalida_Corto=FileGetShortName($DirectorioArchivoSalida)
		;$NombreArchivoSalida=StringLeft($NombreArchivoSalida[$NombreArchivoSalida[0]],stringlen($NombreArchivoSalida[$NombreArchivoSalida[0]])-4) & '_pdftk.pdf'
			$NombreArchivoSalida=StringLeft($NombreArchivoSalida[$NombreArchivoSalida[0]],stringlen($NombreArchivoSalida[$NombreArchivoSalida[0]])-4) & $CadenaPaginas_SufijoArchivo & '.pdf'
			$ArchivoOrigen_T_Salida=$DirectorioArchivoSalida_Corto & $NombreArchivoSalida
			;msgbox(0,"Aviso",$ArchivoOrigen_T_Salida) ;
			Comprueba_si_existe_archivo()
EndFunc

Func Comprueba_si_existe_archivo()
	if FileExists($ArchivoOrigen_T_Salida) then
		$Sobreescribir=msgbox(4,"Aviso","El archivo: " & $ArchivoOrigen_T_Salida & " ya existe." & @CR & @CR & "¿Desea sobreescribirlo?")
		if $Sobreescribir=6 Then ;El Valor 6 es del botón "Sí" del MSGBOX anterior
			Ejecuta_PDFTK()
		Else
			Msgbox(0,"Aviso","Se ha mantenido el archivo existente.")
		EndIf
	Else
		Ejecuta_PDFTK()
	EndIf

EndFunc

Func Ejecuta_PDFTK()
	#cs
	Para separar páginas de varios documentos y crear un documento nuevo con estas hacemos lo siguiente:
		pdftk A=uno.pdf B=dos.pdf cat A1-7 B1-5 output salida.pdf
	Otro ejemplo con un solo documento:
		pdftk A=archivo1.pdf cat A1-12 A14-end output salida.pdf
	#ce
	Dim $LineasArchivo[1], $x, $Paginas_Archivo

	$Directorio_PDFTK = FileGetShortName($Directorio_PDFTK)

	 $cadena=$Directorio_PDFTK & ' A=' & $ArchivoOrigen_T_A & ' cat ' & $CadenaPaginas & 'output ' & $ArchivoOrigen_T_Salida & ' dont_ask' ; Sobreescribirá si ya existe
	;	Msgbox(1,"Aviso",$cadena)
	guictrlsetdata($Memo,guictrlread($Memo) & $ArchivoOrigen_T_Salida & @CRLF)
	RunWait($cadena,"",@SW_HIDE)	; Ejecuta en modo oculto

	if FileExists($ArchivoOrigen_T_Salida) Then
		Beep(2000,100) ;Frecuencia, milisegundos
	Else
		msgbox(0,"Aviso","El archivo no se ha podido crear")
	EndIf

EndFunc