MP3 Tags

Hi,
im makin an mp3 / video player.. so far, its looks awesome, and works fine, cept i dont know how to get MP3 tags (artist, song name[name, not c:\windows\asdf\asdf\some1.mp3], etc)..

so.. Does anyone know how to get MP3 ID tags?

-thanks

this is just a reply to myself to keep my message on the front page cuz know one is ANSWERING ME! AHHHH :(

P L E A S E help

http://winsong.8m.com/untitled.JPG


PLZ HELP, this is the problem (click me)

http://winsong.8m.com/untitled.JPG -- u have to make a new IE window for some reason and then paste the URL into the address if u get that forbidden msg

thats the link if the pic doesnt show up, the link works when it feals like it too so..


-thanks, plz.. *on his knees* plz HELP

You have to explain what you need help with. A picture is worth a thousand words, but maybe just a few more explaining what is wrong with the picture would help us out just a little more.

The only thing I see is a list of files, but you can't see the file names. Is that what you need help with? Just parse your file paths to show only the names...

Also, to find out how to do your MP3 tag thing, check out this link.
http://www.c-sharpcorner.com/Tools/MP3JukeBoxPL.asp

You know, if you go to google.com and search for what your looking for, you just might find it.

yes, i need help with MP3 Tags (as the thread title says!, and as the picture demonstrates).. i need vb.net tho.. i suck w/ C# :o

ok, i got the code in vb6.. can some1 w/ vb .net prof. edit. convert it for me, or if ur smart and can do it in ur head :)

dim mvarFilename As String
dim mvarArtist As String
dim mvarTitle As String
dim mvarAlbum As String
dim mvarComment As String
dim mvarGenre As Integer
dim mvarYear As String
dim tagData As String * 128
Dim FileNum As Long, filePos As Long
Dim i As Integer
Dim ret As Integer
Dim ExitFlag As Boolean

FileNum = FreeFile
filePos = FileLen(mFilename) - 127
If filePos > 0 Then
Open mFilename For Binary As #FileNum
Get #FileNum, filePos, tagData
Close #FileNum
If Left(tagData, 3) = "TAG" Then
mTitle = Replace(Trim(Mid(tagData, 4, 30)), Chr(0), "")
mArtist = Replace(Trim(Mid(tagData, 34, 30)), Chr(0), "")
mAlbum = Replace(Trim(Mid(tagData, 64, 30)), Chr(0), "")
mYear = Replace(Trim(Mid(tagData, 94, 4)), Chr(0), "")
mComment = Replace(Trim(Mid(tagData, 98, 30)), Chr(0), "")
mGenre = Asc(Mid(tagData, 128, 1))
Else
ExitFlag = True
End If
End If

Quote:

---

Visual Basic 6.0, Visual Basic .NET, C#, C++, ASM, HTML

---

Your signature states you know C#. Which of them do you know? Is it a guessing game?

i know very little, i just got a book on it yesterday.

I ran it through the upgrade wizard...

Code:

---

                Dim mGenre As Object
                Dim mComment As Object
                Dim mYear As Object
                Dim mAlbum As Object
                Dim mArtist As Object
                Dim mTitle As Object
                Dim mFilename As Object
                Dim mvarFilename As String
                Dim mvarArtist As String
                Dim mvarTitle As String
                Dim mvarAlbum As String
                Dim mvarComment As String
                Dim mvarGenre As Short
                Dim mvarYear As String
                Dim tagData As New VB6.FixedLengthString(128)
                Dim FileNum, filePos As Integer
                Dim i As Short
                Dim ret As Short
                Dim ExitFlag As Boolean
               
                FileNum = FreeFile
                'UPGRADE_WARNING: Couldn't resolve default property of object mFilename. Click for more: 'ms-help://MS.VSCC/commoner/redir/redirect.htm?keyword="vbup1037"'
                filePos = FileLen(mFilename) - 127
                If filePos > 0 Then
                        'UPGRADE_WARNING: Couldn't resolve default property of object mFilename. Click for more: 'ms-help://MS.VSCC/commoner/redir/redirect.htm?keyword="vbup1037"'
                        FileOpen(FileNum, mFilename, OpenMode.Binary)
                        'UPGRADE_WARNING: Get was upgraded to FileGet and has a new behavior. Click for more: 'ms-help://MS.VSCC/commoner/redir/redirect.htm?keyword="vbup1041"'
                        FileGet(FileNum, tagData.Value, filePos)
                        FileClose(FileNum)
                        If VB.Left(tagData.Value, 3) = "TAG" Then
                                'UPGRADE_WARNING: Couldn't resolve default property of object mTitle. Click for more: 'ms-help://MS.VSCC/commoner/redir/redirect.htm?keyword="vbup1037"'
                                mTitle = Replace(Trim(Mid(tagData.Value, 4, 30)), Chr(0), "")
                                'UPGRADE_WARNING: Couldn't resolve default property of object mArtist. Click for more: 'ms-help://MS.VSCC/commoner/redir/redirect.htm?keyword="vbup1037"'
                                mArtist = Replace(Trim(Mid(tagData.Value, 34, 30)), Chr(0), "")
                                'UPGRADE_WARNING: Couldn't resolve default property of object mAlbum. Click for more: 'ms-help://MS.VSCC/commoner/redir/redirect.htm?keyword="vbup1037"'
                                mAlbum = Replace(Trim(Mid(tagData.Value, 64, 30)), Chr(0), "")
                                'UPGRADE_WARNING: Couldn't resolve default property of object mYear. Click for more: 'ms-help://MS.VSCC/commoner/redir/redirect.htm?keyword="vbup1037"'
                                mYear = Replace(Trim(Mid(tagData.Value, 94, 4)), Chr(0), "")
                                'UPGRADE_WARNING: Couldn't resolve default property of object mComment. Click for more: 'ms-help://MS.VSCC/commoner/redir/redirect.htm?keyword="vbup1037"'
                                mComment = Replace(Trim(Mid(tagData.Value, 98, 30)), Chr(0), "")
                                'UPGRADE_WARNING: Couldn't resolve default property of object mGenre. Click for more: 'ms-help://MS.VSCC/commoner/redir/redirect.htm?keyword="vbup1037"'
                                mGenre = Asc(Mid(tagData.Value, 128, 1))
                        Else
                                ExitFlag = True
                        End If
                End If

---

Obviously it needs a little rework. For some reason it declared a lot of variables as object, you are probably going to have to go in and change all that.

wow. lol

thanks

:D :) :cool:

hmm...

tagdata as new VB6.FixedLengthString(128) 'theres no such thing as this in .NET

VBFixedStringAttribute(128) ' would this be the equivilant? and when i do do that, all the other TagDatas come up w/ blue underline sayin that '' ''.value is not a property of a fixed length string.. so do i change all the '' '' .value 's to somethin else or what?

and.. If VB.Left(tagData, 3) = "TAG" Then
the vb.left part isnt a vb.net thing either.. would i do If tagdata.trimend (all but first 3 chars) = "Tag" Then

-thanks :)

*edit* p.s. *note: iv been promoted to just plain ''member'' :p

ok peoples, i need more help :)

Read above msg (just posted this to keep on front page)

I don't have time to fix it for you. But what I use for a fixed string is


Dim a as string

a = space$(128)