MP3 Tags

[wej42]

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

[wej42]

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

[wej42]

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

[hellswraith]

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...

[hellswraith]

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.

[wej42]

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#

[wej42]

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

[hellswraith]

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?

[wej42]

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

[hellswraith]

I ran it through the upgrade wizard...

		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

[hellswraith]

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.

[wej42]

wow. lol

thanks

[wej42]

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''

[wej42]

ok peoples, i need more help

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

[formulav8]

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)