no se si me entiendan, aqui esta el codigo, pero antes de opnerles el codigo debo decir que, hice un module y en este puse las variables:
Código PHP:
Public Artist as String
Public Album as String
Public Year as String
public FileN as String
Public Comment as String
Public Title as String
Código PHP:
Private Sub File1_Click()
Dim Filename As String
Filename = File1.Path & "\"
Filename = Filename & File1.List(File1.ListIndex)
With MediaPlayer1
If Not FileOpen Then
.Filename = Filename
.AutoStart = True
Else
.Filename = ""
End If
End With
Dim sArtist As String
Dim sTitle As String
Dim sAlbum As String
Dim sYear As String
Dim sComment As String
If GetTag(Filename, sTitle, sArtist, sAlbum, sYear, sComment) Then
txtTitle = Capitalize(sTitle)
Artist = Capitalize(sArtist)
Album = Capitalize(sAlbum)
Year = Capitalize(sYear)
Comment = Capitalize(sComment)
FileN = File1.List(File1.ListIndex)
End If
End Sub
Private Function GetTag(ByVal sFile As String, sTitle As String, sArtist As String, sAlbum As String, sYear As String, sComment As String) As Boolean
Dim b As Byte
Dim l As Long
Dim s As String
l = FileLen(sFile) - 1
Open sFile For Binary Access Read As 1
While FileLen(sFile) - l < 128
l = l - 1
Get #1, l, b
s = Chr(b) & s
Wend
Close #1
If InStr(s, "TAG") <> 0 Then
s = Mid(s, InStr(s, "TAG") + 3)
For l = 1 To 30
sTitle = sTitle & RusLat(Mid(s, l, 1))
Next
For l = 31 To 60
sArtist = sArtist & RusLat(Mid(s, l, 1))
Next
For l = 61 To 90
sAlbum = sAlbum & RusLat(Mid(s, l, 1))
Next
For l = 91 To 94
sYear = sYear & RusLat(Mid(s, l, 1))
Next
For l = 95 To 120
sComment = sComment & RusLat(Mid(s, l, 1))
Next
sTitle = Trim(sTitle)
sArtist = Trim(sArtist)
sAlbum = Trim(sAlbum)
sYear = Trim(sYear)
sComment = Trim(sComment)
GetTag = True
Else
GetTag = False
End If
End Function
Private Function Capitalize(ByVal s As String) As String
Dim i As Integer
s = UCase(Mid(s, 1, 1)) & LCase(Mid(s, 2))
For i = 2 To Len(s)
If Mid(s, i, 1) = " " Or Mid(s, i, 1) = "." Or Mid(s, i, 1) = "," Then
If i <> Len(s) Then s = Left(s, i) & UCase(Mid(s, i + 1, 1)) & Mid(s, i + 2)
End If
Next
Capitalize = s
End Function
Private Function RusLat(ByVal s As String) As String
Select Case Asc(s)
'lower case
Case &HB8: RusLat = "yo"
Case &HE9: RusLat = "y"
Case &HF6: RusLat = "ts"
Case &HF3: RusLat = "u"
Case &HEA: RusLat = "k"
Case &HE5: RusLat = "e"
Case &HED: RusLat = "n"
Case &HE3: RusLat = "g"
Case &HF8: RusLat = "sh"
Case &HF9: RusLat = "sch"
Case &HE7: RusLat = "z"
Case &HF5: RusLat = "kh"
Case &HFA: RusLat = "y"
Case &HF4: RusLat = "f"
Case &HFB: RusLat = "i"
Case &HE2: RusLat = "v"
Case &HE0: RusLat = "a"
Case &HEF: RusLat = "p"
Case &HF0: RusLat = "r"
Case &HEE: RusLat = "o"
Case &HEB: RusLat = "l"
Case &HE4: RusLat = "d"
Case &HE6: RusLat = "zh"
Case &HFD: RusLat = "e"
Case &HFF: RusLat = "ya"
Case &HF7: RusLat = "ch"
Case &HF1: RusLat = "s"
Case &HEC: RusLat = "m"
Case &HE8: RusLat = "i"
Case &HF2: RusLat = "t"
Case &HFC: RusLat = "'"
Case &HE1: RusLat = "b"
Case &HFE: RusLat = "yu"
'upper case
Case &H98: RusLat = "Yo"
Case &HE9: RusLat = "Y"
Case &HD6: RusLat = "Ts"
Case &HD3: RusLat = "U"
Case &HCA: RusLat = "K"
Case &HC5: RusLat = "E"
Case &HCD: RusLat = "N"
Case &HC3: RusLat = "G"
Case &HD8: RusLat = "Sh"
Case &HD9: RusLat = "Sch"
Case &HC7: RusLat = "Z"
Case &HD5: RusLat = "Kh"
Case &HDA: RusLat = "Y"
Case &HD4: RusLat = "F"
Case &HDB: RusLat = "I"
Case &HC2: RusLat = "V"
Case &HC0: RusLat = "A"
Case &HCF: RusLat = "P"
Case &HD0: RusLat = "R"
Case &HCE: RusLat = "O"
Case &HCB: RusLat = "L"
Case &HC4: RusLat = "D"
Case &HC6: RusLat = "Zh"
Case &HDD: RusLat = "E"
Case &HDF: RusLat = "Ya"
Case &HD7: RusLat = "Ch"
Case &HD1: RusLat = "S"
Case &HCC: RusLat = "M"
Case &HC8: RusLat = "I"
Case &HD2: RusLat = "T"
Case &HDC: RusLat = "'"
Case &HC1: RusLat = "B"
Case &HDE: RusLat = "Yu"
Case Else: RusLat = s
End Select
End Function
Código PHP:
Private Sub Form_load()
txtArtist = Artist
txtAlbum = Album
txtYear = Year
txtTitle = Title
txtFilename = FileN
txtComment = Comment
Form1.Caption = Artist + "/" + Title
End Sub
