- Szevam: Mennyire tipik Z-gen viselkedés? Tipizálható-e egyáltalán?
- Magga: PLEX: multimédia az egész lakásban
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Luck Dragon: Asszociációs játék. :)
- sziku69: Fűzzük össze a szavakat :)
- body007: Magyarország kifosztásának története
- sziku69: Szólánc.
- Elektromos rásegítésű kerékpárok
- lezso6: Nem látszik a kurzor Chrome alatt a beviteli mezőkben?
- bitpork: MOD Júni 13 Augusztus 2- szombat jelen állás szerint.
Új hozzászólás Aktív témák
-
sztanozs
veterán
Mert a 0-val kezdodo szamokat (ha nincs benne 8 vagy 9) akkor az atoi c fuggveny octal-nak erelmezi, ha automata ertelmezesre van allitva (base=0):
The default is decimal, but you can specify octal 8, hexadecimal 16, or decimal 10. If 0 is the base, the string will be parsed as a hexadecimal if it has a leading 0x and as an octal if it has a leading 0. Otherwise, it will be treated as a decimal. -
sztanozs
veterán
Session problema lehet. Mostanaban a MS kavart valamit a session-okkel, mert en is tapasztalom, hogy az SMB kapcsolatok egy ido utan bontanak, es kell jo par masodperc (akar fel perc is), mig ujraepiti oket az OS.
Erdemes kiprobalni, hogy mount elott megprobalod bontani a kapcsolatot:NET USE /delete \\UNC\path -
sztanozs
veterán
Ha 0-val kezdodik, akkor a parancs oktalis szamnak ertelmezi, tehat a 8 es 9-es szamok ervenytelenek, raadasul az ertek tizes szamrendszerben is mas lesz:
01 (okt) = 1 (dec)
07 (okt) = 7 (dec)
010 (okt) = 8 (dec)Itt van par jo megoldas:
https://stackoverflow.com/questions/14762813/remove-leading-zeros-in-batch-file -
sztanozs
veterán
Igen eleg egyszer kiadni a
SETLOCAL EnableDelayedExpansion
parancsot, ha menet kozben ki akarod valamiert kapcsolni akkor kell csak aSETLOCAL DisableDelayedExpansion
parancs. Viszont a valtozok hasznalatanal figyelni kell, hogy nem mindig %valtozo_nev%, hanem !valtozo_nev! formatumot is kell(het?) hasznalni. -
sztanozs
veterán
Ha nem baj, nem forditom le magyarra (megfelelo sort kiemeltem):
Parameter Extensions
When an argument is used to supply a filename then the following extended syntax can be applied:
We are using the variable %1 (but this works for any argument, including FOR parameters).
%~f1 Expand %1 to a Fully qualified path name - C:\utils\MyFile.txt
%~d1 Expand %1 to a Drive letter only - C:
%~p1 Expand %1 to a Path only e.g. \utils\ this includes a trailing \ which will be interpreted as an escape character by some commands.
%~n1 Expand %1 to a file Name without file extension or path - MyFile
or if only a path is present, with no trailing backslash, the last folder in that path.
%~x1 Expand %1 to a file eXtension only - .txt
%~s1 Change the meaning of f, n, s and x to reference the Short 8.3 name (if it exists.)
%~1 Expand %1 removing any surrounding quotes (")
%~a1 Display the file attributes of %1
%~t1 Display the date/time of %1
%~z1 Display the file size of %1
%~$PATH:1 Search the PATH environment variable and expand %1 to the fully qualified name of the first match found.The modifiers above can be combined:
%~dp1 Expand %1 to a drive letter and path only.
%~sp1 Expand %1 to a path shortened to 8.3 characters.
%~nx2 Expand %2 to a file name and extension only. -
sztanozs
veterán
-
sztanozs
veterán
Powershell:
$A510="c:\temp\A510\"
$fullstamp="2023-02-28"
$b_backup="\\server\backup"
Get-ChildItem $A510 -recurse -Filter *.* | ForEach-Object {
if ($_.Attributes -ne "Directory") {
if ($_.Length -gt 0) {
Start-Process -WorkingDirectory $A510 -FilePath "c:\Program Files (x86)\7-Zip\7z.exe" -ArgumentList "a `"$($b_backup)$($fullstamp).zip`" `"$($_.Directory)\$($_.Name)`"" -Wait
}
}
} -
sztanozs
veterán
Ez nekem mukodik x86-bol:
@echo off
set "A510=c:\temp\py"
set "fullstamp=2023-02-28"
set "b_backup=\\server\backup"
IF EXIST "%A510%" (
FORFILES /P "%A510%" /S /M *.* /C "cmd /S /C if @isdir==FALSE if @fsize GTR 0 0x22c:\Program Files 0x28x860x29\Microsoft Visual Studio\Shared\Python39_64\python.exe0x22 -c 0x22print(r'%b_backup%\%fullstamp%.zip @file')0x22"
)Kimenet:
\\server\backup\2023-02-28.zip certificates.py
\\server\backup\2023-02-28.zip search_dump.py
^CTerminate batch job (Y/N)? -
sztanozs
veterán
Oh, nem olvastam el:
To include special characters in the command line, use the hexadecimal code for the character in 0xHH format (ex. 0x09 for tab). Internal CMD.exe commands should be preceded with "cmd /c".
talan igy:IF EXIST "%A510%" (
FORFILES /P "%A510%" /S /M *.* /C "cmd /C if @isdir==FALSE if @fsize 0x22c:\Program Files 0x28x860x29\7-Zip\7z.exe0x22 a %b_backup%\%fullstamp%.zip @FILE"
) -
sztanozs
veterán
fyki:
If /C or /K is specified, then the remainder of the command line after
the switch is processed as a command line, where the following logic is
used to process quote (") characters:
1. If all of the following conditions are met, then quote characters
on the command line are preserved:
- no /S switch
- exactly two quote characters
- no special characters between the two quote characters,
where special is one of: &<>()@^|
- there are one or more whitespace characters between the
two quote characters
- the string between the two quote characters is the name
of an executable file.
2. Otherwise, old behavior is to see if the first character is
a quote character and if so, strip the leading character and
remove the last quote character on the command line, preserving
any text after the last quote character.talan igy jo lesz:
IF EXIST "%A510%" (
FORFILES /P "%A510%" /S /M *.* /C "cmd /C "if @isdir==FALSE if @fsize "c:\Program Files (x86)\7-Zip\7z.exe" a %b_backup%\%fullstamp%.zip @FILE"
) -
-
#1054
sztanozs
veterán
redwhite78
#1053
sztanozs
veterán
válasz
redwhite78
#1053
üzenetére
Akkor:
Private Sub Application_Quit()
If MsgBox("Elküldjem a kilépős emailt?", vbYesNo + vbCritical, "Nap végi email") = vbYes Then
Dim mail As MailItem
Set mail = Application.CreateItem(olMailItem)
mail.To = "email_to_send_to@server.address"
mail.CC = "email_to_send_cc@server.address"
mail.Subject = "kötelezõ subject"
mail.Send
Set mail = Nothing
Else
'Normál kilépés
End If
End Sub -
#1052
sztanozs
veterán
redwhite78
#1051
sztanozs
veterán
válasz
redwhite78
#1051
üzenetére
Nem, főleg, ha pl patchelés miatt újraindul a géped nap közben...
-
#1042
sztanozs
veterán
redwhite78
#1041
sztanozs
veterán
válasz
redwhite78
#1041
üzenetére
Akkor kiraksz egy outlook ikont a desktopra, amiben egy parancs fájl van, ami akkor fut le, amikor az outlookot bezárod (persze ez vsz nem működik akkor, ha a shutdown zárja le, mert akkor már nem fogja engedni vsz a szkriptet futni). Esetléeg outlookba írhatsz egy on_shutdown szkriptet:
Private Sub Application_Quit()
Dim mail As MailItem
Set mail = Application.CreateItem(olMailItem)
mail.To = "email_to_send_to@server.address"
mail.CC = "email_to_send_cc@server.address"
mail.Subject = "kötelezõ subject"
mail.Send
Set mail = Nothing
End Sub -
#1040
sztanozs
veterán
redwhite78
#1039
sztanozs
veterán
válasz
redwhite78
#1039
üzenetére
scheduled task - beállítva kb akkorra, mielőtt elmész melóból
-
#1038
sztanozs
veterán
redwhite78
#1037
sztanozs
veterán
válasz
redwhite78
#1037
üzenetére
-
#833
sztanozs
veterán
sellerbuyer
#832
sztanozs
veterán
válasz
sellerbuyer
#832
üzenetére
Ez miért nem megy? [link]
Miért értelmetlen a szerver felől törölni? -
#807
sztanozs
veterán
DrojDtroll
#806
sztanozs
veterán
válasz
DrojDtroll
#806
üzenetére
szerintem wmi-vel egyszerűen megoldható (ha más USB Mass storage nincs bedugva):
@ECHO OFF
SET source="c:\Temp\kiir.cs"
SET targetdir=\Temp\target\
FOR /F "skip=1 tokens=1" %%G IN ('wmic logicaldisk where "drivetype=2" get caption') DO (
mkdir "%%G%targetdir%"
copy %source% "%%G%targetdir%" /Y
) -
#805
sztanozs
veterán
DrojDtroll
#804
sztanozs
veterán
válasz
DrojDtroll
#804
üzenetére
Igen - milyen OS? Milyen géped van, amibe 10 USB belemegy?
-
#801
sztanozs
veterán
magyarzoltan
#800
sztanozs
veterán
válasz
magyarzoltan
#800
üzenetére
Asszem valami ilyen kell neked: [link]
De ha jól rémlik a FileSystemWatcher nem 100%-ban megbízható.
-
#797
sztanozs
veterán
magyarzoltan
#796
sztanozs
veterán
válasz
magyarzoltan
#796
üzenetére
ezt szvsz batch-csel nem csinálod meg, hacsak nem te indítod a programot (minden alkalommal) amikor felülírja. HA egy futó process módosítgatja, akkor valami filerendszer filter driver-t kell csinálnod hozzá (vagy valami alkalmazást, ami folyamatosan szknenneli a fájlt, és ha változott, akkor lemásolja. De a második esetben simán lehet, hogy kimarad egy-két változat, ha gyakrabban változik a fájl, mint ahogy ellenőrzöd.
-
sztanozs
veterán
Biztos jó a könyvtár?
írass ki az IF előtt egy Errorlevel-t:
echo %ERRORLEVEL%
Hátha nem tud belépni a könyvtárba.Másrészt használhatot a következő formát is:
CD /D D:\Apache Tomcat 8.0.27\bin\
Egyrészt a /D meghajtót is vált, másrészt a CD-nek nem kell macskaköröm a path-hoz.cmd-ket pedig ne magukba, hanem CALL-lal hívd és lehetőleg ellenőrizd az ERRORLEVEL-t utána (hogy sikeresen lefutott-e).
-
#790
sztanozs
veterán
sellerbuyer
#789
sztanozs
veterán
válasz
sellerbuyer
#789
üzenetére
rendszergazdaként?
runas vagy task shceduler - az utóbbi jobb, mert ott nem látszik password -
#788
sztanozs
veterán
sellerbuyer
#787
sztanozs
veterán
válasz
sellerbuyer
#787
üzenetére
Vagy be kell tenni a HKLM Run-ba, vagy az alluser StartUp-ba.
-
sztanozs
veterán
Mármint úgy értetted, hogy írja meg már valaki helyetted?
A leveledből nekem úgy tűnt, hogy te szeretnéd megcsinálni, csak valahol elakadtál:
1) hogy lehet fájlokat másolni
2) hogyan lehet a változókat használni
3) hogy lehet a hónap adott napját váltotzóban megkapniFeltételeztem, hogy az első (esetleg az első kettő) még menne, így csak felhívtam a figyelmed az épp előtted történt beszélgetésre, ami arról szólt, hogy hogyan lehet az aktuális dátumot három változóba (%yy%, %mm%, %dd%) berakni.
-
sztanozs
veterán
mod:
Na, megvan, ez csinálja:c:\temp>echo:|date
The current date is: 13/04/2016
Enter the new date: (dd-mm-yy)Ez feldolgozza a második sort (eltárolja a dátum sorrendet), majd a az első sort, abból kiszedi a dátumot.
Ez pedig a változónevekhez adja a dátumot - az a trükk, hogy a változónév is változóból jön:
set %%a=%%d
set %%b=%%e
set %%c=%%fNagyon elmés
-
sztanozs
veterán
válasz
Geripapa
#677
üzenetére
bocs, benne maradt egy két dolog a tesztelésből, és nem is írtam, mit csinálj vele
1) _rootfolder után kell a tényleges könyvtár, amiben/alatt alatt az sv fájlok vannak
2) a kconvars.exe könyvtárában kell elhelyezni a fájlt .cmd végződéssel (.bat kerülendő) és onnan futtatniSetlocal EnableDelayedExpansion
@ECHO OFF
SET _rootfolder="C:\Temp"
FOR /F %%A IN ('dir %_rootfolder% /s/b^|find "sysframe.sv"') DO (
SET _file=%%A
SET _dir=!_file:~0,-11!
SET _newFile=!_dir!sysframe.va
kconvars !_file! !_newfile!
) -
#639
sztanozs
veterán
kovacsz2414
#638
sztanozs
veterán
válasz
kovacsz2414
#638
üzenetére
set mydate=%date:~5,2%-%date:~8,2%-%date:~0,4%
Ha nyelv/területi beállítás-független kell, akkor ez segíthet: [link]
-
sztanozs
veterán
Az Excelből dolgozna-t hogy képzeled el?
vbs-sel:
If UCase( Right( WScript.FullName, 12 ) ) = "\CSCRIPT.EXE" Then
wscript.echo "Please copy the script to the Desktop and drag a file to the script icon"
wscript.quit -1
End If
if WScript.Arguments.Count() <> 1 Then
wscript.echo "Please drag a file to the script icon"
wscript.quit -1
End If
filename = WScript.Arguments(0)
searchstring = InputBox("Search:")
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(filename)
lineno = 1
lines = ""
Do Until f.AtEndOfStream
line = f.ReadLine
If InStr(line, searchstring) > 0 Then
lines = lines & lineno & vbTab & line & vbCrLf
End If
lineno = lineno + 1
Loop
f.Close
If lines <> "" Then
wscript.echo lines
Else
wscript.echo searchstring & " not found"
End If -
sztanozs
veterán
output dir végére kell lezáró \
if WScript.Arguments.Count() <> 2 Then
wscript.echo "Usage:" & vbcrlf & "splitvcf.vbs filename output_dir"
wscript.quit -1
End If
filename = WScript.Arguments(0)
odir = WScript.Arguments(1)
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(filename)
id = 0
Do Until f.AtEndOfStream
line = f.ReadLine
If Trim(line) = "BEGIN:VCARD" Then
startwrite = true
Set fo = fso.CreateTextFile(odir & Right("00000" & id, 6) & ".vcf", True)
End If
If startwrite Then
fo.Write line & vbCrLf
End If
If Trim(line) = "END:VCARD" Then
startwrite = false
fo.Close
id = id + 1
End If
Loop
f.Close -
sztanozs
veterán
splitvcf.vbs
filename = "C:\Temp\textfile"
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(filename)
id = 0
Do Until f.AtEndOfStream
line = f.ReadLine
If Trim(line) = "BEGIN:VCARD" Then
startwrite = true
Set fo = fso.CreateTextFile("C:\Temp\" & id & ".vcf", True)
End If
If startwrite Then
fo.Write line & vbCrLf
End If
If Trim(line) = "END:VCARD" Then
startwrite = false
fo.Close
id = id + 1
End If
Loop
f.Close -
sztanozs
veterán
@echo off
:teszt_eleje
for /F "tokens=1,*" %%G in ('tasklist /nh /fi "imagename eq iexplore.exe"') do (
set van=1
)
if defined van (
echo "fut az explorer..."
REM SLEEP 10:
PING -n 11 127.0.0.1>nul
goto teszt_eleje
) else (
echo "NEM fut az explorer"
REM SLEEP 10:
PING -n 11 127.0.0.1>nul
goto teszt_eleje
)Nincs fent nálam a foobar - IE-vel tesztetem - de tetszőlegesen módosítható...
-
#509
sztanozs
veterán
stryker.hu
#508
sztanozs
veterán
válasz
stryker.hu
#508
üzenetére
if not exist - nem adtad meg, mi nem létezik
@echo off
mkdir c:\ment\1\
if not exist "%USERPROFILE%\Desktop\" (
xcopy "%USERPROFILE%\Asztal" c:\ment\1\
)
else (
move "%USERPROFILE%\Desktop" c:\ment\1\
) -
-
sztanozs
veterán
válasz
morfondőr
#454
üzenetére
TC-nek kell egy kis idő, mire lefrissíti a felületét. Ha újraindítod, biztos ott lesz - de van olyan is néha, hogy gombként nem jelenik meg, de a legördítő menüben már ott van.
Amúgy nem hálózati mappát próbálsz meg subst-olni így?Storno, most olvasom, hogy nem az... Amúgy a skydrive is lehet a bűnös - lehet, hogy lefoglalja a rendszer a mappa lekérésével és emiatt késik a subst...Ezt találtam még neked - subst helyett registry:
InconstancyHowever restart of a system destroys a virtual disk. What to do? A disk can be created after startup. But what to do, when a disk is needed on early steps of a startup? For example, to run services? There is system feature to start a virtual disk from the system registry:
REGEDIT4
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager\DOS Devices]
"H:"="\\??\\E:\\Cloud\\Skydrive"
It is enough to create a text file with the extension .REG and run it. When the next starting up of a system, the virtual disk will be exist at logon. It needs to define a name of disk and path. Note that each backslash in the path is doubled.
-
#414
sztanozs
veterán
latyika1994
#413
sztanozs
veterán
válasz
latyika1994
#413
üzenetére
Nekem nem egészen kerek, amit itt leírtál - a cd /d sem nyit meg semmi böngésző-ablakot, amiben "szaladgálni" lehetne - sőt így bezárni sem lehet.
Mit is szeretnél pontosan csinálni?
Megnyitni egy fájl böngészőt, és ha az becsuktad, akkor nyitni egy másikat? -
#397
sztanozs
veterán
Speeedfire
#396
sztanozs
veterán
válasz
Speeedfire
#396
üzenetére
Indítsd WScritből (akármi.vbs). Csak ennyi kell bele:
CreateObject("Wscript.Shell").Run "becsfájl.bat",0,True -
sztanozs
veterán
válasz
beastlord
#393
üzenetére
Igen, pingre szerintem volt itt már példa, network configra pedig nézd meg ezt: netsh
Pingre:
SET DestIP=192.168.1.101
SET LANName="Local Area Connection"
SET ConfigIP=192.168.1.199
SET ConfigMask=255.255.255.0
SET ConfigGW=192.168.1.1
SET ConfigDNS=192.168.1.1
:ping
ping %DIP% -t 1 >null 2&
IF ERRORLEVEL 1 goto :config
PAUSE 1
GOTO :ping
:config
netsh interface ip set address name=%LANName% static %ConfigIP% %ConfigMask% %ConfigGW% 1
netsh interface ip set dns "Local Area Connection" static %ConfigDNS% -
sztanozs
veterán
válasz
Baryka007
#369
üzenetére
Ezt mind batch-ben szeretnéd megcsinálni?
Szöveges fájlból a FOR /F -el tudsz adatbázisszerűen kiolvasni adatokat.
Ha már nincs fejlesztői környezeted, de szeretnél valami csinálni, akkor inkább már vbs-t csinálj. Sokkal több a lehetőséged és könnyebb dolgod is lesz (pl. tudsz fejlettebb adatszerkezeteket is használni).
Új hozzászólás Aktív témák
Hirdetés
- AKCIÓ! GAMER PC: Új RYZEN 5 4500-5600X +RTX 3060/3070/3080 +Új 16-64GB DDR4! GAR/SZÁMLA! 50 FÉLE HÁZ
- UHH! HP EliteBook 840 G8 Fémházas Laptop 14" -45% i5-1145G7 4Mag 32/512 FHD IPS Intel Iris Xe Magyar
- Xiaomi Redmi Note 13 Pro 5G - 8/256 - Media Markt garancia
- Xiaomi Redmi 9at - 2/32 - szürke
- Xiaomi Mi8 - 6/128 - fekete
- ÁRGARANCIA!Épített KomPhone i5 14600KF 32/64GB RAM RX 7800 XT 16GB GAMER PC termékbeszámítással
- Csere-Beszámítás! RTX Számítógép PC Játékra! I3 10100F / RTX 2060 12GB / 32GB DDR4 / 500GB SSD
- Csere-Beszámítás! Asus Rog Strix GTX 1080Ti 11GB GDDR5X Videokártya!
- Új és régi konzolok Okosítása/Softmodoloása, és Szoftveres szintű javítása - RÉSZLETEK A LEÍRÁSBAN
- Csere-Beszámítás! Számítógép PC Játékra! I5 14400F / RTX 4060ti 16GB / 32GB DDR5 / 1TB SSD
Állásajánlatok
Cég: PC Trade Systems Kft.
Város: Szeged
Cég: CAMERA-PRO Hungary Kft
Város: Budapest