Вот нашел чето... Но как переписать на vb2005 незнаю... Может ктонить знает как и подскажет?
- Public Function P_Tag1(VhPath As String, Pl_Title As String, Pl_Artist As String, P_lAlbum As String, Pl_Year As String, Pl_Comment As String, Pl_Janr As String) As Boolean
- Dim L As Long
- Dim s As String
- MPos = 1
- L = FileLen(VhPath)
- If L < 300 Then Exit Function
- Open VhPath For Binary As #55
- s = " ": Get #55, L - 127, s
- If s <> "TAG" Then Close 55: Exit Function
- s = Space(30): Get #55, L - 124, s: Pl_Title = Trim(s)
- s = Space(30): Get #55, L - 94, s: Pl_Artist = Trim(s)
- s = Space(30): Get #55, L - 64, s: P_lAlbum = Trim(s)
- s = Space(4): Get #55, L - 34, s: Pl_Year = Trim(s)
- s = Space(30): Get #55, L - 30, s: Pl_Comment = Trim(s)
- s = Space(1): Get #55, L, s: Pl_Janr = Trim(s)
- Close #55
- P_Tag1 = True
- End Function
Ответить
|
Артем
Артем