Estrarre il testo da un file Midi - Cronologia

Vuott il 16:37, 19 giu 2024

2024-06-19T16:37:07Z

← Versione meno recente		Versione delle 10:37, 19 giu 2024
Riga 9:		Riga 9:

	Vediamo un semplice codice in grado di leggere il testo contenuto da entrambi i suddetti Meta-Eventi:		Vediamo un semplice codice in grado di leggere il testo contenuto da entrambi i suddetti Meta-Eventi:
	~~'''~~Public~~'''~~ Sub Main()		Public Sub Main()

	Dim fl As File		Dim fl As File
Riga 16:		Riga 16:
	Dim ts As New Byte[]		Dim ts As New Byte[]

	fileMidi = "<FONT Color=~~gray~~>''/percorso/del/file.kar''</font>"		fileMidi = "<FONT Color=darkgreen>''/percorso/del/file.kar''</font>"
	Print "File Midi: "; fileMidi		Print "File Midi: "; fileMidi

Riga 39:		Riga 39:
	Next		Next

	~~'''~~End~~'''~~		End

	~~'''~~Private~~'''~~ Function legge_var(mf As File, bb As Byte[])
			Private Function legge_var(mf As File, bb As Byte[])

	Dim vl, i As Integer		Dim vl, i As Integer
Riga 58:		Riga 59:
	Next		Next

	~~'''~~End~~'''~~		End

Vuott il 14:58, 16 apr 2023

2023-04-16T14:58:22Z

← Versione meno recente		Versione delle 08:58, 16 apr 2023
Riga 2:		Riga 2:
	<BR>In particolare per contenenre il testo di una canzone sono per lo più usati i seguenti Meta-Eventi:		<BR>In particolare per contenenre il testo di una canzone sono per lo più 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 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).		* '''FF 05''' (''Lyric''): utilizzato specificamente per il testo di un brano, ma in particolare 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.		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.		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 strutturalmente identici ai file Midi con estensione .mid.

Vuott il 14:35, 20 set 2022

2022-09-20T14:35:01Z

← Versione meno recente		Versione delle 08:35, 20 set 2022
Riga 31:		Riga 31:
	If (b = &01) Or (b = &05) Then legge_var(fl, ts)		If (b = &01) Or (b = &05) Then legge_var(fl, ts)
	Endif		Endif
	Until ~~Seek(fl) = Lof~~(fl)		Until Eof(fl)

	fl.Close		fl.Close

Vuott il 14:22, 20 set 2022

2022-09-20T14:22:18Z

← Versione meno recente		Versione delle 08:22, 20 set 2022
Riga 8:		Riga 8:


	Vediamo un semplice codice in grado di leggere il testo contenuto da entrambi i suddetti Meta-Eventi":		Vediamo un semplice codice in grado di leggere il testo contenuto da entrambi i suddetti Meta-Eventi:
	'''Public''' Sub Main()		'''Public''' Sub Main()

Riga 15:		Riga 15:
	Dim b As Byte		Dim b As Byte
	Dim ts As New Byte[]		Dim ts As New Byte[]

	fileMidi = "<FONT Color=gray>''/percorso/del/file.kar''</font>"		fileMidi = "<FONT Color=gray>''/percorso/del/file.kar''</font>"
	Print "File Midi: "; fileMidi		Print "File Midi: "; fileMidi

	fl = Open fileMidi For Read		fl = Open fileMidi For Read

	Read #fl, s, 4		Read #fl, s, 4
	If s <> "MThd" Then Error.Raise("Il file non è uno standard Midi !")		If s <> "MThd" Then Error.Raise("Il file non è uno standard Midi !")
	Print "Dimensione: "; Lof(fl); " byte\n\n TESTO:\n"		Print "Dimensione: "; Lof(fl); " byte\n\n TESTO:\n"

	Repeat		Repeat
	Read #fl, b		Read #fl, b
	If b = &FF Then		If b = &FF Then
	Read #fl, b		Read #fl, b
	If (b = &01) Or (b = &05) Then legge_var(fl, ts)		If (b = &01) Or (b = &05) Then legge_var(fl, ts)
	Endif		Endif
	Until Seek(fl) = Lof(fl)		Until Seek(fl) = Lof(fl)

	fl.Close		fl.Close

	For Each b In ts		For Each b In ts
	Write String.Chr(b)		Write String.Chr(b)
	Next		Next

	'''End'''		'''End'''

Riga 47:		Riga 47:

	<FONT Color=gray>' ''Legge un numero a lunghezza-variabile:''</font>		<FONT Color=gray>' ''Legge un numero a lunghezza-variabile:''</font>
	Repeat		Repeat
	Read #mf, c		Read #mf, c
	vl = Shl(vl, 7) Or (c And 127)		vl = Shl(vl, 7) Or (c And 127)
	Until Not (c And 128)		Until Not (c And 128)

	<FONT Color=gray>' ''Inserisce il valore ASCII del carattere alfanumerico nel vettore:''</font>		<FONT Color=gray>' ''Inserisce il valore ASCII del carattere alfanumerico nel vettore:''</font>
	For i = 1 To vl		For i = 1 To vl
	Read #mf, n		Read #mf, n
	bb.Push(n)		bb.Push(n)
	Next		Next

	'''End'''		'''End'''

Vuott il 18:49, 28 apr 2018

2018-04-28T18:49:56Z

← Versione meno recente		Versione delle 12:49, 28 apr 2018
Riga 8:		Riga 8:


	Vediamo un semplice codice in grado di leggere il testo contenuto ~~dal~~ Meta-~~Evento Midi "''Text event''~~ ":		Vediamo un semplice codice in grado di leggere il testo contenuto da entrambi i suddetti Meta-Eventi":
	'''Public''' Sub Main()		'''Public''' Sub Main()

Riga 29:		Riga 29:
	If b = &FF Then		If b = &FF Then
	Read #fl, b		Read #fl, b
	If b = &01 Then legge_var(fl, ts)		If (b = &01) Or (b = &05) Then legge_var(fl, ts)
	Endif		Endif
	Until Seek(fl) = Lof(fl)		Until Seek(fl) = Lof(fl)

Vuott il 18:46, 28 apr 2018

2018-04-28T18:46:18Z

← Versione meno recente		Versione delle 12:46, 28 apr 2018
Riga 1:		Riga 1:
	Esistono vari Meta-Eventi Midi per inserire nel file Midi dati testuali.		Esistono vari Meta-Eventi Midi per inserire nel file Midi dati testuali.
	<BR>In particolare sono usati i seguenti Meta-Eventi:		<BR>In particolare per contenenre il testo di una canzone sono per lo più 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 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).		* '''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).

Vuott: Creata pagina con "Esistono vari Meta-Eventi Midi per inserire nel file Midi dati testuali.
In particolare sono usati i seguenti Meta-Eventi: * '''FF 01''' (''Text event''): utilizzato per d..."

2018-04-28T18:45:23Z

Creata pagina con "Esistono vari Meta-Eventi Midi per inserire nel file Midi dati testuali. In particolare sono usati i seguenti Meta-Eventi: * '''FF 01''' (''Text event''): utilizzato per d..."

Nuova pagina

Esistono vari Meta-Eventi Midi per inserire nel file Midi dati testuali.
 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 = "''/percorso/del/file.kar''"
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

' ''Legge un numero a lunghezza-variabile:''
Repeat
Read #mf, c
vl = Shl(vl, 7) Or (c And 127)
Until Not (c And 128)

' ''Inserisce il valore ASCII del carattere alfanumerico nel vettore:''
For i = 1 To vl
Read #mf, n
bb.Push(n)
Next

'''End'''