Playlist Hazırlama

[Leturc]

iyi günler sayın arkadaşlar,

şimdi benim elimde bir parça listesi var ve ben bu listeyi medya çalıcılarda oynatmak için .pls formatına uyarlamak istiyorum ancak bir türlü beceremedim. Bana aranızda yardımcı olabilecek birileri olursa çok sevinirim.

Şimdi .pls formatı aşağıdaki gibi;

[playlist]

File1=01-keny_arkana-desobeissance_civile.mp3
Title1=Rockurd-www.bydigi.com
Length1=156

File2=02-keny_arkana-reveillez-vous.mp3
Title2=Rockurd-www.bydigi.com
Length2=248

File3=03-keny_arkana-ordre_mondial.mp3
Title3=Rockurd-www.bydigi.com
Length3=247

File4=04-keny_arkana-la_rue_nous_appartient.mp3
Title4=Rockurd-www.bydigi.com
Length4=253

File5=05-keny_arkana-alterlude_le_changement_viendra_den_bas.mp3
Title5=Rockurd-www.bydigi.com
Length5=150

File6=06-keny_arkana-les_chemins_du_retour.mp3
Title6=Rockurd-www.bydigi.com
Length6=237

File7=07-keny_arkana-terre_mere_nest_pas_a_vendre.mp3
Title7=Rockurd-www.bydigi.com
Length7=246

File8=08-keny_arkana-alterlude_pachamama.mp3
Title8=Rockurd-www.bydigi.com
Length8=123

File9=09-keny_arkana-cinquieme_soleil.mp3
Title9=Rockurd-www.bydigi.com
Length9=411

NumberOfEntries=9

Version=2

Benim elimdeki dosyanın formatı ise;

{43410E6F-51A6-4CD6-8EC9-40A68401D31C}.wav TEK_BAINA 255
{7C3F92D6-6428-4870-8935-D6D56DE67F2B}.wav ASKIM 174
{413B57FA-D495-4127-A5BC-23F032AD1CA5}.wav SESIMI_DUYMUYOR_MUSUN 197
{8F705ACA-45FB-4C5F-B4D7-B36027688D8B}.wav KAR_TANELERI 191
{E1528997-8600-46A8-A8EA-4C755756ECA6}.wav MANTIK_EVLILIGI 249
{C16575D2-DFA8-4C4F-BB94-2C0F1235FCE4}.wav HERKES_HAKETTIGI_GIBI_YASIYOR 253
{8216CDA4-808A-44A9-9BDA-228863BBB998}.wav KAR_BEYAZ 295
{236AA706-7376-4CD8-A049-C3BFB38FD939}.wav CAMDAN_KALP 266
{7FDFA26C-5048-4368-948E-79F47E8D4868}.wav YAPAMADIM 248
{35031D8C-40C9-46C9-BEF9-4607DE1EB299}.wav KUCUK_SEVGILIM 250

İstediğim şey elimdeki listeyi yukarıdaki listeyle aynı hale getirmek.

File1={43410E6F-51A6-4CD6-8EC9-40A68401D31C}.wav
Title1=TEK_BAINA
Lenght1=255

File2={7C3F92D6-6428-4870-8935-D6D56DE67F2B}.wav
Title2=ASKIM
Lenght2=174

vs...

Yardımcı olabilirseniz çok makbule geçer

 

[dEdE]

Merhaba,
Ekli dosyayı inceler misiniz.

Sub PlsOlustur()
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
s2.Cells(1, 1).Value = "[playlist]"
ss = 3
For i = 1 To s1.[A65536].End(3).Row
    s2.Cells(ss, 1).Value = "File" & i & "=" & s1.Cells(i, 1).Value
    s2.Cells(ss + 1, 1).Value = "Title" & i & "=" & s1.Cells(i, 2).Value
    s2.Cells(ss + 2, 1).Value = "Lenght" & i & "=" & s1.Cells(i, 3).Value
    ss = ss + 4
Next
s2.Cells(ss, 1).Value = "NumberOfEntries =" & i - 1
s2.Cells(ss + 2, 1).Value = "Version = 2"
End Sub

 

[Leturc]

Dede ellerine sağlık müthişsin ya. Keşke ben de öğrenebilsem bu makro olayını Mesela bunun M3U olanını yapmayı deniyorum senin vermiş olduğun kodu modifiye ederek ama olmuyor.

Her ikisi de olsun. ilk sayfada hem .pls oluştur hem de .m3u oluştur olsun istiyorum.

onun formatı ise aşağıdaki gibi

#EXTM3U

#EXTINF:255,TEK_BAINA
{43410E6F-51A6-4CD6-8EC9-40A68401D31C}.wav

#EXTINF:174,ASKIM
{7C3F92D6-6428-4870-8935-D6D56DE67F2B}.wav

Bunu her iki dosya içinde de yapmak için nasıl bir yol izlemeliyim?

 

[dEdE]

.... bunun M3U olanını yapmayı deniyorum senin vermiş olduğun kodu modifiye ederek ama olmuyor.
Her ikisi de olsun. ilk sayfada hem .pls oluştur hem de .m3u oluştur olsun istiyorum....

Merhaba,
Aşağıdaki kodu kullanabilirsiniz.

Sub m3uOlstur()
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
s2.Cells(1, 3).Value = "#EXTM3U"
ss = 3
For i = 1 To s1.[A65536].End(3).Row
    s2.Cells(ss, 3).Value = "#EXTINF:" & s1.Cells(i, 3).Value & "," & s1.Cells(i, 2).Value
    s2.Cells(ss + 1, 3).Value = s1.Cells(i, 1).Value
    ss = ss + 3
Next
End Sub

 

[Leturc]

Çok teşekkür ederim. Ellerinize sağlık...

 

[Leturc]

Sayın dEdE farkındayım çok oluyorum ama aramama rağmen bulamadım. buraya kadar herşey süper işliyor ancak istiyorum ki bu oluşturulan .pls ve.m3u listeleri de otomatik olarak *.pls ya da *.m3u olarak c:\ sürücüsüne kaydedilsinler. Acaba bu mümkün müdür?

Çünkü ben makro kaydederek yapmaya çalıştım ancak farklı kaydet seçenekleri içerisinde "tüm dosyalar" olarak bir seçenek yok. Dolayısıyla söz konusu alanları istediğim formatta kaydedemiyorum.

 

[dEdE]

Merhaba,
Dosyanız ilişiktedir.

Hoşça kalın.

 

[Leturc]

Sayın dEdE şimdi ben bu yapmış olduğunuz makroya yeni bir özellik eklemeye çalışıyorum. İstediğim bu eklemiş olduğunuz butonların altına "gözat" diye bir buton ekleyip .txt dosyasını okuması ve bu okuduğu text dosyasının değerlerini sayfa1'e aktarması. Bunun için aşağıdaki kodları denedim ama pek becerebildiğimi sanmıyorum. Aslında her iki kodda kendi açısından çalışıyor. Birincisi doğrudan c:\ den dosyayı okuyor lâkin her zaman c'de olmayabilir dosya ve zaten çok sağlıklı çalıştığını da söyleyemem. İkincisi ile de entegre edemedim

Sub TXTAL()
ADRES = "TEXT;C:\DATA.txt"
With ActiveSheet.QueryTables.Add(Connection:= _
ADRES, Destination:=Range("A1"))
.TextFileOtherDelimiter = ";"
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1)
.Refresh BackgroundQuery:=False
End With
End Sub

Sub DOSYA_BUL()
FileToOpen = Application _
.GetOpenFilename
If FileToOpen <> False Then
End If


End Sub

ne önerebilirsiniz?

 

[dEdE]

....makroya yeni bir özellik eklemeye çalışıyorum. İstediğim bu eklemiş olduğunuz butonların altına "gözat" diye bir buton ekleyip .txt dosyasını okuması ve bu okuduğu text dosyasının değerlerini sayfa1'e aktarması. ne önerebilirsiniz?

Merhaba,
Ekli dosyayı inceler misiniz.
Kodun bir bölümündeki yardımlari için Sayın Zeki Gürsoy'a teşekkürler.

 

[Leturc]

Sayın dEdE tekrar çok teşekkür ederim ilginiz için ancak bu defa bir sorun çıktı. Almak istediğim dosya TXT formatında olduğu için makrodaki dosya uzantılarını kendime göre değiştirdim.
Dosya al makrosu dosyayı sorunsuz şekilde alarak sayfa3'e yapıştırıyor. Ben sayfa1'" almasını istediğim için bunu da düzenledim aşağıdaki gibi. Ancak içeri aktarmış olduğu dosyayı hücrelere ayırmadan tek bir hücre içerisine atıyor. Dolayısıyla yeniden süzmem gerekiyor verileri 3 ayrı sütuna dağıtabilmek için.

Yapmak istediğim benim manuel olarak kopyala yapıştır yaptığım txt içeriğini otomatik olarak sayfa1'e çeksin ve 3 sütuna dağıtsın. Ben de .pls oluştur ya da m3u oluştur dediğimde söz konusu dosyaları C:\ altına kaydetsin.

Sub TXTAL()
ADRES = "TEXT;C:\DATA.txt"
With ActiveSheet.QueryTables.Add(Connection:= _
ADRES, Destination:=Range("A1"))
.TextFileOtherDelimiter = ";"
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1)
.Refresh BackgroundQuery:=False
End With
End Sub

 

[dEdE]

.....txt içeriğini otomatik olarak sayfa1'e çeksin ve 3 sütuna dağıtsın. Ben de .pls oluştur ya da m3u oluştur dediğimde söz konusu dosyaları C:\ altına kaydetsin.

Merhaba,
*.txt dosyaları farklı formatlarda(boşlukla, noktalıvirgülle, tab ile ayrılmış) olabilirler. txt dosyanızın bir örneğini gönderirseniz istediğinizi yapmak kolay.

 

[Leturc]

{43410E6F-51A6-4CD6-8EC9-40A68401D31C}.wav TEK_BAINA 255
{7C3F92D6-6428-4870-8935-D6D56DE67F2B}.wav ASKIM 174
{413B57FA-D495-4127-A5BC-23F032AD1CA5}.wav SESIMI_DUYMUYOR_MUSUN 197
{8F705ACA-45FB-4C5F-B4D7-B36027688D8B}.wav KAR_TANELERI 191
{E1528997-8600-46A8-A8EA-4C755756ECA6}.wav MANTIK_EVLILIGI 249
{C16575D2-DFA8-4C4F-BB94-2C0F1235FCE4}.wav HERKES_HAKETTIGI_GIBI_YASIYOR 253
{8216CDA4-808A-44A9-9BDA-228863BBB998}.wav KAR_BEYAZ 295
{236AA706-7376-4CD8-A049-C3BFB38FD939}.wav CAMDAN_KALP 266
{7FDFA26C-5048-4368-948E-79F47E8D4868}.wav YAPAMADIM 248
{35031D8C-40C9-46C9-BEF9-4607DE1EB299}.wav KUCUK_SEVGILIM 250

.txt dosyamın içeriği yukarıdaki ile birebir aynıdır.