| |
|
131
|
Programación / Scripting / Re: Personalizar Batch
|
en: 19 Septiembre 2013, 01:29 am
|
|
Por favor no te enfades que tu este tema lo tienes mas que ....
Mañana pruebo lo que me comentas y te digo ( espero que ya haya resuelto el problema).
Ya es muy tarde.
Un saludo y gracias por tu tiempo
|
|
|
|
|
132
|
Programación / Scripting / Re: Personalizar Batch
|
en: 19 Septiembre 2013, 00:42 am
|
Hola EleKtro H@cker. lamento que te tenga que molestar tanto, no se que vas ha hacer conmigo, estoy saturado de hacer pruebas y no consigo nada. no consigo que lo que sale en pantalla ( los nombres con la primera letra en mayuscula se copien en la carpeta ) he probado de todo. Me he atascado con esto y no puedo mas te pongo el codigo a ver que se puede hacer: @Echo OFF
set/p nombre="Nombre de Cliente:"
set nombre=%nombre%
set guion=-
for /f "tokens=1,2,3,4,5 delims=/" %%i in ('date /t') do (
set ano=%%k
set dia=%%i
set mes=%%j
Set ToWordCase=%Alphabet%
set nombre=%nombre%)
set cadena=%ano%%guion%%mes%%guion%%dia% %ToWordCase%%nombre%
set directorio=%1
rem copy "%:ToWordCase%" "%cadena%"
Setlocal EnableDelayedExpansion
Call :ToWordCase "%nombre%"
Echo+
Pause&Exit
:ToWordCase
Set "Alphabet=ABCDEFGHIJKLMNOPQRSTUVWXYZ"
For %%# in (%~1) do (
Set "Word=%%#"
Set "Char=!Word:~0,1!"
If "!Char!" EQU "a" (Set "X=%Alphabet:~0,1%")
If "!Char!" EQU "b" (Set "X=%Alphabet:~1,1%")
If "!Char!" EQU "c" (Set "X=%Alphabet:~2,1%")
If "!Char!" EQU "d" (Set "X=%Alphabet:~3,1%")
If "!Char!" EQU "e" (Set "X=%Alphabet:~4,1%")
If "!Char!" EQU "f" (Set "X=%Alphabet:~5,1%")
If "!Char!" EQU "g" (Set "X=%Alphabet:~6,1%")
If "!Char!" EQU "h" (Set "X=%Alphabet:~7,1%")
If "!Char!" EQU "i" (Set "X=%Alphabet:~8,1%")
If "!Char!" EQU "j" (Set "X=%Alphabet:~9,1%")
If "!Char!" EQU "k" (Set "X=%Alphabet:~10,1%")
If "!Char!" EQU "l" (Set "X=%Alphabet:~11,1%")
If "!Char!" EQU "m" (Set "X=%Alphabet:~12,1%")
If "!Char!" EQU "n" (Set "X=%Alphabet:~13,1%")
If "!Char!" EQU "o" (Set "X=%Alphabet:~14,1%")
If "!Char!" EQU "p" (Set "X=%Alphabet:~15,1%")
If "!Char!" EQU "q" (Set "X=%Alphabet:~16,1%")
If "!Char!" EQU "r" (Set "X=%Alphabet:~17,1%")
If "!Char!" EQU "s" (Set "X=%Alphabet:~18,1%")
If "!Char!" EQU "t" (Set "X=%Alphabet:~19,1%")
If "!Char!" EQU "u" (Set "X=%Alphabet:~20,1%")
If "!Char!" EQU "v" (Set "X=%Alphabet:~21,1%")
If "!Char!" EQU "w" (Set "X=%Alphabet:~22,1%")
If "!Char!" EQU "x" (Set "X=%Alphabet:~23,1%")
If "!Char!" EQU "y" (Set "X=%Alphabet:~24,1%")
If "!Char!" EQU "z" (Set "X=%Alphabet:~25,1%")
< Nul Call Set /P "=!X!!Word:~1! "
)
start cmd.exe /c "CD %directorio% && Md """%cadena%""""
Por favor Paciencia con un novato Un saludo |
|
|
|
|
136
|
Informática / Hardware / Re: COmparativa
|
en: 18 Septiembre 2013, 16:35 pm
|
La verdad que tiene una respuesta un poco complicada. a no ser que sean PCs iguales pero modelos diferentes, vamos que no sean clonicos. Depende de tu prioridad, a lo mejor necesitas mas procesador que grafica, o un HDD mas grande, o mas memoria RAM, o salida HDMI , la fuenta de alimentacion mas potente. tendras que destriparlos y comparar pieza a pieza, la verdad un poco complicado. Espero no haberte liado, espera mas respuestas que seguro las habran. Un saludo. Con este batch le podras sacar alguna info. msinfo32 /report sysinfo.txt
tasklist > processes.txt
echo List of softwares > software_list.txt
echo ================= >>software_list.txt
reg export HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall temp1.txt
find "DisplayName" temp1.txt| find /V "ParentDisplayName" > temp2.txt
for /f "tokens=2,3 delims==" %%a in (temp2.txt) do (echo %%a >> software_list.txt)
del temp1.txt temp2.txt
|
|
|
|
|
139
|
Programación / Scripting / Re: Personalizar Batch
|
en: 18 Septiembre 2013, 00:21 am
|
Si eso es así entonces puede que estés creando la carpeta después de llamar al explorer y no antes?
Plis y como se hace Bien, eso es lo que andaba buscando, pasos a seguir para ir practicando, no ir dando palos de ciego. Habia yo, pensado que tendria que haber algun un programa para traducir la sentencia , estilo google translate, ejem: elige lenguaje: Visual basic, java, batch, etc... escribe lo que quieres: como poner todas las palabras en minuscula en las columnas 19 y 20. .......pensando Respuesta a lenguaje Visual basic: If Target.Column = 19 Or Target.Column = 20 Then Target = LCase(Target) Je, Je, y de paso que nos diga los numeros de la loteria. Un saludo y Buenas Noches si estas en Spain |
|
|
|
|
|
| |
|
Mostrar Mensajes
