vbe de wav dosyası birleştirmek mümkünmüdür?

[hsayar]

Merhaba bir ara bir yerlerde okumuştum ama üsütünde durmamıştım msdosta

mesala Temp.Wav = on.wav + bir.wav şeklinde dosya birleştirilebildiğini...
şimdi ise bir iş için vbe de yapılabilenine ihitiyacım oldu

sn veysel emrenin yardımı ile aşağıdaki linkte aştığım bir konunun
http://www.excel.web.tr/showpost.php?p=255174&postcount=6
devamı niteliğinde olan burada sorum şu

Sub dene()
[B][COLOR=Red]'TmpWav.wav adında boş bir wav dosyası oluştur[/COLOR][/B] 
   For Each elem In yaziyaCevirParcala(123456789012345#)
        Msgbox elem
[B][COLOR=Red]'yol =[/COLOR][/B] [B][COLOR=Red]Thisworkbook.path & Application.PathSeparator & "ses"& [/COLOR][/B][B][COLOR=Red]Application.PathSeparator[/COLOR][/B]
'[B][COLOR=Red]TmpWav.wav = [/COLOR][/B][B][COLOR=Red]TmpWav.wav + yol [/COLOR][/B][B][COLOR=Red]& elem &".wav"[/COLOR][/B]
    Next
End Sub

şeklinde geçici bir ses dosyası oluşturmak mümkünmüdür. Bunu okutup daha sonra sileceğim.

Genelde Dosya Birleştirmek için hep programlar kullanılır.. Programı indirme zahmeti, sonra programı çözme zahmeti.. Full degilse cr*ck arama falan filan.. insanın ruhunu karartıyoo.. biyerlerde bu bilgi gözüme çarptı ve paylasmak istedim..gerçekten de çok kolay herkes yapabilir..

yapmanız gerekenler..

başlat > Çalıştır’ı tıklayıp cmd yazıp enter yapıp komut satırına girmeniz gerekli. Bundan sonra birleştireceğiniz dosyalarınızı kolaylık açısından c dizini altına kopyalayın...

Komut satırına iki defa cd.. enter yapın ve c dizinine düşün....

Yine kolaylık açısından birleştirilecek dosya adlarını 1 2 3 4 5......gibi öncelik sırasına koyun. Bunu sadece kolaylık açısından tavsiye ederim. Yoksa sonuç farketmeyecektir...
Senaryo şu olsun 3 parça mpeg film dosyamız var ve biz bu aynı filmin parçası dosyaları birleştirip tek parça haline getireceğiz...

MPEG dosya adlarını sırasıyla 1.mpeg, 2.mpeg, 3.mpeg yaptık...

komut satırına c:\> bölümü önüne şunu yazın...

copy/b 1.mpeg+2.mpeg+3.mpeg toplam.mpeg yazıp enter yapın kısa bir süre beklemenin ardından birleştirmenin yapıldığına dair bir mesaj alacaksınız. C DİZİNİNE GİDELİM ORADA 3 MPEG DOSYASI YANINA TOPLAM.MPEG adında yeni bir dosya oluşmuş. Dosyayı izlediğinizde filmin 3 parçası tek dosya olmuş göreceksiniz. Evet dosyaları program kullanmadan tek hale getirmiş olduk.

Bu yöntemle aynı sekilde bir sanatçının bütün mp3 lerini birlestirmek içinde kullanabilirsiniz..

mesela:

bir sanatçının bütün mp3 lerini c’ye toplayın ve hepsine 1, 2, 3 diye isimler verin.daha sonra komut satırına
copy/b 1.mp3+2.mp3+3.mp3+4.mp3 TEKDOSYA.MP3 yazıdıktan sonra enterlayın. ses kaybı olmadan birlestigini göreceksiniz..

Bu yolla şunuda deneyebilirsiniz.

İKİ TxT BELGESİ OLUŞTURUN İLKİNE 1.TXT İKİNCİSİNE 2.TXT YAPIN
ilkinin içine HERSEY, ikincisinin içine GÜZELDİR yazın c dizini altına koyun. Komut satırından copy/b 1.txt+2.txt forum.txt yazıp enter yapın c altına oluşacak forum txt yi açın içinde HERSEYGÜZELDİR yazdığını göreceksiniz...

Sonuç olarak bu yolla bir bütünün parçaları olup parçalanmış dosyaları veya farklı farklı olan ama uzantısı aynı olan dosyaları birleştirebilirsiniz...
Burada dikkat edilecek aralardaki boşluklar, uzantıların aynı olması ve dosya adlarının doğru yazılmasıdır...

Son dosya adını önemi yoktur ister toplam deyin ister x deyin ister kendi adınızı yazıp enter yapın...

Program yok zaman harcamak yok...

alıntıdır.

 

[hsayar]

bu konuda bir şeyler yapılabilirmi?

 

[hsayar]

bu konuda bir şeyler yapılabilirmi?

 

[hsayar]

Bu konuda yardım etme imkanınız varmı

 

[hsayar]

ben dos ortamında wav birleştirmeyi denedim dosya boyutu artmadı ama mp3ler birleşiyor...

aşağıdaki dos komutunun mp3 uyarlaması nedir acaba
copy/b 1.mp3+2.mp3+3.mp3+4.mp3 TEKDOSYA.MP3

 

[Zeki Gürsoy]

Bu işinizi görür mü?

Option Base 1

Sub Birles()
Dim a() As Byte, b() As Byte

Open "c:\ilk.mp3" For Binary As #1
Open "c:\sonraki.mp3" For Binary As #2
Open "c:\birlesmis.mp3" For Binary As #3

ReDim a(LOF(1)) As Byte
ReDim b(LOF(2)) As Byte

Get #1, , a
Get #2, , b

Put #3, , a
Put #3, , b


Close #1
Close #2
Close #3

Erase a
Erase b

MsgBox "Dosyalar birleşti.", vbInformation
End Sub

 

[hsayar]

hocam teşekkürler 2 dosya için kolay peki 10 veya daha fazla mp3 ü 1 mp3 yapmak için open, redim, get,put,close satırlarını çoğaltmak gerekiyor anladığım kadarı ile peki daha pratik bir yol önerebilirmisiniz

 

[Zeki Gürsoy]

hocam teşekkürler 2 dosya için kolay peki 10 veya daha fazla mp3 ü 1 mp3 yapmak için open, redim, get,put,close satırlarını çoğaltmak gerekiyor anladığım kadarı ile peki daha pratik bir yol önerebilirmisiniz

Böyle bir durumda RAM i düşünmek gerekir. Tüm kaynak mp3 leri açıp dizi değişkenlere atamayın. Sanal bellek düşük uyarısı almamak için.

Her kaynak dosya için ayrı olarak önerim,
dosyayı açıp değişkene atayın. Değişkeni hedefe yazdıktan sonra hemen silin ve açılan kaynak dosyayı da kapatın.

Döngü içersinde bu şekilde yapabilirsiniz.

***Video birleştirmede bu yapı geçerli değildir..

 

[hsayar]

onu anlşadım maa mantığı anlayamadım hocam şöyle yapmayı düşündüm ama komutları canlandıramadım dört parça için (mantık kurdum)

ilk olarak
1.parça a
2. parça b
3. parça z olsun

ikinci olarak
1. parça z (a+b)
2. parça c
3. parça y

üçüncü olarak
1. parça y (a+b+c)
2. parça d
3. parça x

olursa x = a+b+c+d olur peki bu sistem uzayp giderse bunu eniyis parametrik halegetiemk ama nasıl?

 

[Zeki Gürsoy]

Bunu deneyin.

Option Base 1

Sub Test()
Const srcdir As String = "c:\"
Const dstdir As String = "c:\sonuc.mp3"

arr = Array("1.mp3", "2.mp3", "3.mp3")

For i = 0 To UBound(arr)
    Call Birles(srcdir & arr(i), dstdir)
Next

End Sub

Sub Birles(Kaynak As String, Hedef As String)
Dim a() As Byte

Open Kaynak For Binary As #1
Open Hedef For Binary As #2

ReDim a(LOF(1)) As Byte

Get #1, , a
Put #2, , a

Close #1
Close #2

Erase a
End Sub