iStripper Playlist and multi-selection tutorial
Tudo sobre iStripper
June 27, 2016, 71 respostas
Sub Load_playlist()
Dim version_number As Long
Dim item_count As Integer
Dim clip_id As String
Open "My Passport Ultra:Desk Display:data:playlists:Clip Test.vpl" For Binary Access Read As #1
version_number = get_long()
item_count = get_long()
For i = 1 To item_count
clip_id = get_unicode_string
Cells(i, 1) = clip_id
Next i
Close #1
End Sub
Function get_long() As Long
Dim input_data As String
input_data = Input(4, #1)
get_long = 256 * Asc(Mid(input_data, 3, 1)) + Asc(Right(input_data, 1))
End Function
Function get_unicode_string() As String
Dim string_len As Integer
Dim input_data As String
string_len = get_long()
input_data = Input(string_len, #1)
get_unicode_string = ""
For i = 2 To string_len Step 2
get_unicode_string = get_unicode_string & Mid(input_data, i, 1)
Next i
End Function