- Megjött a Razer DeathAdder egerek legfrissebb nemzedéke
- Ismét minimalista miditorony érkezett a Fractal Design műhelyéből
- Alakul a SpaceX Starlink európai ellenfele
- Digital Fingerprinting: Így buktat le a böngésződ a neten - Tech Percek #18
- Prezentálta PCI Express 6.0-s SSD-vezérlőjét a Silicon Motion
- AMD Ryzen 9 / 7 / 5 / 3 5***(X) "Zen 3" (AM4)
- Gaming notebook topik
- Milyen cserélhető objektíves gépet?
- Bambu Lab 3D nyomtatók
- AMD Ryzen 9 / 7 / 5 9***(X) "Zen 5" (AM5)
- Házi barkács, gányolás, tákolás, megdöbbentő gépek!
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- NVIDIA GeForce RTX 5070 / 5070 Ti (GB205 / 203)
- AMD Navi Radeon™ RX 9xxx sorozat
- Fejhallgató erősítő és DAC topik
Ú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
- PlayStation 5
- Milyen okostelefont vegyek?
- AMD Ryzen 9 / 7 / 5 / 3 5***(X) "Zen 3" (AM4)
- Kerékpárosok, bringások ide!
- Reklámblokkolók topikja
- Vékonyabb lett, jobb kamerát kapott, de az akku maradt a régi: itt a Fold7
- Milyen légkondit a lakásba?
- Xbox Series X|S
- Google Pixel topik
- Motorola Moto G56 - bátyja árnyékában
- További aktív témák...
- Asztali PC , i7 6700K , 1080 Ti 11GB , 32GB DDR4 , 500GB NVME , 500GB HDD
- Asztali PC , R5 8400F , RTX 3070 , 32GB DDR5 , 500GB NVME , 2TB HDD
- Legion Go 1TB
- Lenovo LOQ 15IRX9 - i5 13450HX, 16GB, RTX 4060 8G, 1TB M.2 (Gari: 2027.03.11.)
- LG 34WR55QK-B - 34" Ívelt VA - 3440x1440 - 100Hz 5ms - FreeSync Premium - HDR 10 - USB Type-C 65W
- BESZÁMÍTÁS! Asus ROG Flow Z13 + ROG XG RTX 3070 - i9 12900H 16GB DDR5 RAM 1TB SSD + RTX 3070 8GB WIN
- ÁRGARANCIA!Épített KomPhone Ryzen 5 5600X 16/32/64GB RAM RX 7600XT 16GB GAMER PC termékbeszámítással
- Azonnali készpénzes Sony Playstation 5 lemezes és digitális felvásárlás személyesen/csomagküldéssel
- Az ASUS TUF Gaming B550-Plus csak rád vár! Kamatmentes rèszletre is!!
- Asus TUF 16 FA607PI - 16" 2,5K 165Hz - Ryzen 9 7845HX - 32GB - 1TB - RTX 4070 - Win11 - 1,5 év gari
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest