lisp2arx
Visual Programming for AutoLisp
Mathématiques en programmation Lisp..
doc2cpp,doc2lsp, sld2lsp, bmp2dcl,
free__GifCcapture for all-CAD'platforms..
|
Nou pe simpatie:
Cenusareasa la Simpatie.ro
 | Femeie
24 ani
Bucuresti
cauta Barbat
28 - 61 ani |
|
|
lisp2arxReguliInregistrareLoginPozeNu sunteti logat. Lista Forumurilor Pe Tematici
|
| #1 |
adminAdministratorDin: Bucharest
Postari: 523
|
|
cls & echo "//Inf=Make BackUp with (ext .bck) in same folder"
echo off & echo version 1.4"
set Wbem=%1
SetLocal enabledelayedexpansion
if "%1"=="" set Wbem=pp_superhatch.vlax
set From=%Wbem%
set Exte=
:LOOP
If "%Wbem:~-1,1%"=="." GoTo :FDONE
set Exte=%Wbem:~-1,1%%Exte%
echo Wbem01=%Wbem% & Set Wbem=%Wbem:~0,-1%
goTo :LOOP
:FDONE
set Wbem=%Wbem:~0,-1%
set Tooo=%Wbem%.bck
echo From="%From%"
echo Tooo="%Tooo%"
echo Exte="%Exte%"
call :a14_strcaseT_bya_Dave_Wilson Exte
set Exte=%Exte:~0,3%
echo Exte3="%Exte%"
color 07
cls
If "%Exte%"=="BCK" goto :getenv_isavebak
erase %Tooo%
rename %From% %Tooo%
copy %Tooo% %From%
echo "(Result=%errorLevel%)"
if Errorlevel=1 pause
endLocal
goto :EOF
:getenv_isavebak
color 04
echo "You cannot make backup on file .bck"
endlocal
goto :EOF
Code:
Eu sunt de acord, cu ele, dacă călugării de la Athos inmultesc basmele de astea de război, dupa aceste războaie noi să nu aflam că muntele Athos a fost/ este protejat de Atlantii, iar acestii alieni-se răzbună; va abandona protectia muntele Athos, pradă satanistilor care fac jafuri pe Athos? Eu vă rog numai cititii astfel se bazaconii ! in numele ortodoxiei..poate vom afla la final că sunt aiureli= =scrierile acestea ale preotilor-Athoniți ? Doamne milueste-ne |
:a14_strcaseT_bya_Dave_Wilson
set %~1=!%1:a=A!
set %~1=!%1:b=B!
set %~1=!%1:c=C!
set %~1=!%1:d=D!
set %~1=!%1:e=E!
set %~1=!%1:f=F!
set %~1=!%1:g=G!
set %~1=!%1:h=H!
set %~1=!%1:i=I!
set %~1=!%1:j=J!
set %~1=!%1:k=K!
set %~1=!%1:l=L!
set %~1=!%1:m=M!
set %~1=!%1:n=N!
set %~1=!%1:o=O!
set %~1=!%1:p=P!
set %~1=!%1:q=Q!
set %~1=!%1:r=R!
set %~1=!%1:s=S!
set %~1=!%1:t=T!
set %~1=!%1:u=U!
set %~1=!%1:v=V!
set %~1=!%1:w=W!
set %~1=!%1 =X!
set %~1=!%1:y=Y!
set %~1=!%1:z=Z!
goto:eof
_______________________________________
http://www.puiubrat.3x.ro/lisp2arx/lisp ... O2UTM2.pdf
|
|
| |
|
