txt dosyasındaki veri değişkenlerini değiştirme

Katılım
2 Eylül 2004
Mesajlar
50
Merhaba,

c:\main.txt isimli bir notepad dosyam var ve bu dosyanın içerisinde key1, key2, key3. key4.... şeklinde ifadeler bulunmakta bu key değerleri ise herhangi bir excel tabloda tanımlı mesela A1 hücresinde Key1, B1 hücresinde ise Key1 in txt dosyasında hangi metin ile değiştirilmesi gerektiği bulunmakta.A2 hücresinde ise Key2,B2 hücresinde ise key2 nin txt dosyasında hangi metin ile değiştirilmesi gerektiği yer almaktadır.Bu şekilde dosya key 10'a kadar devam etmektedir.Böyle bir makroyu yazmada yardımcı olabilirseniz sevinirim.Şimdiden yardımlarınız için teşekkürler.

Ahmet
 

veyselemre

Özel Üye
Katılım
9 Mart 2005
Mesajlar
3,646
Excel Vers. ve Dili
Pro Plus 2021
örnek txt dosyası ve verilerin yerleşimini gösteren excel dosyası eklerseniz yardım daha kolay olur
 
Katılım
2 Eylül 2004
Mesajlar
50
ornek.xls dosyasında txt dosyasındaki "key" lerin değişeceği değerler vardır. Bu değerler c:\main.txt dosyası içerisindeki ilgili yerlerle değiştirilip key1 e karşılık gelen değer adıyla kaydedilecek bu işlen key ler için tanımlı her değer için yapılacak.yardımcı olabilirseniz sevinirim.
 

veyselemre

Özel Üye
Katılım
9 Mart 2005
Mesajlar
3,646
Excel Vers. ve Dili
Pro Plus 2021
[vb:1:c100f690bc]Sub txt_olustur()
Close all

For t = 2 To [a1].End(xlToRight).Column
dosyaad = "c:\" & Cells(2, t) & ".txt"

Open "c:\main.txt" For Input As #1
Open dosyaad For Output As #2

While Not EOF(1)
Line Input #1, veri
For x = 2 To [a65536].End(3).Row
veri = Replace(veri, Cells(x, 1), Cells(x, t))
Next x

Print #2, veri
Wend

Close #1
Close #2
Next t

End Sub[/vb:1:c100f690bc]
 
Katılım
20 Aralık 2005
Mesajlar
83
Ya vallahi super çok güzel. Bu konuyu tekrar gündeme gelen bir soru sayesinde buranın linkinin verilmesi sayesinde keşfettim bu özellik çok güzel. Başarılarınızın devamını dilerim. Site o kadar çok büyük ki, içerik o kadar fazla ki geze geze gerekli şeyleri indire indiri bitiremedim. Allah emeklerinizi boşa çıkartmasın.
 
Katılım
2 Eylül 2004
Mesajlar
50
veysel emre önceki cevapların için gerçekten teşekkürler.Yukarıdaki projeyi aşağıdaki gibi geliştirmemiz mümkün mü acaba.Verilen bir klasörde tüm clg uzantılı dosyaları not defterinde açıp verilen texti değiştirip dosyayı yine clg olarak kaydetse.(clg dosyası notpad'de açılabilen özel bir dosyadır.
yardımlarınız için şimdiden teşekkürler
 
Üst