[Risto40]

tere,
kuna oskan ise vaid puhast HTMLi kirjutada, siis pöördun abipalvega targemate poole, kuna HTML'st jääb mu probleemi juures väheks. Kas keegi hää inimene saaks kirjutada sellise veebilehe, mis sikutaks arvutisse sisestatud dvd-lt andmeid. Veebilehe asukoht jääb aruvitsse, nt desktopile. Vaja oleks, et see suudaks sikutada dvd'lt järgnevad andmed tabeli kujul, et need excelisse kopeerida:
- Sisestatud plaadi nimi
- kausta nimi (sub-foldereid pole)
- faili nimi (laiendiga või siis ilma kuid siis tuleks laiend eraldi veergu panna. )
- date picture taken (juhul kui tegemist on jpg failiga)

Sorteerimist pole vaja, kuna seda saan teha excelis. DVD sahtli tähiseks on E (mitte D, kuid vajadusel saan selle vast ise ära muudetud). ja oleks hea kui tegu oleks vaid 1 failiga, nt php lehega (firefoxiga saab php-e lehte arvutis kuvada . Tõenäoliselt on viimase soovitud funktsiooni tegemine raskeim, kuna tuleb vist EXIF infos tuhnida. Kui seda funktsiooni lisada ei saa/oska, pole hullu, kuna võin excelis kuupäeva folderi nimest valemitega hiljem extractida.

Miks sellist asja vaja on: kuna aja jooksul on pilte ~50 dvd jagu kogunenud, on tekkinud probleem vajalike failide üles leidmisega dvd-delt. Tahan, et see veebileht aitaks mul andmed kõikidelt plaatidelt kätte saada, seda siis üks haaval: plaat sisse, avan veebilehe, see korjab andmed ja kuvab need tabelina, misjärel kopeerin need excelisse ja sulgen veebilehe. ja nii iga plaadiga. kui kõik andmed excelis, sis edasi on juba märksa lihtsam andmetega tegeleda - sorteerida, otsida, faile õigelt plaadilt leida.

Olen äärmiselt tänulik, kui keegi viitsiks sellise asja valmis kirjutada.

[lehm2]

Sellist progrejuppi oleks vast lihtsam teha mõne süsteemi keelega? Java, c++, python, ruby jne. Kuid muidugi saaks sellise lahenduse php-ga, kuid teist viisi saaks lihtsamalt.

[wicked]

Risto40, selle jaoks peaks soibvad programmid täitsa leitavad olema. Üle veebilehe andmete plaadikaupa excelisse kopeerimine tundub hammaste puurimisena istmiku kaudu..
Otsi picture/archive/dvd organizer vms programme.

[Smith]

Osta kõvaketas.

[Risto40]

Nii.. leidsin sis lõpuks natuke aega, et netis tuhnida ja soovitud koodijupp leida. Leidsin. Modifitseerisin. Töötab.
Tegu siis MS Exceli VBA'ga.


Sub TestListFilesInFolder()
Fldr = Cells(2, 2)
Workbooks.Add ' create a new workbook for the file list
' add headers
With Range("A1")
.Formula = "Folder contents:"
.Font.Bold = True
.Font.Size = 12
End With
Range("A3").Formula = "Location & File Name:"
Range("B3").Formula = "File Name:"
Range("C3").Formula = "File Size, MB:"
Range("D3").Formula = "File Type:"
Range("A3:D3").Font.Bold = True
ListFilesInFolder (Fldr), True 'SEE ON KAUST VÕI KETAS, MILLES OLEVATEST FAILIDEST LIST TEKITATAKSE _
MUUTA SAAB SEDA WORKSHEEDILT NUPU PEALT LAHTRIST B2
' list all files, TRUE = included subfolders
End Sub

Sub ListFilesInFolder(SourceFolderName As String, IncludeSubfolders As Boolean)
' lists information about the files in SourceFolder
' example:ListFilesInFolder "E:\", True
Dim FSO As Scripting.FileSystemObject
Dim SourceFolder As Scripting.Folder, SubFolder As Scripting.Folder
Dim FileItem As Scripting.File
Dim r As Long
Set FSO = New Scripting.FileSystemObject
Set SourceFolder = FSO.GetFolder(SourceFolderName)
r = Range("A65536").End(xlUp).Row + 1
For Each FileItem In SourceFolder.Files
' display file properties
Cells(r, 1).Formula = FileItem.Path
Cells(r, 2).Formula = FileItem.Name
Cells(r, 3).Formula = FileItem.Size / 1024 / 1024 'jagades baidid megabaitideks
Cells(r, 4).Formula = FileItem.Type
r = r + 1 ' next row number
Next FileItem
If IncludeSubfolders Then
For Each SubFolder In SourceFolder.SubFolders
ListFilesInFolder SubFolder.Path, True
Next SubFolder
End If

'megabaitide komakohtade formaat
Columns("C:C").Select
Selection.NumberFormat = "#,##0.0"

Columns("A:D").AutoFit

Set FileItem = Nothing
Set SourceFolder = Nothing
Set FSO = Nothing
ActiveWorkbook.Saved = True
End Sub

Eelnev kood veel ei tööta. Vaja on lisada töölehele nupp, mis macro käivitaks, ning B2 lahtrisse kirjutada drive/folder, mille sisust list moodustada (nt: D:/).

Panin exceli faili ka netti mõneks ajaks üles (koodi algallikas on vba esimesel real (alt+F11): http://www.hundiurg.eu/FolderContents.xls

a ja kui kood ei peaks käivituma, siis tuleb macrodest tools->references-> microsoft script runtime vms ette linnuke panna ja OK.

[HacaX]

Kui juba koodijupi valmis tegid siis tegid, aga muidu nõustuks eelpool öelduga - suhteliselt kilplaslik tee nõutu saavutamiseks. Enamus normaalseid organizereid peaks oskama oma sisseskännitud andmeid CSV formaadis eksportida mida pea iga eksisteeriv tabelarvutus- ja andmebaasiproge on nõus sisendina sööma (juhul kui sa failimajandust tahad tolles proges teostada selle asemel et otse organizeris tegutseda). Paremad skännivad ka failid läbi et kõikvõimaliku lisainfi kätte saada (EXIFi toega pole kursis, aga näiteks arhiivide ja filmi-/muusikafailide tehniliste jms andmete sisselugemine on täiesti tavaline asi).