Eliminare una traccia da un file MIDI - Cronologia

Vuott il 16:33, 19 giu 2024

2024-06-19T16:33:23Z

← Versione meno recente		Versione delle 10:33, 19 giu 2024
Riga 3:		Riga 3:

	===1° codice===		===1° codice===
	~~'''~~Public~~'''~~ Sub Form_Open()		Public Sub Form_Open()

	Dim s As String		Dim s As String
Riga 11:		Riga 11:
	Dim el As Byte		Dim el As Byte

	s = File.Load("<FONT Color=~~gray~~>''/percorso/del/file.mid''</font>")		s = File.Load("<FONT Color=darkgreen>''/percorso/del/file.mid''</font>")
	If s[0, 4] <> "MThd" Then Error.Raise("Il file caricato non è un file Midi standard !")		If s[0, 4] <> "MThd" Then Error.Raise("Il file caricato non è un file Midi standard !")

Riga 46:		Riga 46:

	Print "\nSalvataggio del nuovo file Midi pari a", bb.Count; " byte."		Print "\nSalvataggio del nuovo file Midi pari a", bb.Count; " byte."
	File.Save("<FONT Color=~~gray~~>''/percorso/del/nuovo_file.mid''</font>", bb.ToString(0, bb.count))		File.Save("<FONT Color=darkgreen>''/percorso/del/nuovo_file.mid''</font>", bb.ToString(0, bb.count))

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


	===2° codice===		===2° codice===
	~~'''~~Public~~'''~~ Sub Main()		Public Sub Main()

	Dim smf, mtrk As String		Dim smf, mtrk As String
Riga 64:		Riga 64:

	<FONT Color=gray>' ''Carica uno file Midi standard:''</font>		<FONT Color=gray>' ''Carica uno file Midi standard:''</font>
	smf = File.Load("<FONT Color=~~gray~~>''/percorso/del/file.mid''</font>")		smf = File.Load("<FONT Color=darkgreen>''/percorso/del/file.mid''</font>")
	If Left(smf, 4) <> "MThd" Then Error.Raise("Il file caricato non è un file Midi standard !")		If Left(smf, 4) <> "MThd" Then Error.Raise("Il file caricato non è un file Midi standard !")

Riga 96:		Riga 96:

	<FONT Color=gray>' ''Ricostituisce l'intero file Midi, ora privo della traccia eliminata:''</font>		<FONT Color=gray>' ''Ricostituisce l'intero file Midi, ora privo della traccia eliminata:''</font>
	File.Save("<FONT Color=~~gray~~>''/percorso/del/nuovo_file.mid''</font>", tracce.Join(Null, Null))		File.Save("<FONT Color=darkgreen>''/percorso/del/nuovo_file.mid''</font>", tracce.Join(Null, Null))

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

Vuott il 15:27, 22 set 2022

2022-09-22T15:27:28Z

← Versione meno recente		Versione delle 09:27, 22 set 2022
Riga 2:		Riga 2:


	====1° codice====		===1° codice===
	'''Public''' Sub ~~Main~~()		'''Public''' Sub Form_Open()

	Dim s As String		Dim s As String
	Dim bb As New Byte[]		Dim bb As New Byte[]
			Dim i, lungh As Integer
			Dim ss As New String[]
	Dim el As Byte		Dim el As Byte
	~~Dim i, lungh As Integer~~
	~~Dim ii As New String[]~~

	s = File.Load("<FONT Color=gray>''/percorso/del/file.mid''</font>")		s = File.Load("<FONT Color=gray>''/percorso/del/file.mid''</font>")
			If s[0, 4] <> "MThd" Then Error.Raise("Il file caricato non è un file Midi standard !")

	bb = Byte[].FromString(s)		bb = Byte[].FromString(s)
Riga 18:		Riga 19:
	Repeat		Repeat
	i = InStr(s, "MTrk", i + 1)		i = InStr(s, "MTrk", i + 1)
	If i > 0 Then ii.Push(i)		If i > 0 Then ss.Push(i)
	Until i == 0		Until i == 0

	Print "Il file Midi contiene";~~; ii~~.Count;; "tracce Midi."		Print "Il file Midi contiene "; ss.Count; " tracce Midi."

	el = Val(InputBox("Scegliere la traccia da eliminare:"))		el = Val(InputBox("Scegliere la traccia da eliminare:"))
Riga 29:		Riga 30:
	Message.Warning("Eliminazione della '<I>Traccia del Tempo</i>' non consentita !")		Message.Warning("Eliminazione della '<I>Traccia del Tempo</i>' non consentita !")
	Return		Return
	Case ii.Count + 1		Case ss.Count + 1
	Message.Warning("Numero traccia superiore alla quantità di tracce presenti nel file Midi !")		Message.Warning("Numero traccia superiore alla quantità di tracce presenti nel file Midi !")
	Return		Return
	End Select		End Select

	<FONT Color=gray>' ''Individua la dimensione della traccia da eliminare:''</font>		<FONT Color=gray>' ''Individua la dimensione della traccia da eliminare (ne ricava il valore dalla memorizzazione dei relativi dati in ordine "Big-Endian"):''</font>
	lungh = bb[ii[el - 1] + 6]		lungh = bb[ss[el - 1] + 6]
	lungh += bb[ii[el - 1] + 5] * 256 <FONT Color=gray>' ''&0100''</font>		lungh += bb[ss[el - 1] + 5] * 256 <FONT Color=gray>' ''&0100''</font>
	lungh += bb[ii[el - 1] + 4] * 65536 <FONT Color=gray>' ''&010000''</font>		lungh += bb[ss[el - 1] + 4] * 65536 <FONT Color=gray>' ''&010000''</font>
	lungh += bb[ii[el - 1] + 3] * 16777216 <FONT Color=gray>' ''&01000000''</font>		lungh += bb[ss[el - 1] + 3] * 16777216 <FONT Color=gray>' ''&01000000''</font>

	bb.Remove(ii[el - 1] - 1, 8 + lungh)		bb.Remove(ss[el - 1] - 1, 8 + lungh)

	bb[11] -= 1		bb[11] -= 1

	Print "~~Salvataggio~~ del nuovo file Midi pari a", bb.Count, "byte."		Print "\nSalvataggio del nuovo file Midi pari a", bb.Count; " byte."
	File.Save("<FONT Color=gray>''/percorso/del/nuovo_file.mid''</font>", bb.ToString(0, bb.count))		File.Save("<FONT Color=gray>''/percorso/del/nuovo_file.mid''</font>", bb.ToString(0, bb.count))

Riga 50:		Riga 51:


			===2° codice===
	====2° codice====
	'''Public''' Sub Main()		'''Public''' Sub Main()

Vuott il 13:04, 8 lug 2021

2021-07-08T13:04:53Z

← Versione meno recente		Versione delle 07:04, 8 lug 2021
Riga 19:		Riga 19:
	i = InStr(s, "MTrk", i + 1)		i = InStr(s, "MTrk", i + 1)
	If i > 0 Then ii.Push(i)		If i > 0 Then ii.Push(i)
	Until i = 0		Until i == 0

	Print "Il file Midi contiene";; ii.Count;; "tracce Midi."		Print "Il file Midi contiene";; ii.Count;; "tracce Midi."

Vuott il 13:04, 8 lug 2021

2021-07-08T13:04:36Z

Vuott il 01:48, 8 mag 2016

2016-05-08T01:48:33Z

← Versione meno recente		Versione delle 19:48, 7 mag 2016
Riga 84:		Riga 84:
	tracce.Remove(elim - 1, 1)		tracce.Remove(elim - 1, 1)

	<FONT Color=gray>' ''Diminuisce di un'unità il 12° byte del blocco d'Intestazione:''</font>		<FONT Color=gray>' ''Diminuisce di un'unità il valore presente nel 12° byte del blocco d'Intestazione:''</font>
	mthd[11] -= 1		mthd[11] -= 1

Vuott il 01:46, 8 mag 2016

2016-05-08T01:46:41Z

@@ Riga 1: / Riga 1: @@
-Per eliminare una traccia da un file Midi con le sole funzioni di Gambas, è possibile usare il seguente codice:
+Di seguito mostriamo un paio di codici utili per eliminare una traccia da un file Midi con le sole funzioni di Gambas.
-  '''Public''' Sub Button1_Click()
    Dim s As String
@@ Riga 41: / Riga 44: @@
     bb[11] -= 1
-    Print "Salvataggio del nuovo file Midi pari a";; bb.Count;; "byte."
+    Print "Salvataggio del nuovo file Midi pari a", bb.Count, "byte."
     File.Save("<FONT Color=gray>''/percorso/del/nuovo_file.mid''</font>", bb.ToString(0, bb.count))
   '''End'''

Vuott il 22:29, 29 mag 2015

2015-05-29T22:29:35Z

← Versione meno recente		Versione delle 16:29, 29 mag 2015
Riga 1:		Riga 1:
	Per eliminare una traccia da un file Midi con le sole funzioni di Gambas, è possibile usare il seguente codice:		Per eliminare una traccia da un file Midi con le sole funzioni di Gambas, è possibile usare il seguente codice:
	'''Public''' Sub ~~Form_Open~~()		'''Public''' Sub Button1_Click()

	Dim ~~s1, s2, da, dati, mthd, nuovo_file~~ As String		Dim s As String
	~~Dim el, j As Byte~~
	~~Dim lungh As Integer~~
	Dim bb As New Byte[]		Dim bb As New Byte[]
	Dim ~~tracce~~ As New String[]		Dim el As Byte
			Dim i, lungh As Integer
			Dim ii As New String[]
	s1 = File.Load("''/percorso/del/file.mid''")
			s = File.Load("<FONT Color=gray>''/percorso/del/file.mid''</font>")

			bb = Byte[].FromString(s)

			<FONT Color=gray>' ''Ciclo per individuare ciascuna traccia "MTrk" del file Midi:''</font>
			Do
			i = InStr(s, "MTrk", i + 1)
			If i > 0 Then ii.Push(i)
			Loop Until i = 0

			Print "Il file Midi contiene";; ii.Count;; "tracce Midi."

	el = Val(InputBox("Scegliere la traccia da eliminare:"))		el = Val(InputBox("Scegliere la traccia da eliminare:"))

	If el = 1 ~~Then~~		Select Case el
	Message.Warning("Eliminazione della 'Traccia del Tempo' non consentita !")		Case 1
	~~Quit~~		Message.Warning("Eliminazione della '<I>Traccia del Tempo</i>' non consentita !")
	~~Endif~~		Return
			Case ii.Count + 1
	<FONT ~~color~~=gray>' ''~~Carica~~ la ~~sola parte delle tracce "MTrk"~~:''</font>		Message.Warning("Numero traccia superiore alla quantità di tracce presenti nel file Midi !")
	s2 = ~~Right(s1, Len(s1)~~ - ~~14)~~		Return
			End Select
	<FONT ~~color~~=gray>' ''~~Ciclo per individuare ciascuna traccia "MTrk" del file Midi:~~''</font>
	~~While j < Asc(Mid(s1, 12, 1))~~		<FONT Color=gray>' ''Individua la dimensione della traccia da eliminare:''</font>
			lungh = bb[ii[el - 1] + 6]
	~~bb = Byte[].FromString(Mid(s2, 5, 4))~~		lungh += bb[ii[el - 1] + 5] * 256 <FONT Color=gray>' ''&0100''</font>
			lungh += bb[ii[el - 1] + 4] * 65536 <FONT Color=gray>' ''&010000''</font>
	lungh = ~~Val("&" & Hex(~~bb[~~0]) & Hex(bb~~[1]~~) & Hex(bb[2~~]~~) & Hex(bb[3]))~~		lungh += bb[ii[el - 1] + 3] * 16777216 <FONT Color=gray>' ''&01000000''</font>

	~~tracce.Add(Mid(s2, 1, lungh + 8))~~

	~~s2 = Right(s2, Len(s2) - (8 + lungh))~~

	~~Inc j~~

	~~Wend~~


	<FONT ~~color~~=gray>' ''~~Rimuove la traccia "MTrk" prescelta:~~''</font>
	~~tracce.Remove(~~el - 1~~, 1)~~

	~~For Each da In tracce~~
	~~dati &~~= da
	~~Next~~

	~~mthd = Left(s1, 11)~~ & ~~Chr(tracce.Count) & Mid(s1, 13, 2)~~

	nuovo_file ~~= mthd & dati~~		bb.Remove(ii[el - 1] - 1, 8 + lungh)

			bb[11] -= 1

			Print "Salvataggio del nuovo file Midi pari a";; bb.Count;; "byte."
			File.Save("<FONT Color=gray>''/percorso/del/nuovo_file.mid''</font>", bb.ToString(0, bb.count))

	~~File.Save("/tmp/nuovo.mid", nuovo_file)~~

	~~Quit~~

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

Vuott: Creata pagina con 'Per eliminare una traccia da un file Midi con le sole funzioni di Gambas, è possibile usare il seguente codice: '''Public''' Sub Form_Open() Dim s1, s2, da, dati, mthd, ...'

2014-01-19T08:22:49Z

Creata pagina con 'Per eliminare una traccia da un file Midi con le sole funzioni di Gambas, è possibile usare il seguente codice: '''Public''' Sub Form_Open() Dim s1, s2, da, dati, mthd, ...'

Nuova pagina

Per eliminare una traccia da un file Midi con le sole funzioni di Gambas, è possibile usare il seguente codice:
'''Public''' Sub Form_Open()

Dim s1, s2, da, dati, mthd, nuovo_file As String
Dim el, j As Byte
Dim lungh As Integer
Dim bb As New Byte[]
Dim tracce As New String[]

s1 = File.Load("''/percorso/del/file.mid''")

el = Val(InputBox("Scegliere la traccia da eliminare:"))

If el = 1 Then
Message.Warning("Eliminazione della 'Traccia del Tempo' non consentita !")
Quit
Endif

' ''Carica la sola parte delle tracce "MTrk":''
s2 = Right(s1, Len(s1) - 14)

' ''Ciclo per individuare ciascuna traccia "MTrk" del file Midi:''
While j < Asc(Mid(s1, 12, 1))

bb = Byte[].FromString(Mid(s2, 5, 4))

lungh = Val("&" & Hex(bb[0]) & Hex(bb[1]) & Hex(bb[2]) & Hex(bb[3]))

tracce.Add(Mid(s2, 1, lungh + 8))

s2 = Right(s2, Len(s2) - (8 + lungh))

Inc j

Wend

' ''Rimuove la traccia "MTrk" prescelta:''
tracce.Remove(el - 1, 1)

For Each da In tracce
dati &= da
Next

mthd = Left(s1, 11) & Chr(tracce.Count) & Mid(s1, 13, 2)

nuovo_file = mthd & dati

File.Save("/tmp/nuovo.mid", nuovo_file)

Quit

'''End'''