Visualizza wikitesto di Estrarre il testo da un file Midi

Esistono vari Meta-Eventi Midi per inserire nel file Midi dati testuali.
<BR>In particolare sono usati i seguenti Meta-Eventi:
* '''FF 01''' (''Text event''): utilizzato per del testo per qualsiasi scopo, spesso per inserire il testo di un brano;
* '''FF 05''' (''Lyric''): utilizzato specificamente per il testo di un brano, ma in partcolare va usato per contenere una sola sillaba per uno specifico movimento (battuta).
Dopo il secondo file del Meta-Evento sono presenti da uno a quattro byte che indicano in formato a lunghezza variabile la quantità di byte seguenti che rappresentano il testo.

Riguardo all'estensione del file Midi contenente il testo del brano, si preferisce utilizzare l'estensione .kar (karaoke). Va però precisato che i file Midi con estensione .kar sono esattamente identici ai file Midi con estensione .mid.


Vediamo un semplice codice in grado di leggere il testo contenuto dal Meta-Evento Midi "''Text event'' ":
 '''Public''' Sub Main()
  
  Dim fl As File
  Dim fileMidi, s As String
  Dim b As Byte
  Dim ts As New Byte[]
   
   fileMidi = "<FONT Color=gray>''/percorso/del/file.kar''</font>"
   Print "File Midi:    "; fileMidi
   
   fl = Open fileMidi For Read
   
   Read #fl, s, 4
   If s <> "MThd" Then Error.Raise("Il file non è uno standard Midi !")
   Print "Dimensione:   "; Lof(fl); " byte\n\n  TESTO:\n"
   
   Repeat
     Read #fl, b
     If b = &FF Then
       Read #fl, b
       If b = &01 Then legge_var(fl, ts)
     Endif
   Until Seek(fl) = Lof(fl)
   
   fl.Close
   
   For Each b In ts
     Write String.Chr(b)
   Next
   
 '''End'''
 
 '''Private''' Function legge_var(mf As File, bb As Byte[])
  
  Dim vl, i As Integer
  Dim c, n As Byte
  
 <FONT Color=gray>' ''Legge un numero a lunghezza-variabile:''</font>
   Repeat
     Read #mf, c
     vl = Shl(vl, 7) Or (c And 127)
   Until Not (c And 128)
   
 <FONT Color=gray>' ''Inserisce il valore ASCII del carattere alfanumerico nel vettore:''</font>
   For i = 1 To vl 
     Read #mf, n
      bb.Push(n)
   Next
   
 '''End'''