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

[tahh_74]

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]

örnek txt dosyası ve verilerin yerleşimini gösteren excel dosyası eklerseniz yardım daha kolay olur

 

[tahh_74]

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.

 

[tahh_74]

txt dosyasını yükleyememişim onuda buraya yükledim

 

[tahh_74]

tekrar özür

 

[tahh_74]

txt

 

[veyselemre]

[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]

 

[soneryen]

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.

 

[tahh_74]

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

 

[tahh_74]

yardımcı olabilecek arkadaşlar bir el atabilirlerse sevinirim

 

[tahh_74]

Lütfen yardım