- sziku69: Fűzzük össze a szavakat :)
- sellerbuyer: Milyen laptopot vegyek? Segítek: semmilyet!
- Luck Dragon: Asszociációs játék. :)
- Sub-ZeRo: Euro Truck Simulator 2 & American Truck Simulator 1 (esetleg 2 majd, ha lesz) :)
- sziku69: Szólánc.
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- gban: Ingyen kellene, de tegnapra
- Geri Bátyó: Agglegénykonyha 5 – Edények és konyhai eszközök
- Brogyi: CTEK akkumulátor töltő és másolatai
- Imilenni: Egy kis depi (szösszenet inkább), remélem elfér itt :) 3#
Új hozzászólás Aktív témák
-
Zalanius
tag
Excelben, VBA-val akarod ezt megoldani? Vagy valamilyen dotnetes nyelven inkább?
Ha előbbi, akkor nem igazán látom, mi akasztott meg, ha már a feladat lényege elkészült. A 2-es ponthoz segíthet például ez:
Option Base 1
Function GetFileNames(directoryPath As String) As String()
Dim namepathlist() As String
Dim fshelper As Object
Dim targetdir As Object
Dim filecnt%, i%
On Error Resume Next
Set fshelper = CreateObject("Scripting.FileSystemObject")
Set targetdir = fshelper.GetFolder(directoryPath)
filecnt = targetdir.Files.Count
If filecnt > 0 Then
ReDim namepathlist(filecnt, 2)
i = 1
For Each f In targetdir.Files
namepathlist(i, 1) = f.Name
namepathlist(i, 2) = f.path
i = i + 1
Next
End If
On Error GoTo 0
GetFileNames = namepathlist
End FunctionPersze nem biztos, hogy érdemes külön függvényt írni csak ezért, és akár a Dir() függvényre is rá lehet nézni, aztán amelyik egyszerűbb, azzal menni tovább.
Ami meg a 3. pontot illeti, ezt nem így csinálnám, de ennek csak praktikus okai vannak. Mielőtt az egész 50-es iteráció elindul, azelőtt kellene beolvasni változókba az összes előírt fájlnevet és jelszót, ezután jöhet a könyvtár aktuális tartalma, lásd fent, és végül egy olyan iteráció, ami az aktuális listán megy végig, és ha talál az adott példányhoz jelszót, akkor elvégzi a már kész lépéseket.
Új hozzászólás Aktív témák
Hirdetés
- Autóápolás, karbantartás, fényezés
- Milyen billentyűzetet vegyek?
- iPhone topik
- Külső merevlemezek - USB, eSATA, FireWire HDD
- PlayStation 5
- E-roller topik
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- Xiaomi Smart Band 7 - hetedik
- Hagyományos és extrém roller, kickbike, Boardy topik
- MOBILTELEFON / TARTOZÉK / OKOSÓRA / OKOS KIEGÉSZÍTŐ beárazás
- További aktív témák...
- Mars Gaming MKMINI W RGB CHROMA Mechanikus Gamer Billentyűzet OUTEMU PRO brown switchekkel
- Sony PlayStation 5 (PS5) játékkonzol
- Asztali PC , R5 5500 , RX 580 8GB , 16GB DDR4 , 256GB NVME , 640GB HDD
- Vadonatúj, bontatlan iPhone 17 PRO 256GB deep blue KÁRTYAFÜGGETLEN! 1 év Apple garancia!
- Samsung Galaxy S22 128GB, Kártyafüggetlen, 1 Év Garanciával
- Gamer PC-Számítógép! Csere-Beszámítás! R5 5600X / RX 7600 / 32GB DDR4 / 1TB M.2 SSD
- Apple iPhone 13 Pro Max 512GB,Újszerű,Adatkabel,12 hónap garanciával
- Xiaomi Redmi Note 12 Pro 5G 128GB Kártyafüggetlen 1Év Garanciával
- GYÖNYÖRŰ iPhone 15 Plus 128GB Pink -1 ÉV GARANCIA - Kártyafüggetlen, MS3354
- Újra Akcióban!!! Ducky One 2 Mini és SF billentyűzetek a bolti ár töredékéért! Számla+Gari
Állásajánlatok
Cég: CAMERA-PRO Hungary Kft.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest