- Luck Dragon: Asszociációs játék. :)
- Gurulunk, WAZE?!
- lezso6: Nem látszik a kurzor Chrome alatt a beviteli mezőkben?
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- sziku69: Fűzzük össze a szavakat :)
- zebra_hun: Hűthető e kulturáltan a Raptor Lake léghűtővel a kánikulában?
- Argos: Szeretem az ecetfát
- gban: Ingyen kellene, de tegnapra
- bambano: Bambanő háza tája
- Elektromos rásegítésű kerékpárok
Új hozzászólás Aktív témák
-
#866
Pöttön
őstag
csaszizoltan
#865
Pöttön
őstag
válasz
csaszizoltan
#865
üzenetére
Köszönöm szépen!
-
#862
cigam
titán
csaszizoltan
#861
válasz
csaszizoltan
#861
üzenetére
W10-nél kicsit odébb csúsztak.
Ez tuti működik(magyar W10 alatt), most próbáltam ki.
set forras=C:\users\szeke\Dokumentumok\batch
set cel=C:\users\szeke\Dokumentumok\batch\teszt
set fajl=teszt.zip
set datum=%date:~0,4%-%date:~6,2%-%date:~10,2%__%time:~0,2%%time:~3,2%%time:~6,2%
if exist %cel%\%fajl% (ren %cel%\%fajl% "%datum%-%fajl%")
copy %forras%\%fajl% %cel%\%fajl% /-y -
#845
varsam
őstag
csaszizoltan
#844
varsam
őstag
válasz
csaszizoltan
#844
üzenetére
szia,
köszi szépen, de sajnos nem működik ezzel (1. sorral)
-
#827
_Smooth
senior tag
csaszizoltan
#823
_Smooth
senior tag
válasz
csaszizoltan
#823
üzenetére
Igen igen, ez remekül bevált, köszönöm ismét
Infó: számomra a 120sec még sok is (gyakoriságot tekintve), mivel kb 3-4 naponta érkezik oda bármi (sőt, van, hogy egy hétig semmi). Ezért is került nagyon perifériára és vagyunk hajlamosak megfeledkezni róla. Ezért már az is jó, ha 1-2óránként végez ellenőrzést.
De egyébként a 120sec is kiváló. Szépen csendben elvan a háttérben, ha pedig érkezik valami, már dobja is az ablakot a képernyőre.
Startup mappába bedobtam, géppel indul, törődésmentes
-
#824
cigam
titán
csaszizoltan
#823
válasz
csaszizoltan
#823
üzenetére
Nem terheli be nagyon a végtelen ciklus? Nem lenne elég csak 30-60mp-enként lefuttatni?
-
#823
csaszizoltan
csendes tag
csaszizoltan
#817
csaszizoltan
csendes tag
válasz
csaszizoltan
#817
üzenetére
Ez a kód #817 nem működik, helyette ez készült, végfelhasználónál kipróbáltan
@ECHO OFF
CLS
:LOOP
SETLOCAL ENABLEDELAYEDEXPANSION
SET STAMPTIME="%DATE% %TIME%"
SET STAMPTIME=%STAMPTIME:~0,18%"
TIMEOUT /T 120 /NOBREAK
FOR /R "Drive:\Path" %%A IN (*.PDF) DO (
IF %STAMPTIME% LEQ "%%~tA" CALL :ERTESITES "%%A" "%%~tA"
)
ENDLOCAL ENABLEDELAYEDEXPANSION
GOTO :LOOP
:ERTESITES
SETLOCAL
SET MSG="tempmsg.vbs"
ECHO MsgBox "Pdf erkezett: %~1", vbSystemModal Or vbExclamation, "Pdf erkezett" >%MSG%
WSCRIPT.EXE /I %MSG%
DEL %MSG% >NUL
GOTO :EOF -
#818
_Smooth
senior tag
csaszizoltan
#817
_Smooth
senior tag
válasz
csaszizoltan
#817
üzenetére
Nagyon szuper, köszönöm
Már ez is nagyszerű, de chrome helyett egy sima echo (alert) ablak nem tud működni?
Ja meg a másik problem, hogy szerveren van az érintett könyvtár, nem helyi gépen.
Hol tudom megadni a vizsgálathoz szükséges elérési utat?
-
#781
Enoch
csendes tag
csaszizoltan
#780
Enoch
csendes tag
válasz
csaszizoltan
#780
üzenetére
Értem, köszi ezt az infót!
-
#776
Enoch
csendes tag
csaszizoltan
#775
Enoch
csendes tag
válasz
csaszizoltan
#775
üzenetére
Notepad++ használtam szerkesztésre. Korábban próbáltam a notepadot is, azzal felülírni a fájlt de ezek szerint valami hiba történt nem írta megfelelően felül.
Most létrehoztam egy új állományban notepaddal, kódtábla nélkül. Akkor Gßbor lett az ékezetes névből. Beállítottam a kódtáblát "chcp 1250" és az is lefut így. Ez lett az eredmény. (A fájlneveket töröltem)Köszönöm szépen a segítséget!
D:\Megosztott>chcp 1250
Active code page: 1250
D:\Megosztott>for /F "tokens=1 delims=. " %a in ('date /t') do set yyyy=%a
D:\Megosztott>set yyyy=2016
D:\Megosztott>for /F "tokens=2 delims=. " %a in ('date /t') do set mm=%a
D:\Megosztott>set mm=08
D:\Megosztott>for /F "tokens=3 delims=. " %a in ('date /t') do set dd=%a
D:\Megosztott>set dd=30
D:\Megosztott>set folderdate=2016.08.30
D:\Megosztott>net use x: \\NAS\Iroda
A parancs sikeresen végrehajtva.
D:\Megosztott>md "C:\Gabor\backup\2016.08.30\Outlook\"
A subdirectory or file C:\Gabor\backup\2016.08.30\Outlook\ already exists.
D:\Megosztott>xcopy C:\Users\Gábor\AppData\Local\Microsoft\Outlook x:\Gabor\backup\2016.08.30\Outlook\ /e /h /r /y /k /c
.........................
18 File(s) copied
D:\Megosztott>net use x: /delete
x: sikeresen törölve
D:\Megosztott>pause
Press any key to continue . . . -
#774
Enoch
csendes tag
csaszizoltan
#773
Enoch
csendes tag
válasz
csaszizoltan
#773
üzenetére
Amit küldtél, lefuttattam és ezt kaptam.
D:\Megosztott>´╗┐cp 1250
'´╗┐cp' is not recognized as an internal or external command,
operable program or batch file.
D:\Megosztott>for /F "tokens=1 delims=. " %a in ('date /t') do set yyyy=%a
D:\Megosztott>set yyyy=2016
D:\Megosztott>for /F "tokens=2 delims=. " %a in ('date /t') do set mm=%a
D:\Megosztott>set mm=08
D:\Megosztott>for /F "tokens=3 delims=. " %a in ('date /t') do set dd=%a
D:\Megosztott>set dd=30
D:\Megosztott>set folderdate=2016.08.30
D:\Megosztott>Rem net use x: \\NAS\Iroda
D:\Megosztott>md "C:\Gabor\backup\2016.08.30\Outlook\"
D:\Megosztott>xcopy C:\Users\Gábor\AppData\Local\Microsoft\Outlook C:\Gabor\backup\2016.08.30\Outlook\ /e /h /r /y /k /c
File not found - Outlook
0 File(s) copied
D:\Megosztott>Rem net use x: /delete
D:\Megosztott>pause
Press any key to continue . . .A kódtábla parancsa az "cp" vagy "chcp" pontosan. Én chcp-t találtam. De azzal sem jó.
D:\Megosztott>´╗┐chcp 1250
'´╗┐chcp' is not recognized as an internal or external command,
operable program or batch file.Ahogy nézem az ékezetes karakterek zavarják a dolgokat mert a mappák létrehozása a NAS-on is és a c:/ működik. Korábban próbáltam máshonnan másolni a C:-ről és onnan nem volt gond.
Ami még kimaradt win10 x64 rendszeren próbáltam. -
#772
Enoch
csendes tag
csaszizoltan
#770
Enoch
csendes tag
válasz
csaszizoltan
#770
üzenetére
Köszönöm a választ! A "chcp 1250" parancs sem oldotta meg. Így sem másolja át, csak a mappát hozza létre. Próbáltam, hogy kitettem az "" jeleket is.
Azt tudom ha a .pst csatolva van akkor nem engedi másolni, de az outlook le van állatva.
-
#724
Fonthy
újonc
csaszizoltan
#723
Fonthy
újonc
válasz
csaszizoltan
#723
üzenetére
Köszi!
Így lett a jó és nem tudom miért volt annyi idézőjel az elsőben, de úgy is bele kellett volna írni a vbs file-ba, de úgy nem tette.Helyes:
IF EXIST %USERPROFILE%\Desktop\Kerulet_szamito.vbs (
ECHO Msgbox "A teglalap Kerulete "^&Kerulet^&" cm!", , "Kerulet szamito!">> %USERPROFILE%\Desktop\Kerulet_szamito.vbs ) ELSE (
ECHO Msgbox "A teglalap Terulete "^&Terulet^&" cm2!", , "Terulet szamito!">> %USERPROFILE%\Desktop\Terulet_szamito.vbs ) -
#720
cigam
titán
csaszizoltan
#719
válasz
csaszizoltan
#719
üzenetére
Köszi!
-
#717
cigam
titán
csaszizoltan
#716
válasz
csaszizoltan
#716
üzenetére
A set fajlnev=%date%.txt-ba nem kell pont, a dátum automatice tesz egy pontot a dátum végére (pl. 2015.10.12.)
Igen, erre napkozben rájöttem, mert bekapcsolt echo-val állandóan panaszkodott, hogy nincs fajlnev nevü fájl
(find "%%A" < teljes_lista.txt > nul || >> teljes_lista.txt echo.%%A)
Ez ugye úgy működik, hogy a find parancs rákeres minden egyes sorra a teljes_lista.txt-ben, és a parancs kimenetét elküldjük a semmibe. Ettől még visszaad egy errorlevel értéket, és ezt használja fel arra, hogy az adott sort beletegye a teljes_lista.txt-be, vagy ne.
[link] -
#714
cigam
titán
csaszizoltan
#713
válasz
csaszizoltan
#713
üzenetére
Köszi a tippeket, végül ez lett belőle:
@echo off
setlocal EnableDelayedExpansion
set fajlnev=%date%txt
d:
cd D:\PortableApps\ftp-list
del fajlnev
winscp.com /script=ftpserverem>>%fajlnev%
rem 5=fájlméret byte-okban
rem 6=hónap rövid neve
rem 7=nap sorszáma
rem 8=idő
rem 9-=fajlnev
for /f "skip=11 tokens=5,6,7,8,* delims= " %%A in (%fajlnev%) do call :sorfeldolgozas "%%E" "%%A" "%%B" "%%C" "%%D"
goto :vege
:sorfeldolgozas
set nev=%~1
set /a meret=%~2/1024/1024
if "%~3" == "Jan" set honap=01
if "%~3" == "Feb" set honap=02
if "%~3" == "Mar" set honap=03
if "%~3" == "Apr" set honap=04
if "%~3" == "Maj" set honap=05
if "%~3" == "Jun" set honap=06
if "%~3" == "Jul" set honap=07
if "%~3" == "Aug" set honap=08
if "%~3" == "Sep" set honap=09
if "%~3" == "Oct" set honap=10
if "%~3" == "Nov" set honap=11
if "%~3" == "Dec" set honap=12
if %~4 lss 10 (set nap=0%~4) else (set nap=%~4)
set ora=%~5
echo %honap%-%nap%,%ora%,%nev%,%meret%MB>>ftp-%fajlnev%
:vege -
#711
llacee
őstag
csaszizoltan
#710
llacee
őstag
válasz
csaszizoltan
#710
üzenetére
Nagyon köszönöm a segítséget
Azt hiszem ez a feladat meghaladta volna a képességeimet
Küldtem privát üzenetet.
-
#710
csaszizoltan
csendes tag
csaszizoltan
#709
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 -
#708
llacee
őstag
csaszizoltan
#706
llacee
őstag
válasz
csaszizoltan
#706
üzenetére
Sziasztok!
Bocsánat, ha kicsit érthetetlenül írtam.
Szóval a munkahelyemen a következő volt eddig: pár száz win kliensnek azt kellett beállítani, hogy 10 perc inaktivitás után mikor elindul a képernyő kímélő, egy megadott mappából játszon le képeket beállított sorrendben egymás után.
A marketing osztály ezt a szerveren egy megosztásba másolja és innen szinkronizáltatom a kliensek felé házirendből.(azaz másolom a kiensek könyvtárába)
A képek formátuma: 101_reklám01,102_reklám02..11x_reklám11x
Viszont új kérésük, hogy csak napi egy kép legyen 101_reklám01 és következő nap a sorrendben következő egész nap.
Erre szerettem volna scriptet írni, hogy autómatikus legyen.
Arra gondoltam, hogy lesz a mappa, mit ők karbantartanak és lesz még a szerveren egy, amit küldök a kliensek felé, ami sorrendben helyes képet (egyet) tartalmazza.
Csak hát ugye ki kell olvasnom mi van a küldendő mappában nap végén és a sorrendben következőt a tárból betenni a régit törölni, amig van szám, mert utána újra az első.
Na itt akadtam el, kézzel biztosan nem fogom váltogatni.
Java-ból van némi tapasztalatom, de itt nem lehet objektumot összehasonlítani, ráadásul az első három karaktert kell figyelnem.Remélem így már jobban leírtam a problémát.
Köszönöm, ha van időtök ezen gondolkozni kicsit.
Szép estét, Laci -
#707
cigam
titán
csaszizoltan
#706
válasz
csaszizoltan
#706
üzenetére
Nekem az jött le, hogy napi szinten készül x db fotó, mindegyik 01-el kezdődő sorszámmal. Ezeket kellene átmozgatni egy másik mappába, de úgy hogy az ottani folyamatos sorszámozású képek sorszámait folytatja. (Na ezt jól megaszontam én is
)
Tehát a célmappában vannak már fájlok 01-xy.jpg,02-sd.jpg,....3546-ab.jpg. A forrás könyvtár 01-df.jpg fájljából 3547-df.jpg lesz, és így tovább.Pesze simán félre is érthettem, ezért jó lenne egy nyugtázás, vagy cáfolat.
Új hozzászólás Aktív témák
Hirdetés
- Nitro ANV15-41 15.6" FHD IPS Ryzen 7 7735HS RTX 4060 32GB 1TB NVMe gar
- ASRock RX 5700 XT 8GB GDDR6 Phantom Gaming D OC Eladó!
- SilentiumPC Signum SG1 TG
- ThinkPad T490 27% 14" FHD IPS i7-8565U 16GB 512GB NVMe ujjlolv IR kam új akku gar
- X1 Tablet Gen3 13" 3K IPS érintő i7-8550U 16GB 512GB NVMe ujjlolv IR kam 4G LTE gar
- AKCIÓ! HP Victus 16-R1002NF Gamer notebook - i7 14700HX 16GB RAM 1TB SSD RTX 4070 8GB WIN11
- Dell USB-C dokkolók: (K20A) WD19/ WD19S/ WD19DC + 130W, 180W, 240W töltők
- Csere-Beszámítás! RGB Számítógép PC játékra! R5 5600X / RTX 3060Ti 8GB / 32GB DDR4 / 500GB SSD
- Apple iPhone 12 Pro 128GB, Kártyafüggetlen, 1 Év Garanciával
- Azonnali készpénzes Sony Playstation 5 lemezes és digitális felvásárlás személyesen/csomagküldéssel
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: Liszt Ferenc Zeneművészeti Egyetem
Város: Budapest