Import af filnavne mv. til Notes DB

Hejsa

Denne kode blev brugt til at indlæse poster fra en kommaseperet tekstfil og til notes, måske kan du bruge den

Sub Initialize
    Dim n As Integer
    Dim s As New NotesSession
    Dim db As NotesDatabase
    Dim doc As NotesDocument
    Dim collection As NotesDocumentCollection
   
    Set db=s.CurrentDatabase
    fileNum=Freefile()
    fileName=Inputbox ("Enter the name of the company file to import", "Import ","c:\temp\company.txt")
    If fileName="" Then
        Msgbox "Import Aborted", 0+48+0+0, "Error Message"
        Exit Sub
    End If
   
    Close #FileNum
    Open fileName For Input As fileNum   
   
    Dim g()  As String
    Dim gnews() As String
   
    Do Until Eof(fileNum)
        Input #fileNum, Key, Navn, adr1, adr2,adr3, zip, city, country, Phone,Fax, Email, Count
       
       
        Set doc=db.CreateDocument
        doc.Form="Company"
        doc.extkey = Cstr(key)         
        doc.Name=Cstr(Navn)
        doc.country=Cstr(country)
        doc.Save False, True
       
       
    Loop
    Close #fileNum
   
   
End Sub

Jeg prøver lige at se på det, om det er noget der rykker, selvom jeg tror det bli'r for besværligt på denne måde...

Hvis andre har nogle ideer, så bare fyr løs...

Du burde kunne søge en filstruktur igennem, og hente filnavn etc, det har jeg bare aldrig prøvet.

I Winamp3 er playlisten en XML fil, den burde du kunne importere direkte via Domino/Notes XML engine.
I Winamp2x er det en tekstfil, hvor hver anden linie indeholder Længde, Kunstner og Title, og hver anden linie indeholder et filnavn.
Tekstfiler kan du indlæse via ovenstående kode.

På notes.net ligger der en applikation, som er nogenlunde det du søger, MP3 PlaMate: http://www.notes.net/sandbox.nsf/ecc552f1ab6e46e4852568a90055c4cd/c9ce556cec59109a85256a0e0057e3af?OpenDocument&Highlight=0,mp3

Denne applikation scanner et angivet drev/bibliotek for både MP3 filer og playlists, og importerer alle data fra MP3 tags.

Det er selvfølgelig ikke ligeså sjovt som at lave det selv, men du kan jo lave en ændring, så filstørrelsen også kommer med, for det kan programmet ikke - og hvis det ikke er lige det du søger, så kan du da sikkert bruge noget af det som inspiration.

Hmm, ikke noget jeg kunne bruge desværre, så jeg lukker igen!