Çözüldü Makroda Dil Altyazı Metnin Tümünü Elde Etme

Fthsmg

Normal Üye
Hocam derdimi yüklemiş olduğum dosyada word dosyası vardır. Orada maddeler halinde ve örnekle anlattım. Yardımınızı bekliyorum.
 

Ekli dosyalar

Merhabalar tekrar Sayın @Fthsmg .

Forumda konu açarken belli bir ismin muhatap alınması doğru değil açıkçası (konu başlığını düzenledim).
Açılan konularla uygun olduğum sürece ilgileniyorum zaten.

Aşağıda bağlantısı bulunan konu sayfasında verdiğim son kod cevabını denediniz mi?
Denemişseniz; seçilen *.srt uzantılı dosyadaki sadece Arapça olan satırları A sütununda alt alta yazıyor idi.
Belirttiğim kod bu işlemi yaparken; *.srt dosyadaki ZAMAN satırının altında art arda yer alan (genellike 2 satır)
satırları tek hücrede birleştirerek yazıyordu.

Şimdi istediğiniz şey;
-- alt alta listelenen bu Arapça metinlerin tümünü tek bir excel hücresinde birleştirilmesi midir?
-- yoksa bu Arapça metnin tümünü yeni bir TXT belge olarak kaydedilmesi midir?

Şöyle bir şey ne işe yarayacak anlamadım doğrusu.

1605915456545.webp


Malum *.srt uzantılı dosyayı TXT gibi NOT DEFTERİnde açabilir, bu TXT belgenin uzantısını tekrar *.srt olarak değiştirebilirsiniz.

.
 
Moderatörün son düzenlenenleri:
Merhabalar tekrar Sayın @Fthsmg .

Forumda konu açarken belli bir ismin muhatap alınması doğru değil açıkçası (konu başlığını düzenledim).
Açılan konularla uygun olduğum sürece ilgileniyorum zaten.

Aşağıda bağlantısı bulunan konu sayfasında verdiğim son kod cevabını denediniz mi?
Denemişseniz; seçilen *.srt uzantılı dosyadaki sadece Arapça olan satırları A sütununda alt alta yazıyor idi.
Belirttiğim kod bu işlemi yaparken; *.srt dosyadaki ZAMAN satırının altında art arda yer alan (genellike 2 satır)
satırları tek hücrede birleştirerek yazıyordu.

Şimdi istediğiniz şey;
-- alt alta listelenen bu Arapça metinlerin tümünü tek bir excel hücresinde birleştirilmesi midir?
-- yoksa bu Arapça metnin tümünü yeni bir TXT belge olarak kaydedilmesi midir?

Şöyle bir şey ne işe yarayacak anlamadım doğrusu.

1605915456545.webp

Malum *.srt uzantılı dosyayı TXT gibi NOT DEFTERİnde açabilir, bu TXT belgenin uzantısını tekrar *.srt olarak değiştirebilirsiniz.

.
Vermiş olduğunuz en son kodu denedim gayet başarılı. Yukarıdaki metin örneği benim istediğim sonuç buydu. Hocam öğrencilere konu anlatırken bazen bu tür olayları kullanıyoruz veya ufak değişiklikler yapıyoruz etkili olduğu için bu yöntemi kullanıyoruz. İmkanlar kısıtlı olunca bu yola başvurduk. Şimdi ben istediğim şey yukarıda sormuş olduğunuz birinci maddedir. Yani alt alta listelenen bu Arapça metinlerin tümünü tek bir excel hücresinde birleştirilmesidir.
 
Moderatörün son düzenlenenleri:
Vermiş olduğunuz en son kodu denedim gayet başarılı. Yukarıdaki metin örneği benim istediğim sonuç buydu. Hocam öğrencilere konu anlatırken bazen bu tür olayları kullanıyoruz veya ufak değişiklikler yapıyoruz etkili olduğu için bu yöntemi kullanıyoruz. İmkanlar kısıtlı olunca bu yola başvurduk. Şimdi ben istediğim şey yukarıda sormuş olduğunuz birinci maddedir. Yani alt alta listelenen bu Arapça metinlerin tümünü tek bir excel hücresinde birleştirilmesidir. Öğrenciye bilgiyi öğretebilmek için her yolu mübah görüyoruz. Ayrıca ilginiz için teşekkür ederim. Kullanmış olduğunuz yöntemi paylaşırsanız sevinirim.
 
Tekrar merhaba Sayın @Fthsmg .

Belgeniz ekte olup işlemler BRN adını verdiğim sayfada gerçekleşir.
Belgede kullanılan kodlar aşağıda gösterilmiştir.
Safadaki düğmeye tıkladığınızda karşınıza gelecek GÖZAT ekranından *.srt uzantılı dosyanın bulunduğu dizini
bularak *.srt dosyayı seçin ve 20-25 saniye sonra sonuç B1 hücresinde yer alır, temizle düğmesi ise B1 içeriğini siler.

CPP:
You must log in to view content
(40 satır)

.
 

Ekli dosyalar

Tekrar merhaba Sayın @Fthsmg .

Belgeniz ekte olup işlemler BRN adını verdiğim sayfada gerçekleşir.
Belgede kullanılan kodlar aşağıda gösterilmiştir.
Safadaki düğmeye tıkladığınızda karşınıza gelecek GÖZAT ekranından *.srt uzantılı dosyanın bulunduğu dizini
bularak *.srt dosyayı seçin ve 20-25 saniye sonra sonuç B1 hücresinde yer alır, temizle düğmesi ise B1 içeriğini siler.

CPP:
You must log in to view content
(40 satır)

.
Hocam teşekkür ederim. Elinize yüreğinize sağlık. istediğim sonuç buydu. Size minnettarım beklediğimden daha iyisi olmuş, Tekrar tekrar çok teşekkür ederim.
 
Eyvallah, önemli olan ihtiyacın görülmesi.

Forumumuza katkı vermek isterseniz;
-- Forumda mümkün olduğunca sık ve uzun süreli çevrimiçi olabilirsiniz.
-- Etrafınızdaki Excel kullanıcılarını forumumuzdan haberdar edip, üye olmalarını salık verebilirsiniz.
-- Tüm sosyal medya kanalları veya şahsi internet sayfalarınızda, forumumuzdan bahisle link verebilirsiniz.
-- VİP ÜYELİK alabilirsiniz.

.

.
 
Sayın @Fthsmg .

Bir alternatif daha vereyim.

Burada yapılan işlem; öncekinin aynı şekilde başlar, devam eder ve esas olarak onun gibi biter ancak;
oluşan Arapça metin kullanılan excel belgesinde tutulmak yerine;
*.srt uzantılı dosyayla excel belgesinin bulunduğu aynı dizine, TXT (Unicode) formatında yeni bir belge olarak kaydedilir ve
excel belgesi B1 hücre içeriği silinir.
Yani kullanacığınız Arapça metin, excel belgesinde değil, TXT belgesinde tutulmuş olur.

CPP:
You must log in to view content
(47 satır)

.
 
Sayın @Fthsmg .

Bir alternatif daha vereyim.

Burada yapılan işlem; öncekinin aynı şekilde başlar, devam eder ve esas olarak onun gibi biter ancak;
oluşan Arapça metin kullanılan excel belgesinde tutulmak yerine;
*.srt uzantılı dosyayla excel belgesinin bulunduğu aynı dizine, TXT (Unicode) formatında yeni bir belge olarak kaydedilir ve
excel belgesi B1 hücre içeriği silinir.
Yani kullanacığınız Arapça metin, excel belgesinde değil, TXT belgesinde tutulmuş olur.

CPP:
You must log in to view content
(47 satır)

.
Elinize sağlık tek kelimeyle mükemmel.
 
Aslında işlemin (gerek ik kod önerisi ve gerekse de sonuncu) hızından memnun değilim.
Aklıma bir fikir gelirse, excel belgesindeki hücreleri kullanmadan doğrudan *.srt isimli belge üzerinde işlem yaptırma
şeklinde çalışacak yeni öneride bulunurum.

.
 
Aslında işlemin (gerek ik kod önerisi ve gerekse de sonuncu) hızından memnun değilim.
Aklıma bir fikir gelirse, excel belgesindeki hücreleri kullanmadan doğrudan *.srt isimli belge üzerinde işlem yaptırma
şeklinde çalışacak yeni öneride bulunurum.

.
Öncelikle arkadaşlarımla birlikte size tekrardan teşekkür etmek istiyorum. Hocam bugüne kadar pek çok kod kullandık. Lakin sizin önerdiğiniz iki kod bizi hayretler içerisinde bıraktı. Biz bu kadarını beklemiyorduk. Siz işlemin hızından memnun değilim demişsiniz. Biz ise o kadar kusur Kadı kızında da olur diyoruz. Aslında açık yüreklilikle söylemek gerekirse biz bu kadar profesyonel işlemin karşısında hayretler içerisindeyken sizin farklı bir önerinizin olma ihtimali bizi daha da mutlu etti. Eğer gerçek olursa bizim açımızdan sınıf içi öğretim yöntem ve tekniklerinde yeni bir yaklaşım sağlayacaktır. Tekrardan teşekkür ederiz.
 
Anladığım kadarıyla eğitim camiasına mensupsunuz.
Ben de eski (mütekait) kamu elemanıyım.

Sizler, 9 numaralı cevabımda belirttiğim yöntemlerle forumumuza DESTEK olun (y),
bizler de sorulacak sorulara odaklanıp, daha iyisi nasıl olur diye üstünde düşünelim 🤔.


.
Evet hocam öğretmeniz. Destek kısmını siz dün mesaj atmadan çevreme önerdim ve önermeye devam edeceğim. Bu profesyonel çalışmalardan bütün meslektaşlarımın faydalanmasını sağlayacağım.
Aslında bu açıklamayı daha önceden yapmam gerektiğini düşünüyordum daha sonra yöneticilerden çekindim. Çünkü siz herkes için çalışma yapıyorsunuz. Ben ise kendimi düşünmüştüm o yüzden çekindim. İşin asıl boyutunu size izah edeyim. Biz belgesel veya görsel tarzda eğitim materyallerine başvuruyoruz. Bu bazen Türkçe bazen de farklı dillerde olabiliyor. Burada bulunan alt yazıları çıkartıp hocalarımıza danışıyoruz uygun mu diye. Hocalarımızda bizden belge istiyor. Biz de onları bu kodlar sayesinde yazılı hale getiriyoruz. Malum pandemi sürecinde bu görsel materyalleri kullanmak sıkıntılı. Herkesin sınırsız interneti ve son model bilgisayarı yok. Olmayana biz bu belgeleri hazırlayıp veriyoruz. Size de yardım noktasında normal bir filim srt dosyası vermek zorunda kaldım. Çünkü elimde paylaşacak o an için materyalim yoktu. Şimdi neden srt dosyasında ısrar ettiğimi anlamışsınızdır.
 
Sayın @Fthsmg .

Artık sanıyorum bbu çalışma FİNAL olur diye düşünüyorum.

Ekteki belgeyi deneyin. Benim emektar bilgisayarımda işlem süresi 5-6 saniye.
Belge içerisinde küçük bir AYAR uyarısı var, onu kontrol etmeyi unutmayın.

İşlem için önce, ARABIC karakterlerin ayıklanmasını sağlayan KTF (Kullanıcı Tanımlı Fonksiyon) kulanılıyor.
Ardından, oluşturduğum kodlamayla, metin WORD ortamına alınarak son düzenleme de orada yapılıyor ve sonuçta
bu excel belgesiyle aynı dizine istenilen niteliklere sahip TXT uzantılı (UTF-8) belge oluşturuluyor.

Oluşturduğum kodlar aşağıda gösterilmiştir. Excel belgesi ve işlem sonucunda oluşan örnek TXT belge ekte.

İşlem sonucu yazarsınız.

CPP:
You must log in to view content
(57 satır)

.
 

Ekli dosyalar

Sayın @Fthsmg .

Artık sanıyorum bbu çalışma FİNAL olur diye düşünüyorum.

Ekteki belgeyi deneyin. Benim emektar bilgisayarımda işlem süresi 5-6 saniye.
Belge içerisinde küçük bir AYAR uyarısı var, onu kontrol etmeyi unutmayın.

İşlem için önce, ARABIC karakterlerin ayıklanmasını sağlayan KTF (Kullanıcı Tanımlı Fonksiyon) kulanılıyor.
Ardından, oluşturduğum kodlamayla, metin WORD ortamına alınarak son düzenleme de orada yapılıyor ve sonuçta
bu excel belgesiyle aynı dizine istenilen niteliklere sahip TXT uzantılı (UTF-8) belge oluşturuluyor.

Oluşturduğum kodlar aşağıda gösterilmiştir. Excel belgesi ve işlem sonucunda oluşan örnek TXT belge ekte.

İşlem sonucu yazarsınız.

CPP:
You must log in to view content
(57 satır)

.
Hocam çok teşekkür ederim. Finali muhteşem oldu. Elinize sağlık. Çok memnun oldum.
 
Sayın @Fthsmg .
Son bir dokunuş daha yapayım dedim.

Aşağıdaki kod, mevcut .srt belge için 2 saniyeden kısa sürede sonuç veriyor.

Ek bilgi: Excel hücresine yazılacak metin için karakter sayısı sınırı (32 bin küsur) mevcut olduğundan,
işlem sonucunda oluşacak metnin uzunluğuna göre bu sayının katları olacak şekilde parçalara ayırmak gerekecektir.


Arapça metni ayıklamak için aşağıdaki kodda iki seçenek mevcut:
-- Seçenek1: kodda kırmızı renklendirdiğim satırları siler veya bu satırların sol başına TEK TIRNAK ekleyerek etkisiz hale getirirseniz.
mevcut belgede tarih saat şeklinde isim vererek ve kodda yeşil renklendirdiğim karakter sayısına göre parçalara ayırarak (zorunlu)
A sütununda hücreye/hücrelere istenilen Arapça metni yazar.
-- Seçenek2: kırmızı renklendirdiğim satırlar olduğu gibi kalırsa, excel belgesinde bir iz kalmaz, sadece Arapça metin,
mevcut excel belgesinin kendi dizininde TXT olarak kaydedilir.

Deneyip sonucu iletirsiniz.

VBA:
You must log in to view content
(41 satır)

.
 
Konuyu başlatan
Normal Üye
Katılım
Konum
Antalya
Konu Bilgi
Durum
Çözüldü 
Forum
Excel Makro Soruları
Başlangıç tarihi
Son yanıt tarihi
Cevaplar
21
Üst