Добро пожаловать, Гость. Пожалуйста авторизуйтесь здесь.
FGHIGate на GaNJa NeTWoRK ST@Ti0N - Просмотр сообщения в эхоконференции RU.FIDONET.TODAY
Введите FGHI ссылку:


Присутствуют сообщения из эхоконференции RU.FIDONET.TODAY с датами от 09 Jul 13 15:35:00 до 17 Jun 24 04:17:08, всего сообщений: 45751
Ответить на сообщение К списку сообщений Предыдущее сообщение Следующее сообщение
= Сообщение: 12538 из 45751 =============================== RU.FIDONET.TODAY =
От   : Brother Rabbit                   2:460/5858         20 Jan 19 16:14:32
Кому : Vitaliy Geydeko                                     20 Jan 19 16:14:32
Тема : logt
FGHI : area://RU.FIDONET.TODAY?msgid=2:460/5858+5c44743b
На   : area://RU.FIDONET.TODAY?msgid=2:5064/54.2+5c445260
= Кодировка сообщения определена как: CP866 ==================================
Ответ: area://RU.FIDONET.TODAY?msgid=2:460/5858+5c4476bb
==============================================================================
Hi, Vitaliy!

20 янв 19 13:48, Vitaliy Geydeko -> Alexander Kruglikov:

AK>> С каких пор отменили

AK>> echo %DATE% %TIME% Мой сервер взлетел!>>my.log

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)

К главной странице гейта
Powered by NoSFeRaTU`s FGHIGate
Открытие страницы: 0.254068 секунды