VBS: Разобрать MP3 файлы

Set wmp = WScript.CreateObject("WMPlayer.OCX")
Set media = wmp.newMedia("my.mp3")
Dim s
For i=0 to media.attributeCount-1
	s = s & media.getAttributeName(i) & ": " & media.getItemInfo(media.getAttributeName(i)) & vbCrlf
Next
msgbox s

'Константы режима работы ADODB.Stream
Const adTypeBinary = 1
Const adTypeText = 2

'Префикс разделителей данных
Const boundaryPrefix = "--"
'Boundary - разделитель блоков данных
Const boundary = "----WebKitFormBoundary5iH6W3g1OUAMdwgQ"

'Объект для передачи данных по http протоколу
Dim httpRequest
Set httpRequest = createObject("WinHttp.WinHttpRequest.5.1")
'Для красоты задаём заголовок User-Agent
httpRequest.option(0) = "Mozilla/5.0 (Windows NT 10.0; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/47.0.2526.106 Safari/537.36"

'Объект для работы с файлами в binary mode
Dim stream
Set stream = createObject("ADODB." & "Stream")

'Буффер для складывания временных данных
Dim buffer
With stream
	'Указываем в какой кодировке мы пишем строки в Stream
	.charset = "Windows-1251"
	'Выставляем двоичный режим работы
	.type = adTypeBinary
	'Открываем stream
	.open
	'Загружаем в него тело нашего amr файла
	.loadFromFile "1.amr"
	'Кидаем в буффер
	data = .Read
	'Закрываем стрим, чтобы очистилось содержимое
	.close
	
	'Меняем режим на текстовый, чтобы записать в него заголовки
	.type = adTypeText
	'Открываем стрим
	.open

	'Пишем текстовые заголовок перед телом файла
	.writeText boundaryPrefix & boundary & vbCrlf & _
			"Content-Disposition: form-data; name=""userfile""; filename=""1.amr""" & vbCrlf & _
			"Content-Type: application/octet-stream" & vbCrlf & _
			vbCrlf
	
	'Переключаем режим работы на двоичный
	changeStreamType stream, adTypeBinary

	'Пишем тело файла
	.write data

	'Переключаем режим работы на текстовый
	changeStreamType stream, adTypeText
	
	'Дописываем оставшиеся данные
	.writeText vbCrlf & boundaryPrefix & boundary & vbCrlf & _
			"Content-Disposition: form-data; name=""lng""" & vbCrlf & _
			vbCrlf & _
			"russian" & vbCrlf & _
			boundaryPrefix & boundary & vbCrlf & _
			"Content-Disposition: form-data; name=""MAX_FILE_SIZE""" & vbCrlf & _
			vbCrlf & _
			"512000" & vbCrlf & _
			boundaryPrefix & boundary & vbCrlf & _
			"Content-Disposition: form-data; name=""submit""" & vbCrlf & _
			vbCrlf & _
			"Search!" & vbCrlf & _
			boundaryPrefix & boundary & boundaryPrefix & vbCrlf
	
	'Перематываем стрим на начало
	.position = 0
	'Возвращаемся в двоичный режим работы
	.type = 1
End With

'Отправляем нашу посылку
With HttpRequest
	.Open "POST","http://supertrubka.org/trackid/trackid.php", False
	.SetRequestHeader "Content-Type", "multipart/form-data; boundary=" & boundary
	.Send stream.Read
End With

'****
'Вообще тут стоит сделать регулярки. Но пока соберём коряво для теста
'****

'Грузим данные в html документ
Dim document
Set document = CreateObject("htmlfile")
With document
	'Отключаем исполнение скриптов
	.designMode = "on"
	.open
	.write HttpRequest.responseText
	.close
End With

'Перебираем все тэги "U" и ищем те, которые содержат нужный нам префикс
Dim uTag, track, artist, album 
For Each uTag in document.all.tags("u")
	if InStr(1,uTag.innerText,"Track:",1) > 0 Then
		'Делим по двоеточию и убираем пробелы про краям
		track = Trim(split(uTag.parentElement.innerText,":",2)(1))
	Else
		if InStr(1,uTag.innerText,"Artist:",1) > 0 Then
			artist = Trim(split(uTag.parentElement.innerText,":",2)(1))
		Else
			if InStr(1,uTag.innerText,"Album:",1) > 0 Then
				album = Trim(split(uTag.parentElement.innerText,":",2)(1))
			End If
		End If
	End if
Next

MsgBox "Альбом: " & album & vbCrlf & "Трэк: " & track & vbCrlf & "Исполнитель: " & Artist, vbInformation

'Процедура переключения режима работы stream	
Sub changeStreamType(stream, streamType)
	Dim position
	With Stream
		position = stream.position
		.position = 0
		.Type = streamType
		.position = position
	End With
End Sub

'••••••••••••••••••••••••••••••• VBS •••••••••••••••••••••••••••••••
' Назначение:
'  1. Авто-переименование mp3-файлов в имена композиций их тегов
'  либо тех, что взяты с http://supertrubka.org/trackid/trackid.php
'  2. Запись отсутствующих тегов [Название], [Альбом], [Исполнитель]
'
' Ключи командной строки:
'  /d:[<Путь к каталогу с MP3-файлами>]
'  /s:<первые секунды MP3> (по умолч. 30, мин. 20, макс. 59)
'  /r:<выкл (по умолч.)/вкл обработку всей структуры каталога: 0/1>

' Пример запуска: D:\Current.vbs /d:"D:\My Music" /s:25 /r:1
'
Option Explicit
'•••••••••••••••••••••••• Пути к программам ••••••••••••••••••••••••
Const MadPlay = "C\My Programs\Audio\Converters\MadPlay\madplay.exe"
Const AMRConv = "C\My Programs\Audio\Converters\amrnb-encoder.exe"
Const MP3Splt = "C\My Programs\Audio\Сutters\mp3splt\mp3splt.exe"
Const ID3Edit = "C\My Programs\Audio\TagEditors\ID3\id3.exe"
'•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••

Dim Folder, Sec, Recurse, Regexp, WMP, WSH, HHCtrl, Shell
Dim FSO, Check(0), HTTP,  TempFolder, TempFile, Bound, NL

Const Title = " Переименование и заполнение тегов в MP3      "
With WScript.Arguments.Named
  If .Exists("d") Then Folder  = .Item("d") Else _
  MsgBox "Укажите ключ /d:<Путь к папке с MP3> !", 4144, Title : WScript.Quit
  If .Exists("s") Then Sec     = .Item("s") Else Sec = 30
  If .Exists("r") Then Recurse = .Item("r")
End With : If Sec < 20 Then Sec = 20 End If : If Sec > 59 Then Sec = 59

Set Regexp = New Regexp
Set WMP    = CreateObject("WMPlayer.OCX")
Set WSH    = CreateObject("WScript.Shell")
Set HHCtrl = CreateObject("Internet.HHCtrl")
Set Shell  = CreateObject("Shell.Application")
Set FSO    = CreateObject("Scripting.FileSystemObject")
Set HTTP   = CreateObject("WinHttp.WinHttpRequest.5.1")
TempFolder = Shell.NameSpace(WSH.ExpandEnvironmentStrings("%TEMP%")).Self.Path & "\"
TempFile   = TempFolder & FSO.GetTempName

If Not FSO.FolderExists(Folder) Then _
MsgBox "Путь каталога с MP3-файлами указан неверно!", 4144, Title : WScript.Quit
For Each Bound in Array(MadPlay, AMRConv, MP3Splt, ID3Edit)
  If Not FSO.FileExists(WSH.ExpandEnvironmentStrings(Bound)) Then NL = NL & " " & FSO.GetFileName(Bound)
Next : If NL <> "" Then _
MsgBox "Укажите верные пути к " & Join(Split(Trim(NL)), ", ") & "!", 4144, Title : WSript.Quit
Bound = "----WebKitFormBound5iH6W3g1OUAMdwgQ" : NL = vbCrLf
HHCtrl.TextPopup "Поиск тегов запущен!"&NL&"Ожидайте ...",_
"Verdana,10", 11, 8, 6611199, 3549952 : WScript.Sleep 300
HTTP.Option(0) = "Mozilla/5.0 (Windows NT 10.0; WOW64) " &_
"AppleWebKit/537.36 (KHTML, like Gecko) Chrome/47.0.2526.106 Safari/537.36"
With Regexp
  .Multiline = True : .Pattern = "^.+u>T.+;(.+)</b>.+;(.+)</b>.+;(.+)</b>"
End With
FFolder Folder : HHCtrl.Click : MsgBox ""
If Check(0) = 1 Then MsgBox "Выполнено!", 4160, Title Else _
MsgBox "MP3 файлы в данном каталоге отсутствуют!",4144, Title
If FSO.FileExists(TempFile) Then FSO.GetFile(TempFile).Delete

Sub FFolder(Dir)
  Set Dir = Shell.NameSpace(Dir)
  Dim Items : Set Items = Dir.Items
  Items.Filter 8384, "*.mp3"
  If Items.Count Then
    Dim F, Song, Track, Album, Artist, BN
    For Each F in Items
      BN = FSO.GetBaseName(F) : Set Song = WMP.NewMedia(F.Path)
      Track = "" : Album = "" : Artist = ""
      Track = Trim(Song.getItemInfo("Name"))
      If Track = "" Then Track = Trim(Song.getItemInfo("Title"))
      Album = Trim(Song.getItemInfo("Album")) : If BN = Track Then Track = ""
      If Album = "" Then Album = Trim(Song.getItemInfo("WM/AlbumTitle"))
      For Each Artist in Split("Artist Author AlbumArtist DisplayArtist WM/AlbumArtist")
        Artist = Trim(Song.getItemInfo(Artist)) : If Artist <> "" Then Exit For
      Next : WMP.Close
      If Track = "" Or Album = "" Or Artist = "" Then
        Dim AMRFile, MP3File, Data, Position, All, Tags
        AMRFile = TempFolder & F.Name & ".amr" : MP3File = TempFolder & F.Name
        WSH.Run """" & MP3Splt & """ """ &F.Path& """ 0.0 0."&Sec&" -n -x -Q -d "&TempFolder& " -o @f", 0, True
        WSH.Run """" & MadPlay & """ -Q -m -R 8000 -b 16 -o wave:" & TempFile & " """ & MP3File & """", 0, True
        WSH.Run """" & AMRConv & """ -dtx MR122 " & TempFile & " """ & AMRFile & """", 0, True
        With CreateObject("ADODB." & "Stream")
          .Open : .Charset = "Windows-1251" : .Type = 1 : .LoadFromFile AMRFile
          Data = .Read : .Close : .Type = 2 : .Open
          .WriteText   "--" & Bound  & NL     & "Content-Disposition: form-data; name=""userfile" &_
          """; filename=""" & F.Name & ".amr""" & NL & "Content-Type: application/octet-stream" & NL & NL
          Position = .Position : .Position = 0 : .Type = 1 : .Position = Position
          .Write Data
          Position = .Position : .Position = 0 : .Type = 2 : .Position = Position
          .WriteText NL & "--" & Bound & NL & _
          "Content-Disposition: form-data; name=""lng""" & NL & NL & "russian" & NL & "--" & Bound & NL &_
          "Content-Disposition: form-data; name=""MAX_FILE_SIZE""" & NL & NL & "512000"  & NL & "--" & Bound &_
          NL  &  "Content-Disposition: form-data; name=""submit""" & NL & NL & "Search!" & NL & "--" & Bound &_
          "--" & NL : .Position = 0 : .Type = 1 : All = .Read : .Close
        End With : FSO.GetFile(MP3File).Delete
        With HTTP
          .Open "POST","http://supertrubka.org/trackid/trackid.php", False
          .SetRequestHeader "Content-Type", "multipart/form-data; boundary=" & Bound
          .Send All : All = .ResponseText : .Abort
        End With : FSO.GetFile(AMRFile).Delete
        If Regexp.Test(All) Then
          Tags = Split(Regexp.Replace(Regexp.Execute(All)(0), "$1*$2*$3"),"*")
          If Track  = "" Then Track  = Tags(0)
          If Artist = "" Then Artist = Tags(1)
          If Album  = "" Then Album  = Tags(2)
        End If
      End If
      If Ubound(Tags) >= 0 Then
        If Track <> "" And InStr(F, Track) = 0 Then
          Dim Name, Num
          With New Regexp
            .Global = True
            .Pattern = "["":;/<>\|\\\?\*]" : Name = Trim(.Replace(Track, " "))
            .Pattern = "\s{2,}" : Name = .Replace(Name, " ") : Num = ""
            .Pattern = "^\s*(\d+)([-_ ]{1}.*|$)"
             If .Test(BN) Then
               Num = Trim(.Replace(BN, "$1")) & " - "
             Else .Pattern = "^.*[-_ ]{1}(\d+)(\s*)"
               If .Test(BN) Then Num = Trim(.Replace(.Execute(BN)(0), "$1")) & " - "
             End If
          End With : Name = Num & Name & "." & FSO.GetExtensionName(F)
          If Not FSO.FileExists(FSO.BuildPath(Dir, Name)) Then F.Name = Name
        End If
        WSH.Run """" & ID3Edit & """ -2d -atl """ & Artist & """ """ &_
                Track & """ """ & Album & """ """ & F.Path & """", 0, True
      End If
    Next : Check(0) = 1
  End If
  If Recurse = 1 Then
    Dim Fold : Items.Filter 8352, "*"
    For Each Fold In Items : FFolder Fold.Path : Next
  End if
End Sub

Const MadPlay = "madplay.exe"
Const AMRConv = "amrnb-encoder.exe"
Const MP3Splt = "mp3splt.exe"
Const ID3Edit = "id3.exe"

<html><body>data</body></html>

Str = "<html><body>data</body></html>"
With New Regexp
   .Global = True
   .Pattern = ".*<body>|</body>.*"
   MsgBox .Replace(Str, "")
End With