VB如何读取修改MP3的ID3V1，ID3V2信息

VB如何读取修改MP3的ID3V1，ID3V2信息呢

解决方案 »

  1.   

    请自行参考：http://www.codesky.net/article/doc/200311/2003112885999545.htm另外，请参考这个例子：http://www.vbaccelerator.com/home/VB/Code/vbMedia/Reading_and_Writing_MP3_ID3v1_and_v2_Tags/MP3_ID3_Tags_Code.zip但是这个代码有一点问题，需要修改。
      

  2.   

    读取的song type:Blues;ClassicRock;Country;Dance;Disco;Funk;Grunge;Hip-Hop;Jazz;Metal;NewAge;Oldies;Other;Pop;R&B;Rap;Reggae;Rock;Techno;Industrial;Alternative;Ska;DeathMetal;Pranks;Soundtrack;Euro-Techno;Ambient;Trip-Hop;Vocal;Jazz+Funk;Fusion;Trance;Classical;Instrumental;Acid;House;Game;SoundClip;Gospel;Noise;AlternRock;Bass;Soul;Punk;Space;Meditative;InstrumentalPop;InstrumentalRock;Ethnic;Gothic;Darkwave;Techno-Industrial;Electronic;Pop-Folk;Eurodance;Dream;SouthernRock;Comedy;Cult;Gangsta;Top40;ChristianRap;Pop/Funk;Jungle;NativeAmerican;Cabaret;NewWave;Psychadelic;Rave;Showtunes;Trailer;Lo-Fi;Tribal;AcidPunk;AcidJazz;Polka;Retro;Musical;Rock&Roll;HardRock;Folk;Folk-Rock;NationalFolk;Swing;FastFusion;Bebob;Latin;Revival;Celtic;Bluegrass;Avantgarde;GothicRock;ProgessiveRock;PsychedelicRock;SymphonicRock;SlowRock;BigBand;Chorus;EasyListening;Acoustic;Humour;Speech;Chanson;Opera;ChamberMusic;Sonata;Symphony;BootyBass;Primus;PornGroove;Satire;SlowJam;Club;Tango;Samba;Folklore;Ballad;PowerBallad;RhythmicSoul;Freestyle;Duet;PunkRock;DrumSolo;Acapella;Euro-House;DanceHall;Goa;Drum&Bass;Club-House;Hardcore;Terror;Indie;BritPop;Negerpunk;PolskPunk;Beat;ChristianGangstaRap;HeavyMetal;BlackMetal;Crossover;ContemporaryChristian;ChristianRock;Merengue;Salsa;TrashMetal;Anime;JPop;Synthpop
        Dim fp As Integer
        Dim mp3tag As ID3V1
        Dim SongType() As String
        
        SongType = Split(LoadResString(1001), ";")
        
        fp = FreeFile
        Open App.Path & "\4.mp3" For Binary As #fp
        Seek #fp, FileLen(App.Path & "\4.mp3") - 127
        Get #fp, , mp3tag
        Close #fp
        MsgBox RTrim(mp3tag.Title) & vbCrLf & RTrim(mp3tag.Artist) & vbCrLf & RTrim(mp3tag.Album) & _
            vbCrLf & RTrim(mp3tag.Year) & vbCrLf & RTrim(mp3tag.Comment)
      

  3.   

    说一下，这是V1的
    Public Type ID3V1
        Header As String * 3   '/*标签头必须是"TAG"否则认为没有标签*/
        Title As String * 30   '/*标题*/
        Artist As String * 30  '/*作者*/
        Album As String * 30   '/*专集*/
        Year As String * 4     '/*出品年代*/
        Comment As String * 30 '/*备注*/
        Genre As Byte
    End Type