Mokinuosi rašyti BAT failą... atrodo gausis iki ryto... :)
Mokinuosi, rašau, bandau, derinu...
Va jau kiek padariau...:
@echo off
:start
ClS
echo DELETE--------0
echo Uzsienio------1
echo Classic-------2
echo Lietuviska----3
echo Graiku--------4
echo Akordeonas----5
echo Instrumentine-6
echo Relax---------7
echo Counytry------8
echo Tango---------9
setlocal
set "source=M:\SigMP3\0_Laikini"
set "target=M:\SigMP3\00"
for %%F in ("%source%\*.mp3") do (
set "file=%%~nxF"
start "c:\Program Files (x86)\Winamp\winamp.exe /new" "%%F"
goto :input
)
:input
echo klausomes ir pasirenkam skaiciu
set /p num1=
taskkill /im winamp.exe /f
set /a n=%num1%
echo %n% GERAS?
pause
goto if
:if
IF %n%==0 goto 00
IF %n%==1 goto 01
IF %n%==2 goto 02
IF %n%==3 goto 03
IF %n%==4 goto 04
IF %n%==5 goto 05
IF %n%==6 goto 06
IF %n%==7 goto 07
IF %n%==8 goto 08
IF %n%==9 goto 09
goto start
:00
setlocal
set "source=M:\SigMP3\0_Laikini"
set "target=M:\SigMP3\00"
for %%F in ("%source%\*.mp3") do (
set "file=%%~nxF"
move "%%F" "%target%" >nul
goto :break
)
:01
setlocal
set "source=M:\SigMP3\0_Laikini"
set "target=M:\SigMP3\01Uzsienio"
for %%F in ("%source%\*.mp3") do (
set "file=%%~nxF"
move "%%F" "%target%" >nul
goto :break
)
:02
setlocal
set "source=M:\SigMP3\0_Laikini"
set "target=M:\SigMP3\02Classic"
for %%F in ("%source%\*.mp3") do (
set "file=%%~nxF"
move "%%F" "%target%" >nul
goto :break
)
:03
setlocal
set "source=M:\SigMP3\0_Laikini"
set "target=M:\SigMP3\03Lietuviska"
for %%F in ("%source%\*.mp3") do (
set "file=%%~nxF"
move "%%F" "%target%" >nul
goto :break
)
:04
setlocal
set "source=M:\SigMP3\0_Laikini"
set "target=M:\SigMP3\Graiku"
for %%F in ("%source%\*.mp3") do (
set "file=%%~nxF"
move "%%F" "%target%" >nul
goto :break
)
:05
:break
echo File "%file%" was moved from "%source%" to "%target%"
pause
goto start
On 4/11/2022 12:37 AM, Laimis wrote:
> Sigitas rašė:
>> PS, o.programming kažkoks neaktyvus...
>>
>> Bėda ta, kad nemoku rašyti scriptų...
> > Pirma, kas šauna į galvą, tai AutoIt. Nori ne visai trivialių dalykų,
> tai net ir mokančiam rašyti script'us – nemenka (matyt ir kelių valandų)
> užduotis. Pabandysiu, jei rasiu laiko.
>