Mensajes

No estoy muy seguro pero creo que es posible realizar una comunicacion, lo unico es que tendria que saber en que formato...

Entra a la consola de comandos y escribe MODE COM1 y se podra ver la configuracion que tiene dicho puerto o dispositivo, ya luego seria cosa de redireccionar la salida estandar de CON a COM1 y con algun dispositivo conectado mirar en que formato llega, sea HEXA o BINARIO o NORMAL y apartir de eso trabajar en algo...pero creo que si seria posible...

Saludos.

Un poco mas simple y combinado con el tema de las coordenadas....

Código (dos) [Seleccionar] Expandir

@echo off
setlocal enabledelayedexpansion

if not exist ax.dat (
ECHO e100 B8 1 0'3'DB CD'3'B0 3'C'CD'3'B DB't'FA 91 D3 EA D3 E8 91 C3>ax.dat
FOR %%! in (.g116 .q) do ECHO%%!>> ax.dat
)

:Init
for /l %%a in (0,1,30) do (
for /l %%b in (0,1,25) do (
set "X%%aY%%b= "))

:Graphic
cls
For /l %%d in (0,1,25) do (
For /l %%e in (0,1,30) do (
Set Lin_%%d=!Lin_%%d!!X%%eY%%d!))
For /l %%f in (0,1,25) do (echo.!Lin_%%f!)
Call :Mouse
For /l %%f in (0,1,25) do (Set "Lin_%%f=")
Goto :Graphic

:Mouse
For /f "skip=3 tokens=6-8 delims== " %%a in ('DEBUG ^< ax.dat') do (
Set /a "X_Axis=0x%%a"
Set /a "Y_Axis=0x%%c"
Set X!X_Axis!Y!Y_Axis!=*
Goto :Eof

Saludos.

No solamente con un FOR, sino con los demas comandos que pueden necesitar de paentesis....ya lo habia probado asi "escapando" los parentesis...

Código (dos) [Seleccionar] Expandir

:getlabel
for /f "tokens=8" %%a in ('^(echo USB^)^|label /MP %1:^|find "unidad"') do (set label=%%a)
if "%label%"=="tiene" set label=Unidad
(echo %label%)|label /MP %1:>nul
if "%label%"=="Unidad" set label=USB
goto :eof

Saludos.

Muy Bueno Brother, la Implementacion del FOR lo deja aun mas optimizado...

http://es.wikipedia.org/wiki/N%C3%BAmero_primo

Con esto me he dado cuenta que mi codigo estaba errado al tomar el 1 como primo, pues no lo es aunque su regla se aplique. 

Ahora, para descomponer un numero en sus factores primos.

Código (dos) [Seleccionar] Expandir

@echo off
::Descomposicion En Factores Primos
setlocal enabledelayedexpansion

Set /a "C=%1*1"
If not %C% EQU %1 (Echo.No Ha Introducido un Numero..&Goto :Eof)
If "%1"=="1" (Echo.1&Goto :Eof)
Set Lim=%1
for /l %%n in (1,1,%Lim%) do (
call :EsPrimo %%n
if "!Primo!"=="True" Call :DescPrimo %Lim% %%n
)
Echo.%Op:~1%
Goto :Eof

:EsPrimo
set divisores=
set "numero=%1"
for /l %%_ in (1,1,%numero%) do (
set /a "operacion=%numero%%%%%_"
if !operacion! equ 0 set /a "divisores+=1"
)
if %divisores% equ 2 (Set Primo=True) else (Set Primo=False)
Goto :Eof

:DescPrimo
Set Val=%1
:Desc2
Set Var=%Op%
Set /a C=%Var:~1%
If %C% GEQ %Lim% Goto :Eof
Set /a Mod=(%Val%)%%(%2)
If %Mod% EQU 0 set Op=%Op%*%2&Set /a Val=(%Val%)/(%2)&Goto :Desc2
Goto :Eof

Saludos. 

INteresante codigo.....veo que ha sido de gran utilidad el Keyboard.exe 

KEYS ON / KEYS OFF

Habilita o deshabilita la edici¢n de la l¡nea de comandos en el sistema DOS

Est  presente para que haya compatibilidad con sistemas DOS, pero no tiene efecto
en Windows XP, ya que la edici¢n de la l¡nea de comandos esta  siempre habilitada.

Segun lo que leo no le veo mucha utilidad, pero uno nunca sabe

Saludos.

Espero a ver que gran code nos trae el amigo Novlucker, ya mas o menos tengo una idea de como hacer esto en batch puro, ero pues seria mejor implementarlo en VBS.

Saludos.

Algunas cosas de esas me habian pasado, pero no le prestaba atencion, igual muchisimas gracias por tu aporte. ;P

Saludos.

PD: te respondo aqui o en todos lados...xD xD xD 

Muy buen codigo, gracias por el aporte......sabes que no tengo criticas contra ti

Saludos.

Suponiendo que toda la estructura de datos en el XML es tal cual como la posteas...

<argumento>
            <nombre>xxxxxxxxxxxx1</nombre>
            <tipo>yyyyyyyyyy.zip</tipo>
</argumento>

Habria que usar FOR y FIND para buscar y separar las cadenas y definirlas en variables para despues poder trabajar con ellas...

Ej:
DATOS.XML

Código [Seleccionar] Expandir

<argumento>
            <nombre>SmartGenius</nombre>
            <tipo>Usuario</tipo>
</argumento>
<argumento>
            <nombre>Novlucker</nombre>
            <tipo>Moderador</tipo>
</argumento>
<argumento>
            <nombre>Leo Gutierrez</nombre>
            <tipo>Moderador</tipo>
</argumento>
<argumento>
            <nombre>0x0309</nombre>
            <tipo>Usuario</tipo>
</argumento>

Podria realizar algo como esto...

LeeDatos.Bat

Código (dos) [Seleccionar] Expandir

@echo off
::Coded by SmartGenius

setlocal enabledelayedexpansion
:Init
for /f "tokens=3 delims=^>^<" %%a in ('find "nombre" datos.xml') do (
set /a N+=1
set Nombre!N!=%%a
)
for /f "tokens=3 delims=^>^<" %%b in ('find "tipo" datos.xml') do (
set /a T+=1
set Tipo!T!=%%b
)
echo. Datos del XML
for /l %%c in (1,1,!N!) do (echo. Dato%%c: !Nombre%%c! - !Tipo%%c!)
echo.
pause
exit

Saludos.