Option Explicit
 
Dim fso, fso2, strNombreAnterior, StrNombreNuevo, RutaNombres, RutaArchivo, ListaArchivos, Archivo, strContenidoAnterior, strContenidoNuevo, NombresFila, FilaPartida,objFile,value, word
 
Set fso=CreateObject("Scripting.FileSystemObject")
Set fso2=CreateObject("Scripting.FileSystemObject")
Const Lectura = 1
Const Escritura = 2
 
 
RutaNombres="C:\Users\Isra\Desktop\lista.txt"
RutaArchivo="C:\Users\Isra\Desktop\Prueba.txt"
 
'Establecemos los objetos
Set ListaArchivos = fso.OpenTextFile(RutaNombres,Lectura)
Set Archivo=fso2.OpenTextFile(RutaArchivo,Lectura)
 
'Leemos el archivo a modificar
strContenidoNuevo=Archivo.ReadAll
 
Archivo.close
 
Set objFile = fso.OpenTextFile(RutaArchivo, Escritura)
 
 
'Lee línea por línea para saber los valores a modificar en un archivo de texto
Do Until ListaArchivos.AtEndOfStream
	'Lee la línea entera
	NombresFila = ListaArchivos.ReadLine
 
	'Partimos la línea asignando cada valor a un array
	FilaPartida=split(NombresFila ,"-")
 
	'Asignamos a cada variable su valor del array por línea
	strNombreAnterior=Trim(cstr(FilaPartida(0)))
	strNombreNuevo=Trim(cstr(FilaPartida(1)))
 
	'Comprobamos valores
	'wscript.echo strNombreAnterior
	'wscript.echo strNombreNuevo
	value = InStr(strContenidoNuevo, strNombreNuevo)
	'wscript.echo value
	[color=red]if value <> 1 then [/color]
		strContenidoNuevo=Replace(strContenidoNuevo, strNombreAnterior, strNombreNuevo,1,-1,0)
	[color=red]end if	[/color]
Loop
 
'wscript.echo strContenidoNuevo
ListaArchivos.close
 
objFile.WriteLine strContenidoNuevo
objFile.Close

for each word in split(strContenidoNuevo, "")
value = InStr(strContenidoNuevo, strNombreNuevo)
	'wscript.echo value
	[color=red]if value <> 1 then [/color]
		strContenidoNuevo=Replace(strContenidoNuevo, strNombreAnterior, strNombreNuevo,1,-1,0)
	[color=red]end if	[/color]
next
 

@echo off
Title Copiar
 
if not exist "I:\Carpeta" md "I:\Carpeta"
 
for %%@ in (*.mkv) do (
 
	copy "%%@" "I:\Carpeta" /Y 1>nul & Echo El archivo: "%%@" fue copiado correctamente. || Echo Hubo un fallo al copiar el archivo "%%@".
        echo.
 
)
 
pause>nul&exit

import os, sys
import win32api
import platform
import gettext
import locale
import sys
from time import sleep
 
#GUI para EACUI
try:
    import tkinter
    from tkinter import *
except ImportError:
    raise ImportError("Se requiere el modulo Tkinter")
 
#Configure gettext Define the '_()' function
 
APP_NAME = "EACUI"
LOCALE_DIR = ('C:\Locale\es\LC_MESSAGES')
 
gettextt = gettext.translation(APP_NAME, LOCALE_DIR,fallback=True)
_ = gettextt.gettext
 
#Ventana
root = tkinter.Tk(screenName=None, baseName=None, className='Tk', useTk=1)
 
'''Titulos'''
root.wm_title("Eac3to GUI v0.0")
#root.title("Eac3to GUI v0.0")
root.wm_frame()
 
'''Etiqueta'''
#etiqueta=tkinter.Label(root,text="Eac3to GUI v0.0")
#etiqueta.grid(row=1, column=1)
 
 
'''Dimension ventana'''
root.wm_maxsize(1000, 1000)
root.wm_minsize(640,640)
root.wm_geometry('640x640')
root.wm_iconbitmap('.\icon.ico')
 
 
'''Menus'''
#File
menu = tkinter.Menu(root)
root.config(menu=menu)
menu1_1 = tkinter.Menu(menu, tearoff=0)
menu.add_cascade(label=_("File"), menu=menu1_1)
menu1_1.add_command(label=_("Open"))
menu1_1.add_command(label=_("Close"))
#Options
menu1_2 = tkinter.Menu(menu, tearoff=0)
menu.add_cascade(label=_("Options"), menu=menu1_2)
menu1_2.add_command(label=_("Setup"),command=lambda: setup(_("Setup")))
menu1_2.add_separator()
menu1_2_1 = tkinter.Menu(menu1_2, tearoff=0)
menu1_2.add_cascade(label=_("Language"), menu=menu1_2_1)
menu1_2_1.add_command(label=_("English"),command=lambda: language(_("English")))
menu1_2_1.add_command(label=_("Spanish"),command=lambda: language(_("Spanish")))
#Help
menu1_3 = tkinter.Menu(menu1_2, tearoff=0)
menu.add_cascade(label=_("Help"), menu=menu1_3)
menu1_3.add_command(label=_("About"),command=lambda: about(_("About")))
 
'''Ventana de carga con scrollbar interno usando Grid'''
text = tkinter.Listbox(root)
text.grid(padx=10,pady=10)
text.bindtags((text, root, "all"))
#for i in range(20):
    #text.insert(i,i)
scrl = Scrollbar(root, command=text.yview)
text.config(yscrollcommand=scrl.set)
scrl.grid_rowconfigure(10)
#scrl.grid(ipadx=200,ipady=20,sticky='e',rowspan=5)
scrl.grid(in_=text,ipadx=200,ipady=20,sticky='ns')
 
'''Ventana de carga'''
#windows_load=tkinter.Text(root,height = 1, width=int(root.winfo_width())-580,font=("Times", 12),state=tkinter.NORMAL, cursor='arrow',insertwidth=2,exportselection=1)
 
#windows_load=tkinter.Listbox(root,height=10,width=int(root.winfo_width())-580)
#windows_load.bindtags((windows_load, root, "all"))
#for i in range(20):
    #windows_load.insert(i,i)
 
#windows_load.pack(anchor='nw',side=TOP, fill=Y, expand=FALSE,padx=10,pady=10)
 
 
'''Ejecucion'''
root.mainloop()

#-------------------------------------------------------------------------------
# Name:        EACUI
# Purpose:     Audio encoding with EAC3TO
#
# Author:      Overdrive80
#
# Created:     13/08/2013
# Copyright:   (c) Overdrive80 2013
# Licence:     <your licence>
#-------------------------------------------------------------------------------
import os, sys
import win32api
import platform
import gettext
import locale
import sys
 
#Configure gettext Define the '_()' function
def set_gettext():
    APP_NAME = "EACUI"
    LOCALE_DIR = ('C:\Locale\es\LC_MESSAGES')
 
    t = gettext.translation(APP_NAME, LOCALE_DIR,fallback=True)
    _ = t.gettext
 
def main():
    #Inicializacion de Gettext
    set_gettext()
 
    '''Create a list of asociated programs'''
    lista_programas=['eac3to']
    '''Check arquitecture'''
    def is_x64():
        arquitectura=platform.architecture()
        if arquitectura[0] == '64bit':
            #print "Tu sistema es de 64 bits."
            return True
        else:
            #print "Tu sistema es de 32 bits."
            return True
    '''Seek path by default of installating'''
    def find(ruta, program):
        for root,dirs,files in os.walk(ruta):
            for name in files:
                if program+'.exe'==name:
                    path=os.path.join(root, name)
                    return path
 
    PATH_DEFAULT='C:\\'
    for programa in lista_programas:
        path=find(PATH_DEFAULT, programa)
        if path != None:
            ruta_bus=os.path.split(path)
            print (_('File found %s, in the path %s.')) % programa, ruta_bus[0]
            print (_('Would you like to set this path as access by default to program %s?')) % programa
        else:
            print (_("Not file found %s.")) % programa
            print (_('Would you like set handle program´s path?'))
 
main()
 
 

@echo off
Title .Py to .Pot files
set path=path;C:\Python33\
set /p label="Inserte la etiqueta del idioma (p.e.: es): "
python "C:\Python33\tools\i18n\pygettext.py" -d %label% -o %label%.pot %1
pause&exit 

#-------------------------------------------------------------------------------
# Name:        Overdrive
# Purpose:     Listar archivos directorio en un txt
#
# Author:      Overdrive
#
# Created:     10/08/2013
# Copyright:   (c) Overdrive 2013
# Licence:     Free
#-------------------------------------------------------------------------------
#import fnmatch
import os
from tkinter import messagebox
import tkinter
 
#Creamos una clase para la ventana de control depuración
class Msgbox(object):
 
    #""" Constructor """
    def __init__(self, text):
        self.text=text
        window = tkinter.Tk()
        window.wm_withdraw()
 
    def msg(self):
        messagebox.showinfo("Ventana de depuración", self.text)
 
def escribir(name):
 
    #Creamos el objeto del archivo de texto
    fd = os.open( name, os.O_RDWR|os.O_CREAT )
    mi_archivo=os.fdopen(fd,"r+")
 
    #Grabamos cada archivo del directorio en el txt, exceptuando el script
    for file in os.listdir('.'):
        if file[-2:] != 'py' and file[-3:] != 'txt':
            mi_archivo.write(str(file)+"\n")
 
    #Cerramos el archivo creado
    mi_archivo.close()
 
def main():
    #Comprobamos si existe .txt y sino lo creamos
 
    if os.path.isfile(str(os.curdir)+"\lista.txt")==False:
        ventana=Msgbox("No existe el fichero.")
        ventana.msg()
        escribir("lista.txt")
    else:
        ventana=Msgbox("Si existe el fichero.")
        ventana.msg()
        os.remove('lista.txt')
        escribir("lista.txt")
 
main()

@echo off
SetLocal EnableDelayEdexpansion
 
@ECHO OFF
FOR /F "tokens=*" %%A IN ("C:\Users\Isra\Desktop\Nueva carpeta\10. QPFILE_NAME.txt") DO CALL:Tratar "%%A"
GOTO:EOF
 
:Tratar
   SET Reg=%~1
   ECHO %Reg%
   GOTO:EOF
 
pause&exit

0 K -1
2616 K -1
16072 K -1
16384 K -1
32440 K -1
34768 K -1

@echo off
 
:: Nos situamos en la siguiente carpeta
 
cd /d "%homedrive%\Program Files (x86)"
 
	:Listamos directorios de la carpeta actual y comprobamos si se encuentra Virtualdub en ella
 
	dir /b > "%temp%\info_vdub.txt"	
 
	::Buscamos coincidencia de string, creamos un archivo de texto para valernos del mensaje de errorlevel.
 
	Find /i "virtualdub" < "%temp%\info_vdub.txt" > "%temp%\StringCheck.txt"
 
	If %ERRORLEVEL% == 0 (
		set "x86=true"
	) else (
		set "x86=false"
	)
::Borramos archivos temporales
 
	del "%temp%\StringCheck.txt" 
	del "%temp%\info_vdub.txt"
 
	set "path_x86=%cd%"
 
:: Nos situamos en la siguiente carpeta y hacemos mas de lo mismo
 
cd /d "%homedrive%\Program Files"
 
 
	dir /b > "%temp%\info_vdub.txt"	
 
	Find /i "virtualdub" < "%temp%\info_vdub.txt" > "%temp%\StringCheck.txt"
 
	If %ERRORLEVEL% == 0 (
 
		set "x64=true"
	) else (
		set "x64=false"
	)
 
	::Borramos archivos temporales
 
	del "%temp%\StringCheck.txt" 
	del "%temp%\info_vdub.txt"
 
	set "path_x64=%cd%"
 
::Info en pantalla
 
Echo VirtualDub esta instalado en:
echo.
 
if "%x86%"=="true" (
 
	echo %path_x86%
	echo.
)
 
if "%x64%"=="true" (
 
	echo %path_x64%
	echo.
 
)