|
|||||||
|
|
|
![]() |
|
|
Strumenti |
|
|
#1 |
|
Senior Member
Iscritto dal: Sep 2008
Città: Ravenna
Messaggi: 387
|
[VB2008] Scrivere nelle proprietà dei files mp3....
Ciao.... avrei all'incirca 9.000 files musicali in una sola cartella (25gb
In pratica vorrei che dal nome del file(del tipo "Madonna - Hung Up") prendesse in una variabile chiamata A il nome a sinistra del " - "(inclusi gli spazi) nella variabile B quello a destra e poi mi permettesse di elaborarli e con unaltro tasto inserirli nelle proprieta di ogni file.... che dite si puo fare? grazie mille in anticipo
__________________
LA MIA CONFIGURAZIONE CPU: i5-4690K @4,5Ghz, CPU Cooler: Noctua NH-D15, RAM: HyperX 2x4GB DDR3 @1866Mhz CL10, CASE: Sharkoon DG7000 Rosso, ALI: XFX TS 650 80+Gold, HDD: WD Caviar Blue 3TB 5200RPM, SSD: Samsung 850 Evo 256Gb, FAN CTRL: NZXT Sentry 3, VGA: Gigabyte GTX 980Ti G1 Gaming. Ultima modifica di Pino67 : 06-04-2010 alle 11:11. |
|
|
|
|
|
#2 |
|
Senior Member
Iscritto dal: Feb 2010
Messaggi: 466
|
se vuoi scrivere un programma a riguardo dovresti leggere la documentazione dei TAG ID degli mp3 ( http://www.id3.org/ )
se invece hai solo bisogno di aggiungere ai tuoi mp3 le informazioni prendendole dal titolo e non ti interessa la programmazione puoi usare il programma tagscanner (http://www.xdlab.ru/en/)
__________________
I robot hanno scintillanti fondoschiena metallici che non dovrebbero essere baciati. |
|
|
|
|
|
#3 | |
|
Senior Member
Iscritto dal: Sep 2008
Città: Ravenna
Messaggi: 387
|
Quote:
Comunque sarei interessato ancora a creare quel programma.... come posso procedere?
__________________
LA MIA CONFIGURAZIONE CPU: i5-4690K @4,5Ghz, CPU Cooler: Noctua NH-D15, RAM: HyperX 2x4GB DDR3 @1866Mhz CL10, CASE: Sharkoon DG7000 Rosso, ALI: XFX TS 650 80+Gold, HDD: WD Caviar Blue 3TB 5200RPM, SSD: Samsung 850 Evo 256Gb, FAN CTRL: NZXT Sentry 3, VGA: Gigabyte GTX 980Ti G1 Gaming. |
|
|
|
|
|
|
#4 |
|
Senior Member
Iscritto dal: Sep 2008
Città: Ravenna
Messaggi: 387
|
Raga sono riuscito a separare il nome di sinistra da quello di destra per chi vuole il codice è cosi
ps. non sapendo come togliere l'estensione del file alla stringa ho agito a modo mio Codice:
Dim Nomeartit, Stringa As String
Dim information As System.IO.FileInfo
information = My.Computer.FileSystem.GetFileInfo(C:\File.mp3)
Nomeartit = InStr(information.Name, ".mp3")
Nomeartit = Mid(information.Name, 1, Nomeartit - 1)
Stringa = InStr(Nomeartit, " - ") - 1
TextBox2.Text = Mid(Nomeartit, 1, Stringa)
TextBox3.Text = Mid(Nomeartit, Stringa + 4)
vi posto il codice come l'ho trovato alla fonte... qui ogni singolo file viene messo in una listbox Codice:
Dim ca As New DirectoryInfo(C:\Cartella)
Dim fail As System.IO.FileInfo
For Each fail In ca.GetFiles
ListBox1.Items.Add(fail.Name)
Next
Come si fa a scrivere nelle proprieta di un file mp3 l'artista e il titolo? Aiutatemi perfavore
__________________
LA MIA CONFIGURAZIONE CPU: i5-4690K @4,5Ghz, CPU Cooler: Noctua NH-D15, RAM: HyperX 2x4GB DDR3 @1866Mhz CL10, CASE: Sharkoon DG7000 Rosso, ALI: XFX TS 650 80+Gold, HDD: WD Caviar Blue 3TB 5200RPM, SSD: Samsung 850 Evo 256Gb, FAN CTRL: NZXT Sentry 3, VGA: Gigabyte GTX 980Ti G1 Gaming. |
|
|
|
|
|
#5 |
|
Senior Member
Iscritto dal: Sep 2008
Città: Ravenna
Messaggi: 387
|
Aiuto
__________________
LA MIA CONFIGURAZIONE CPU: i5-4690K @4,5Ghz, CPU Cooler: Noctua NH-D15, RAM: HyperX 2x4GB DDR3 @1866Mhz CL10, CASE: Sharkoon DG7000 Rosso, ALI: XFX TS 650 80+Gold, HDD: WD Caviar Blue 3TB 5200RPM, SSD: Samsung 850 Evo 256Gb, FAN CTRL: NZXT Sentry 3, VGA: Gigabyte GTX 980Ti G1 Gaming. |
|
|
|
|
|
#6 |
|
Senior Member
Iscritto dal: Sep 2008
Città: Ravenna
Messaggi: 387
|
Vi prego aiutatemi anche una minima cosa può essermi d'aiuto...
__________________
LA MIA CONFIGURAZIONE CPU: i5-4690K @4,5Ghz, CPU Cooler: Noctua NH-D15, RAM: HyperX 2x4GB DDR3 @1866Mhz CL10, CASE: Sharkoon DG7000 Rosso, ALI: XFX TS 650 80+Gold, HDD: WD Caviar Blue 3TB 5200RPM, SSD: Samsung 850 Evo 256Gb, FAN CTRL: NZXT Sentry 3, VGA: Gigabyte GTX 980Ti G1 Gaming. |
|
|
|
|
| Strumenti | |
|
|
Tutti gli orari sono GMT +1. Ora sono le: 10:39.




















