Das läuft ca so ab:
Du gehst ans ende der Datei, zählst xxx zurück dort muß dann TAG stehen und anschließend liest du Interpret und Titel etc. aus. In Access würde das wie folgt aussehen:
If dateilänge > 128 Then ' nur längere Dateien analysieren
For i = dateilänge - 127 To dateilänge - 125
Get #Dateinummer, i, gelesen
Check = Check & gelesen
Next i
End If
If Check = "TAG" Then ' ohne TAG geht gar nichts.
For i = dateilänge - 124 To dateilänge - 95
Get #Dateinummer, i, gelesen
Titel = Titel & gelesen
Next i
For i = dateilänge - 94 To dateilänge - 65
Get #Dateinummer, i, gelesen
Interpret = Interpret & gelesen
Next i
For i = dateilänge - 64 To dateilänge - 35
Get #Dateinummer, i, gelesen
Album = Album & gelesen
Next i
For i = dateilänge - 34 To dateilänge - 31
Get #Dateinummer, i, gelesen
' Jahr = Jahr & Str$(gelesen) ' Typen unverträglich
' Jahr = gelesen ' vermutlich nur die letzte Zahl wird übernommen
Jahr = Jahr & gelesen 'keine Übernahme
Next i
Get #Dateinummer, 31, gelesen
Genre = gelesen
For i = dateilänge - 30 To dateilänge - 1
Get #Dateinummer, i, gelesen
Kommentar = Kommentar & gelesen
Next i
Debug.Print "TAG OK bei "; Dateiname
|