Çözüldü Winamp *.m3u dosyasında değişiklik yapmak

[k0081]

Merhaba arkadaşlar;

*.m3u dosyasında;

# ile başlayan satırları nasıl kaldırabilirim ? (command buton )

yardımcı arkadaşa şimdiden teşekkürler.

 

[turist]

Önce m3u uzantılı dosyanızı masaüstü gibi bir yere kopyalayın.
uzantısını .txt olarak değiştirin
Örnek: "şarkılar.m3u" iken "şarkılar.txt" yapın
sonra,1.ci Kod olarak bunu çalıştırın.
Sub m3ual()
Dim wbI As Workbook, wbO As Workbook
Dim wsI As Worksheet

Set wbI = ThisWorkbook
Set wsI = wbI.Sheets("Sayfa1") '<~~ m3u dosyalarını alacağınız sayfa

Set wbO = Workbooks.Open("C:\Kullanıcı\xxxt\Desktop\m3u dosyanızın adi.txt")

wbO.Sheets(1).Cells.Copy wsI.Cells

wbO.Close SaveChanges:=False
End Sub
Not:
C:\Kullanıcı\xxxt\Desktop\m3u dosyanızın adi.txt
yerine kendi bilgilerinizi yazın.

daha sonra 2.ci Kodu çalıştırın
Sub m3udansil()
Dim i As Integer
Dim RowNbr As Integer
Dim ColNbr As Long
Dim silinecek()
Dim LR As Long

silinecek = Array("=", "#") ' başka kararkterler de eklenebilir
LR = Cells.Find("#*", , , , xlByRows, xlPrevious).Row

For RowNbr = LR To 1 Step -1
For ColNbr = 1 To Cells.Find("*", , , , xlByColumns, xlPrevious).Column
For i = 0 To UBound(silinecek)
If InStr(Cells(RowNbr, ColNbr), silinecek(i)) Then
Cells(RowNbr, ColNbr).EntireRow.Delete
Exit For
End If
Next i
Next ColNbr
Next RowNbr
End Sub
excel sayfanızdaki listeden # işaretle başlayanlar silinecektir.
Daha sonra bu listeyi, notepad'e kopyalayın.
uzantısı .txt olarak kaydedin, sonra uzantısını yukarıdakinin tersine .m3u olarak değiştirin.

 

[k0081]

Hocam Çok teşekkür ediyorum tamamdır...

 

[turist]

Sağolun.