Reply to Datenbank mit discs.txt on Tue, 28 Dec 2004 18:34:21 GMT

didi257 — Tue, 28 Dec 2004 18:34:21 GMT
Vielen Dank!
Ich werde es in den nächsten Tagen ausprobieren!
Tschüss!
Didi
Reply to Datenbank mit discs.txt on Tue, 28 Dec 2004 17:40:20 GMT

toast78 — Tue, 28 Dec 2004 17:40:20 GMT
Tool nicht, aber ich kann dir einen Auszug aus meinem VBA-Programm geben.
'--------------------------------------------------------------------------
'Funktion     : CDInDatenbank
'Beschreibung : Überprüft, ob eine übergebene CD bereits in der Datenbank
'               vorhanden ist
'Version      : 1
'Autor        : Der langhaarige Bombenleger
'Parameter    : SerienNr        =  Serien-Nr aus CDPlayer.ini
'               Interpret       = Interpretenname
'               Album           = Albenname
'               MeldungAnzeigen = True, wenn eine Meldung angezeigt werden
'                   soll, wenn die CD schon vorhanden ist
'Rückgabewert : True, wenn alles geklappt hat
'Beispiel     : CDInDatenbank("[227A552]", "Rockhard-Magazin", "Dynamit Vol. 44")
'--------------------------------------------------------------------------

Public Function CDInDatenbank(SerienNr As String, _
                              Interpret As String, _
                              Album As String, _
                              Optional MeldungAnzeigen As Boolean = False) As Boolean
Dim intStatus As Integer  '1= CD ist in der Datenbank vorhanden
                          '       (kein Fehler)
                          '2= CD ist unter anderem Albennamen gespeichert
                          '4= CD ist unter anderem Interpreten vorhanden
                          '5= CD ist unter anderem Albennamen
                          '       & Interpreten vorhanden
Dim strMeldung As String
Dim rstSuchen As DAO.Recordset

Set rstSuchen = CodeDb.OpenRecordset("SELECT * FROM Alben " & _
      "WHERE SerienNr = '" & SerienNr & "'")

If Not rstSuchen.EOF Then
  CDInDatenbank = True
  intStatus = 1
  If Album <> rstSuchen!Albenname Then
    intStatus = intStatus + 1
  End If
  
  If Interpret <> Nz(DLookup("Interpret", _
      "Interpreten", "InterpretenID=" & rstSuchen!InterpretenID), "") Then
    intStatus = intStatus + 3
  End If
  
  If intStatus > 1 And MeldungAnzeigen Then
    Select Case intStatus
    Case 2 'Anderer Albenname
      strMeldung = "CD ist unter anderem Albenname eingetragen!"
    Case 4 'Anderer Interpret
      strMeldung = "CD ist unter anderem Interpreten eingetragen!"
    Case 5 'Anderer Albenname & Interpret
      strMeldung = "CD ist unter anderem Albenname & " & _
          "Interpreten eingetragen!"
    End Select
    
    MsgBox strMeldung, vbCritical + vbOKOnly, "CD-Datenbank"
  End If
Else
  CDInDatenbank = False
End If
rstSuchen.Close
End Function

'--------------------------------------------------------------------------
'Prozedur     : FindDiscDiscs
'Beschreibung : Sucht in der Discs.txt nach Audio-CDs. Wird eine CD
'               gefunden, so werden die Ergebnisse an die String-Parameter
'               zurückgegeben.
'Version      : 2 : Anpassung an mehrere Schnittstellen
'Autor        : Der langhaarige Bombenleger
'Parameter    : CDDBID = Disc-ID mit der auch die CD auf den FreeDB-
'                   Servern eindeutig identifiziert wird
'               Serialnumber = Seriennummer der gefundenen CD
'                   (Achtung! hat nicht mit der CDDBID gemein!)
'               Artist = Interpret der CD
'               Title = CD-Titel
'Beispiel     : Call FindDiscDiscs(strCDDBID, strSerialnumber, strArtist,
'                   strTitle, DateiNr) In den Stringvariablen stehen
'               dann die Informationen der gefundenen CD.
'--------------------------------------------------------------------------

Private Sub FindDiscDiscs(ByRef CDDBID As String, _
                          ByRef Serialnumber As String, _
                          ByRef Artist As String, _
                          ByRef Title As String, _
                          QuellDateiNr As Integer)
                      
'CDDBID:0D0B1312
'[18D0754]
'artist=Sesamstraße
'title=Die schönster Lieder
'numtracks=18
'compilationdisc=No
'Genre=Pop
'Year=1994
'comment=
'0=Quietsche-Entchen
'...
'17=Denn Keks schmeckt lecker, lecker, lecker
'frames=33,10895,21498,37220,47630,60235,74233,
'order=0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

While Not Left(Artist, 7) = "artist=" And Not EOF(QuellDateiNr)
  
  If (Left(Artist, 7) <> "artist=") Or _
      (Left(Artist, 6) <> "Title=") Then
    CDDBID = Serialnumber
    Serialnumber = Artist
    Artist = Title
  End If
  
  If Not EOF(QuellDateiNr) Then
    Line Input #QuellDateiNr, Title
  End If
Wend

End Sub

'--------------------------------------------------------------------------
'Prozedur     : SongsLesenDiscs
'Beschreibung : Liest Songs aus der Discs.txt in die temporäre Tabelle
'               tmpCDPlayerINIImportSongs ein
'Version      : 2 : Anpassung an mehrere Schnittstellen
'Autor        : Der langhaarige Bombenleger
'Parameter    : QuelldateiNr = Datei-Nr. auf die zugegriffen wird
'               SerienNr =  Serien-Nr aus CDPlayer.ini
'Beispiel     : CallSongsLesenINI(1, "[123456]")
'--------------------------------------------------------------------------

Private Sub SongsLesenDiscs(ByVal QuellDateiNr As Integer, _
                       ByVal SerienNr As String)
Dim Track As String
Dim TrackName As String
Dim TrackNr As String
Dim rstSongs As Recordset
Dim varFrames As Variant
Dim i As Integer

Set rstSongs = CodeDb.OpenRecordset("SELECT * FROM tmpCDPlayerINIImportSongs " & _
    "WHERE SerienNr = '" & SerienNr & "'")
    
If Not rstSongs.EOF Then
  MsgBox "Es sind bereits Songs zu dieser Serien-Nr. vorhanden! Serien-Nr. nicht eindeutig!", _
      vbOKOnly + vbCritical
  Exit Sub
End If

With rstSongs
  'Songs erstmal einlesen
  Do
    If Not EOF(QuellDateiNr) Then
      Line Input #QuellDateiNr, Track
    End If
    If (Left(Track, 7) <> "frames=" And _
        IsNumeric(Left(Track, InStr(Track, "=") - 1)) = True) And Track <> "" Then
      .AddNew
      .Fields("SerienNr") = SerienNr
      TrackNr = Left(Track, InStr(Track, "=") - 1)
      .Fields("Nr") = CInt(TrackNr) + 1
      .Fields("Titel") = IIf(Len(Right(Track, Len(Track) - _
          InStr(Track, "="))) = 0, "(No Name)", Right(Track, Len(Track) - InStr(Track, "=")))
      .Update
      Track = ""
    End If
  
  Loop Until Left(Track, 7) = "frames=" Or EOF(QuellDateiNr)
  
  'Start-Frames sind erst am Ende eingetragen, deswegen eine zweite Schleife
  varFrames = Split(Mid(Track, 8), ",")
  .MoveFirst
  'Debug.Print .RecordCount
  'If Not .EOF Then
    For i = 0 To UBound(varFrames) - 1
      .Edit
      If InStr(varFrames(i), "(") > 0 Then
        .Fields("Frame") = Left(varFrames(i), InStr(varFrames(i), "(") - 1)
      Else
        .Fields("Frame") = varFrames(i)
      End If
      .Update
      .MoveNext
    Next i
  'End If
End With
End Sub

'--------------------------------------------------------------------------
'Prozedur     : StandardDiscsAuswahl
'Beschreibung : Liest die CD-Header (Interpret, Album, Seriennr...) aus der
'               Discs.txt. Die Ergebnisse werden dabei in einem
'               Listview abgespeichert. Zusätzlich wird überprüft, ob die
'               CD schon in der Datenbank vorhanden ist. Ist die CD nicht
'               vorhanden, so wird bei dieser CD dann im Listview ein
'               Haken gesetzt.
'Version      : 2 : Anpassung an mehrere Schnittstellen
'Autor        : Der langhaarige Bombenleger
'Beispiel     : Call StandardDiscsAuswahl()
'--------------------------------------------------------------------------

Private Sub StandardDiscsAuswahl()
Dim Quelldatei As String
Dim DateiNr As Integer

Dim strCDDBID As String
Dim strSerialnumber As String
Dim strArtist As String
Dim strTitle As String
Dim litmEintrag As MSComctlLib.ListItem

Me.CDsAnzeigen.ListItems.Clear
Me.CDsAnzeigen.ColumnHeaders.Clear
Me.CDsAnzeigen.ColumnHeaders.Add , , "Interpret", 2000
Me.CDsAnzeigen.ColumnHeaders.Add , , "Album", 2500
Me.CDsAnzeigen.ColumnHeaders.Add , , "Jahr", 540
Me.CDsAnzeigen.ColumnHeaders.Add , , "Musikstil", 1200
Me.CDsAnzeigen.ColumnHeaders.Add , , "CDDBID", 1000
Me.CDsAnzeigen.ColumnHeaders.Add , , "Serien-Nr.", 1000
Me.CDsAnzeigen.ColumnHeaders.Add , , "Sampler", 800

Quelldatei = "C:\Programme\Audiograbber\Discs.txt"
CodeDb.Execute ("DELETE * FROM tmpCDPlayerINIImportSongs")

If Nz(Dir(Quelldatei), "") = "" Then
  MsgBox Quelldatei & " konnte nicht gefunden werden! " & _
      "Import nicht möglich!", vbOKOnly + vbCritical, "Datei nicht gefunden"
  DoCmd.Close acForm, Me.Name, acSavePrompt
  Exit Sub
End If

DateiNr = FreeFile
Open Quelldatei For Input As #DateiNr
DoCmd.Hourglass True
  
Do
  'Variablen vom letzten Schleifendurchgang leeren
  strCDDBID = ""
  strSerialnumber = ""
  strArtist = ""
  strTitle = ""
  
  Call FindDiscDiscs(strCDDBID, strSerialnumber, strArtist, strTitle, _
      DateiNr)
  If Not EOF(DateiNr) Then
    Set litmEintrag = Me.CDsAnzeigen.ListItems.Add(, , _
        Mid(strArtist, 8)) '"Item=" & str(Me.CDsAnzeigen.ListItems.Count + 1)
    litmEintrag.SubItems(1) = Mid(strTitle, 7)
    litmEintrag.SubItems(4) = Mid(strCDDBID, 8)
    litmEintrag.SubItems(5) = strSerialnumber
    
    'Restliche Informationen aus Schnittstelle lesen
    Do
      If Left(strTitle, 16) = "compilationdisc=" Then
        litmEintrag.SubItems(6) = IIf(Mid(strTitle, 17) = "yes", "Ja", "Nein")
      End If
      
      strArtist = strTitle
      Line Input #DateiNr, strTitle
    Loop Until Left(strTitle, 5) = "year=" Or EOF(DateiNr)
    
    'Informationen dann in Listitem schreiben
    If Not EOF(DateiNr) Then
      litmEintrag.SubItems(2) = Mid(strTitle, 6) 'Jahr
      litmEintrag.SubItems(3) = Mid(strArtist, 7) 'Musikstil/Genre
    End If
    
    litmEintrag.Checked = Not CDInDatenbank(strSerialnumber, strArtist, strTitle, False)
    Call SongsLesenDiscs(DateiNr, strSerialnumber)
    
  End If
Loop Until EOF(DateiNr)

DoCmd.Hourglass False

End Sub