VG> можно и так. VG> Саша, пойми человеку нравится кодить с 9 класса школы!
Предвосхищая следующие программы публикую код. ;)
rem превращаем адрес узла в строку, разделенную пробелами. set _addr=!seg.%s%.address!&&set _addr=!_addr::= !&set _addr=!_addr:/= !&set _addr=!_addr:.= !
Call :SetFlo !_addr! rem в %_flo% получаем полное имя файла в BSO.
exit
:SetFlo
set _out=%outbound% if /i %~1 NEQ !DefaultZone! ( set _ext=000 set _ext=!_ext!%~1 set _out=!outbound!.!_ext:~-3! if not exist !_out! md !_out! ) set hex=& call :dec2hex %~2& set _lo=!hex:~-4! set hex=& call :dec2hex %~3& set _lo=!_lo!!hex:~-4! if not %~4==0 ( if not exist %_out%\!_lo!.pnt md %_out%\!_lo!.pnt set hex=& call :dec2hex %~4& set _lo=!_lo!.pnt\0000!hex:~-4! ) set _flo=!_out!\!_lo!
exit /b
:dec2hex set /a dec=%~1 set /a x=dec/16 set /a z=dec-(x*16) set b=!h.%z%! set hex=!b!!hex! if not !x! == 0 call :dec2hex !x! set hex=0000!hex! exit /b
rem ну, и заодно обратный процесс. ;) :hex2dec set _hex=%~1 set /a _dec=0 set /a _m=1 set /a _i=3 :Sh2d set _h=!_hex:~%_i%,1! set /a x=!d.%_h%! set /a _dec+=!x!*!_m! if !_i!==0 goto Eh2d set /a _i-=1 set /a _m*=16 goto Sh2d :Eh2d exit /b
Have nice nights. Brother Rabbit.
--- Когда я ем - я глух и нем. Когда я пью - я гораздо коммуникабельней. * Origin: Lame Users Breeding. Simferopol, Crimea. (2:460/5858)
