title image


Smiley hab ich hier aus dem forum ...
Private Sub TAG_lesen_Click()' TAG sind die letzten 128 Bytes der Datei und ist so aufgeteilt:' Byte 1-3 = Kennung 'TAG'' Byte 4-33 = Titel' Byte 34-63 = Artist' Byte 64-93 = Album' Byte 94-97 = Jahr' Byte 98-127 = Kommentar' Byte 128 = Genre' Tag lesenTagInhalt$ = String(128, 32)FName = "c:\tmp\f2.mp3"FNum = FreeFileOpen FName For Binary As FNumGet #FNum, FileLen(FName) - 127, TagInhaltClose #FNum' TagInhalt auf die TextBoxen verteilenKennung.Text = RTrim(Left(TagInhalt, 3))Titel.Text = RTrim(Mid(TagInhalt, 4, 30))Artist.Text = RTrim(Mid(TagInhalt, 34, 30))Album.Text = RTrim(Mid(TagInhalt, 64, 30))Jahr.Text = RTrim(Mid(TagInhalt, 94, 4))Kommentar.Text = RTrim(Mid(TagInhalt, 98, 30))Genre.Text = Asc(Right(TagInhalt, 1))TAG_schreiben.Enabled = TrueEnd SubPrivate Sub TAG_schreiben_Click()End Sub' TagInhalt aus den TextBoxen zusammenstellenTagInhalt = Left(Kennung.Text + String(3, 32), 3)TagInhalt = TagInhalt + Left(Titel.Text + String(30, 32), 30)TagInhalt = TagInhalt + Left(Artist.Text + String(30, 32), 30)TagInhalt = TagInhalt + Left(Album.Text + String(30, 32), 30)TagInhalt = TagInhalt + Left(Jahr.Text + String(4, 32), 4)TagInhalt = TagInhalt + Left(Kommentar.Text + String(30, 32), 30)TagInhalt = TagInhalt + Chr(Val(Genre.Text))' Tag schreibenFName = "c:\tmp\f2.mp3"FNum = FreeFileOpen FName For Binary As FNumPut #FNum, FileLen(FName) - 127, TagInhaltClose #FNumEnd Sub

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: