Új hozzászólás Aktív témák
-
csaszizoltan
csendes tag
válasz csaszizoltan #709 üzenetére
És egy javított:
(ha nincs "sorszam.txt" akkor az első sorszámtól kezdve létrehoz)@Echo Off
Set First=101
Set FromPath=D:\Batch\Kepek
Set ToPath=D:\Batch\Aktualis
Rem az utolso sorszam megkeresese es a Last-ba ertekedasa
Set Last=%First%
For /L %%L In (%First%, 1, 999) Do If exist %FromPath%\%%L_reklam%%L.jpg Set Last=%%L
Rem Esetleg a sok kozul egy hianyzo sorszam kiirasa
Set Absent=000
For /L %%A In (%First%, 1, %Last%) Do If not exist %FromPath%\%%A_reklam%%A.jpg Set Absent=%%A
If %Absent%==000 Goto Tovabb
Echo Legalabb egy sorszamu file hianyzik es az a kovetkezo: %Absent%
:Tovabb
Rem Az elozo napi aktualis sorszam megkeresese es az Prev-be toltese
Set Prev=%First%
For /L %%P In (%First%, 1, %Last%) Do If exist %FromPath%\%%P.txt Set Prev=%%P
Rem If,Else,EndIf-ig: A ciklikusan kovetkezo aktualis sorszam megkeresese es Next-be toltese
If %Prev%==%Last% Goto Else
Set Next=%Last%
For /L %%N In (%Last%, -1, %Prev%) Do If not exist %FromPath%\%%N.txt Set Next=%%N
Goto EndIf
:Else
Set Prev=%Last%
Set Next=%First%
:EndIf
Echo Az aktualis kepsorszam: %Next%
Del %FromPath%\%Prev%.txt >%FromPath%\log.txt
Echo >%FromPath%\%Next%.txt
Rem Ren %Prev%.txt %Next%.txt
Copy %FromPath%\%Next%_reklam%Next%.jpg %ToPath%\reklam.jpg >%FromPath%\log.txt[ Szerkesztve ]
- Kivel és mit iszik Orbán? - Tök mindegy! Sörös vagy boros, csak közel legyen Soroshoz.
Új hozzászólás Aktív témák
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Ozeki Kft.
Város: Debrecen