- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Milyen TV-t vegyek?
- AMD GPU-k jövője - amit tudni vélünk
- Milyen egeret válasszak?
- Milyen billentyűzetet vegyek?
- Mac vagy Windows? Az egér nem ugyanúgy működik… – Tech Percek #17
- HTPC (házimozi PC) topik
- Vezetékes FEJhallgatók
- RAM topik
- NVIDIA GeForce RTX 5070 / 5070 Ti (GB205 / 203)
Ú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
Új hozzászólás Aktív témák
- EAFC 25
- Filmvilág
- One otthoni szolgáltatások (TV, internet, telefon)
- Eredeti játékok OFF topik
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Redmi Note 10 Pro - majdnem minden stimmel
- Milyen TV-t vegyek?
- AMD GPU-k jövője - amit tudni vélünk
- Milyen egeret válasszak?
- Milyen billentyűzetet vegyek?
- További aktív témák...
- Hobby gamer asztali gép RGB i5-114600/RTX 2060 12GB/32 GB RAM/500 GB NVMe
- Dell Latitude E6540 Erőmű akár Játékra is.15"6 FHD,I7 4800MQ,HD8790,16GBram,500GB sshd,gyári töltö
- HP ELITEBOOK 855 G8 Ryzen 3 5400U 16gb ram 256ssd FHD IPS Gari
- HP ELITEBOOK 850 G8 i5 1145G7/16GB ram 256ssd/FHD
- Újszerű Lenovo Legion 5 - 15,6"FHD IPS - Ryzen 5 5600H - 16GB - 512GB SSD - RTX 3050 - Win11 -MAGYAR
- LG 42C3 - 42" OLED EVO - 4K 120Hz 0.1ms - NVIDIA G-Sync - FreeSync Premium - HDMI 2.1 - A9 Gen6 CPU
- BESZÁMÍTÁS! 32GB (2x16GB) Kingston FURY Beast RGB 6000MHz DDR5 CL30 memória 27% 3 év garancia
- Lenovo ThinkPad 40AF docking station (DisplayLink)
- LG 65" C1 OLED - 4K 120Hz 1ms - NVIDIA G-Sync - FreeSync Premium - HDMI 2.1 - PS5 és Xbox Ready!
- billentyűzetek - kiárusítás - Logitech, Corsair, ASUS
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: Promenade Publishing House Kft.
Város: Budapest