Hirdetés
- Motorola Edge 50 Neo - az egyensúly gyengesége
- Megtartotta Európában a 7500 mAh-t az Oppo
- Drága bluetooth tagek olcsóbb alternatívái (MiLi MiTag, LiTag, OTAG, stb.)
- Apple Watch
- Android szakmai topik
- Samsung Galaxy Watch6 Classic - tekerd!
- Ford SYNC 3 infotainment rendszer teszt
- Bemutatkozott a Poco X7 és X7 Pro
- iPhone topik
- Milyen okostelefont vegyek?
Ú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
- Linux kezdőknek
- One otthoni szolgáltatások (TV, internet, telefon)
- Xbox Series X|S
- Autós topik
- OTP Bank topic
- Rezsicsökkentés, spórolás (fűtés, szigetelés, stb.)
- Forrmell.enn
- Hitelkártyák használata, hitelkártya visszatérítés
- Autóápolás, karbantartás, fényezés
- Motorola Edge 50 Neo - az egyensúly gyengesége
- További aktív témák...
- ÚJ, SZÁMLÁS, GARANCIÁS GAMER PC Ryzen 5 9600X RTX 5060 Ti 32GB RAM 1TB NVMe AIO vízhűtés
- Dell Latitude 7320 i5-1145G7 16GB 512GB 1 év garancia
- Dell Latitude 7320 i5-1145G7 16GB 256GB 1 év garancia
- MSI GS65 Stealth Thin 8RE I7 8750H, 32GB, GTX1060, 144Hz, 2.5TB SSD
- 5 ÉV GARANCIA - Asus TUF Gaming LC II 240 ARGB
- GYÖNYÖRŰ iPhone 13 Pro Max 128GB Graphite -1 ÉV GARANCIA - Kártyafüggetlen, MS3063, 100% Akksi
- Lenovo T14 Thinkpad Gen3 WUXGA IPS i5-1245U vPro 10mag 16GB 512GB Intel Iris XE Win11 Pro Garancia
- Eladó One Plus Nord 2T 5G 8/128GB / 12 hó jótállás
- Apple iPhone 15 128GB, Kártyafüggetlen, 1 Év Garanciával
- RAKTÁRKISÖPRÉS! Eladó projektorok!
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: Laptopműhely Bt.
Város: Budapest