Hirdetés
- Miért fárad gyorsabban az iPhone akku, mint az androidos?
- Realme GT 2 Pro - papírforma
- iPhone topik
- Telekom mobilszolgáltatások
- Poco F7 – bajnokesélyes
- Apple Watch
- Xiaomi 15 - kicsi telefon nagy energiával
- Mobil flották
- Samsung Galaxy Z Fold7 - ezt vártuk, de…
- A legújabb iPhone kiegészítő egy zokni, amit magunkra akaszthatunk
Új hozzászólás Aktív témák
-
drkbl
őstag
A "DOS-közeli" dolgok Unicode támogatását nem tudják megoldani, mert az a meglévő, régebbi programok működését lehetetlenné tenné (Nemzeti ASCII kódolás: 1 karakter 1 byte, Unicode: 1..4 byte).
Az újabb rendszerhívások már támogatják az Unicode kódolást, ráadásul a több nyelv egyidejű támogatását is.
Amit ajánlottam, az csak a nemzeti ASCII variálása lett volna.A legjobb megoldást választottad, hacsak nem fogod fel a helyzetet bíztatásnak egy modernebb programnyelv megtanulására
-
drkbl
őstag
A ? a gond, az ugye érvénytelen karakter a fájl/mappanévben. Unicode támogatás nem Unicode nyelvekhez XP+ rendszereken van, Vezérlőpult nyelvi beállítások (W7: Vezérlőpult>Óra,Nyelv és terület>Másik billentyűzet vagy beviteli módszer megadása>Felügyelet fül alsó része), de nem tudom, segítene-e.
Hibakezelés az On Error és Goto
-
drkbl
őstag
Sajnos a konzolablak ASCII valami, pl. magyar Windowson 852-es kibővített kódtábla, így a Unicode->nemzeti ASCII konverzió során bármi kerülhet a fájlnévbe.
Segíthet, ha dir /s paranccsal kilistáztatod az adott könyvtárakat, és megnézed, mivé lesz a cirill karakter.
Ha ott jónak tűnik, ideiglenesen cseréld le a rekurzív
listFiles objSubFolder.path
sort
MsgBox objSubFolder.path
sorra, és nézd meg, mi jelenik meg.Bónusz: nézd át a hibakezelést, és egy hibaüzenet megjelenítésével lépj át a problémás alkönyvtárakon
-
mezis
félisten
Bocs, most jöttem rá, hogy lehet programkódot is beilleszteni:
Function listFiles(strFolder)
If objFileSystem.FolderExists(strFolder) Then
Set objFolder = objFileSystem.GetFolder(strFolder)
For Each objFile In objFolder.Files
objCsvFile.Write objFile.Name & ";" & objFolder.Path & vbNewLine
Next
For Each objSubFolder In objFolder.SubFolders
listFiles objSubFolder.path
Next
Else
MsgBox "A megadott " & strFolder & "mappa nem létezik !"
End If
End Function -
-
martonx
veterán
A VbScript nem objektum orientált. Vagy ez poén akart lenni? Mert a hsz-edről végig nem tudtam eldönteni, hogy ez most komoly, vagy poén volt.
Nem sértődtem meg, nem kell bocsánatot kérned.
Windowsban nem komplikált képernyőre adatokat kiíratni, vbscriptben mondhatjuk komplikálnak, mert egyszerűen nem erre készült, vagy aki mégis erre akarja használni, az cscript-tel futtatja
Ha meg dupla kattintással akarod használni, akkor .hta-ként csináld meg a vbscriptedet, és akkor ismét könnyű lesz az adatokat kiíratni. -
drkbl
őstag
Nem mindegy, melyik hosttal futtatod a vbscript-et, WScript-el vagy CScript-el!
Az echo eljárás doksija szerint wscript hosttal dialógusablak, cscript-el futtatva egy sort ad vissza a konzolablakba.
-
Új hozzászólás Aktív témák
- Miért fárad gyorsabban az iPhone akku, mint az androidos?
- Nintendo Switch 2
- Realme GT 2 Pro - papírforma
- iPhone topik
- Tízszer gyorsabban indulhatnak a játékok a Microsoft új csodafegyverével
- Telekom mobilszolgáltatások
- Apple MacBook
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- exHWSW - Értünk mindenhez IS
- Poco F7 – bajnokesélyes
- További aktív témák...
- Gamer PC-Számítógép. Csere-Beszámítás! R7 5800X / RTX 5060 / 32GB DDR4 / 1TB SSD
- LG UltraGear OLED 27GX790A-B . 480Hz . 0.03ms . 2560x1440 - Garancia 2028.07.07.
- ÚJszerű 1Hónapos Apple iPhone 17 256GB Black 1OO% ! még 11 Hó nemzetközi APPLE GaranciÁval
- iPhone 17 Pro Max Cosmic Orange 256GB BONTATLAN 3 ÉV MAGYAR GARANCIA! iCentre számlával!
- T14 Gen1 27% 14" FHD IPS érintő i7-10610U MX330 16GB 256GB NVMe ujjlolv új akku gar
- ÁRGARANCIA!Épített KomPhone Ryzen 7 9800X3D 32/64GB DDR5 RAM RTX 5070 12GB GAMER termékbeszámítással
- Bomba ár! Lenovo ThinkPad T450s - i5-5GEN I 8GB I 240GB SSD I 14" HD+/FHD I Cam I W10 I Garancia!
- HIBÁTLAN iPhone 13 Pro 128GB Sierra Blue -1 ÉV GARANCIA - Kártyafüggetlen, MS3750, 100% Akkumulátor
- Apple Watch SE 2gen 40mm, Kártyafüggetlen, 1 Év Garanciával
- Xbox Series kontrollerek 1 hó garancia, számlával!
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Cég: NetGo.hu Kft.
Város: Gödöllő