Mensajes

[Ovichan]

Creo que ya te expliqué los inconvenientes de habilitar la expansión en ocasiones como esta... No sigas usandolo para procesar nombres de archivos como estos... No lo digo por los caracteres latinos (Que eso es problema del código de páginas, no estás usando el adecuado), sinó por las exclamaciones "!" que son inseteables al expandir.

Código (dos) [Seleccionar] Expandir

@echo off
Title Listar nombres capitulos

REM Esto para el alfabeto latino
CHCP 1250 >nul

if exist "lista.txt" (erase "lista.txt")

for /f "tokens=2 delims=[]" %%i in ('dir /b /o:n "*.mkv"') do (

set "nom=%%i"

       REM Y esto para evitar la expansión y no perder otros caracteres.
CALL Echo %%nom:~1%%>>"lista.txt"
)

Pause&Exit

Saludos



EDITO: unas preguntas tontas Ovichan xD...
¿ese magnifico rip que ven mis ojos es tuyo?
Si conoces el ripeo de "Buiza" del foro AnimeHD, siendo sincero, ¿El tuyo tiene mejor calidad/tamaño? es que al ver "mkv" me asusta el tamaño.
¿Puedes decirme cuanto pesaría aprox. un capitulo de esos dejando solo el audio castellano?

-- ¿Está completado y posteado en evoshare ya?

PD: Vaya un offtopic xD

El email ya lo sabes (Yahoo), ¿Que es lo que quieres saber entonces, La ubicación geográfica de esa persona?

Entonces puedes mirar el código fuente del email para obtener la ip del remitente y geolocalizar la ubicación con el geolocalizador del foro.

http://www.elhacker.net/geolocalizacion.html




Saludos

[con el Sony Sound Forge]

No convierte estos programas esto son los audios:
Z0000000.DVF

En teoria podrías con algun programa de edicion de audio de Sony como el Sound Forge o parecidos.

Sinó, lo que te han dicho, con el Sony Sound Forge puedes abrir archivos dvf perfectamente.

Saludos...

el wavepad se supone que soporta dvf...

mira a ver este... http://www.wav-mp3.com/dvf/dvf-to-mp3.htm

Sinó, lo que te han dicho, con el Sony Sound Forge puedes abrir archivos dvf perfectamente.

Saludos

como personalizo un programa tipico de consola y lo transformo a un programa con una visualizacion "linda"(por asi decirlo) con ciertos colores con cierto menu etc.

TKinter

http://docs.python.org/library/tkinter.html

Mirate esto también: http://sourceforge.net/projects/visualtkinter/

como paso un archivo.py que es necesario tener python instalado para verlo a un simple .exe que no es necesario tener instalado el interprete

No vayas a probar py2exe... usa esto:

http://cx-freeze.sourceforge.net/

Código [Seleccionar] Expandir

Python.exe cxfreeze "PROYECTO.py" --target-dir "PROYECTO_Compilado"

Saludos

[EN WINDOWS 7]

Un pequeño code que me he hecho para automatizar la instalación de muchas fuentes de texto TTF u OTF EN WINDOWS 7...
Viene bien para ciertos casos así que aquí lo dejo por si alguien anda buscando algo parecido.

(Versión 0.2)

Código (dos) [Seleccionar] Expandir

@ECHO OFF
Mode con COLS=60 LINES=3
TITLE Text Font Installer (By Elektro H@cker^) v0.2
Nircmd win center ititle "Fuentes TrueType" 2>NUL
COLOR 07

:: Modo de instalación normal
REM Instalador.bat
:: Modo de instalación recursiva
REM Instalador.bat -R

Takeown /F "%SystemRoot%\Fonts" >NUL
Icacls "%SystemRoot%\Fonts" /Grant "%USERNAME%":(F) >NUL
Attrib -R -S "%SystemRoot%\Fonts" >NUL

IF /I "%~1" EQU "-R" (Set "DIR_RECURSIVE=/S" & Set "FOR_RECURSIVE=/R")

For /F %%X in ('Dir /B %DIR_RECURSIVE% "*.OTF"; "*.TTF" ^| FIND /V /C ""') Do (SET "Total=%%X")

For %FOR_RECURSIVE% %%# in (*.otf; *.ttf) DO (
Set /A "Counter+=1"
IF /I "%%~x#" EQU ".OTF" (Call SET "Font_Type=OpenType") ELSE (Call SET "Font_Type=TrueType")
CALL Echo: Instalando fuentes de texto...  ( %%COUNTER%% de %%TOTAL%% ^)
Echo: [+] %%~nx#
CALL REG ADD "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts" /V "%%~n# (%%Font_Type%%)" /D "%%~nx#" /F >NUL
CALL REG ADD "HKLM\SOFTWARE\Wow6432Node\Microsoft\Windows NT\CurrentVersion\Fonts" /V "%%~n# (%%Font_Type%%)" /D "%%~nx#" /F >NUL
COPY /Y "%%#" "%SystemRoot%\Fonts\" >NUL
)

Echo+
Echo: Las fuentes de texto se han instalado!
Timeout /T 3
Exit



Versión alternativa del script (Se reduce el molesto efecto del borrado de pantalla, pero la ventana queda más pequeña, menos bonita xD)

Código (dos) [Seleccionar] Expandir

@ECHO OFF
Mode con COLS=60 LINES=5
TITLE Text Font Installer (By Elektro H@cker^) v0.2
Nircmd win center ititle "Fuentes TrueType" 2>NUL
COLOR 07

:: Modo de instalación normal
REM Instalador.bat
:: Modo de instalación recursiva
REM Instalador.bat -R

Takeown /F "%SystemRoot%\Fonts" >NUL
Icacls "%SystemRoot%\Fonts" /Grant "%USERNAME%":(F) >NUL
Attrib -R -S "%SystemRoot%\Fonts" >NUL

IF /I "%~1" EQU "-R" (Set "DIR_RECURSIVE=/S" & Set "FOR_RECURSIVE=/R")

For /F %%X in ('Dir /B %DIR_RECURSIVE% "*.OTF"; "*.TTF" ^| FIND /V /C ""') Do (SET "Total=%%X")

For %FOR_RECURSIVE% %%# in (*.otf; *.ttf) DO (
Set /A "Counter+=1"
IF /I "%%~x#" EQU ".OTF" (Call SET "Font_Type=OpenType") ELSE (Call SET "Font_Type=TrueType")
Echo+
CALL Echo: Instalando fuentes de texto...  ( %%COUNTER%% de %%TOTAL%% ^) | MORE
Echo: [+] %%~nx#
CALL REG ADD "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts" /V "%%~n# (%%Font_Type%%)" /D "%%~nx#" /F >NUL
CALL REG ADD "HKLM\SOFTWARE\Wow6432Node\Microsoft\Windows NT\CurrentVersion\Fonts" /V "%%~n# (%%Font_Type%%)" /D "%%~nx#" /F >NUL
COPY /Y "%%#" "%SystemRoot%\Fonts\" >NUL
CLS
)

Echo+
Echo: Las fuentes de texto se han instalado!
Timeout /T 3
Exit

Saludos

[NUEVA VERSIÓN 1.4 DISPONIBLE PARA DESCARGAR]

Sensual código ! n_n

No te burles del mod!  



NUEVA VERSIÓN 1.4 DISPONIBLE PARA DESCARGAR

PD: En el comentario principal

Ya ves, algunas lecciones se aprenden a palos! (Como en esta ocasión)  

Yo directamente en el HDD del SO no tengo ningún archivo ni muy importante ni poco importante, solamente el SO, y las aplicaciones instaladas, todo lo importante bien guardadito en otro(s) disco(s), es la mejor solución para evitar tanto pérdidas como preocupaciones, a ver si aprenden...

Saludos

Como ya te dije no dispongo del vbs para testear así que estos códigos los hago "a ojo", esto debería funcionar, sinó, modificalo un poco para arreglarlo:

Código (dos) [Seleccionar] Expandir

@Echo OFF

:: By Elektro H@cker

REM FOR %%a in (pepe manolo elektro elhacker.net) DO (
REM Set /A "NUM+=1"
REM Call Set "Impresora%%NUM%%=%%a"
REM )

FOR /F "tokens=3,*" %%a in ('cscript prnmngr.vbs -l ^| find "Nombre de impresora"') DO (
Set /A "NUM+=1"
Call Set "Impresora%%NUM%%=%%b"
)

For /L %%a in (1,1,%NUM%) DO (
Call Set "choices=%%choices%%%%a"
Echo: [%%a] Impresora: %%Impresora%%a%% | MORE
)

choice /C %CHOICES% /M "elige una impresora >> "

Echo: Has elegido la impresora "%%IMPRESORA%ERRORLEVEL%%%" | MORE

Pause&Exit

Te debería salir algo así:



PD: si no te sale, examina con detalle los tokens del primer FOR, ahí estará el problema y la solución...

Saludos.

Arrastrar un archivo y tomarlo como argumento es muy fácil.

La cosa se complica si quieres arrastrar VARIOS archivos, ya que todo se junta en una sola linea, y los archivos con espacios en el nombre llevarán comillas dobles ", y los que no tengan espacios en el nombre no llevarán delimitador, así que hay que comerse la cabeza para separar todos los elementos sin saber si habrá elementos con comillas dobles o no...

Aquí tienes un ejemplo muy claro con el que te puedes guiar:

[Batch] [Aporte] (O eso creo xD) Consola de reciclaje v1.0 by Elektro H@cker

 

PD: te dejo este for delimitador de comillas dobles por si llegas a necesitarlo:

Código (dos) [Seleccionar] Expandir

setlocal EnableDelayedExpansion
set "var=one"two"three"
FOR /f tokens^=1-3^ delims^=^" %%a in ("!var!") do echo %%a--%%b--%%c

Saludos