txt lerde veri değiştirme

[aguney]

Merhaba,
Şöyle bir uygulama yapmam gerekiyor. Elimde yaklaşık 20 adet txt dosyası mevcut. Bu dosyaların içinde ingilizce yazılımış kelimeler var. ben her bir uygulamaya girip tek tek elimle bunların türkçelerini yazıyorum. Ancak txt dosyalarında birçok kez aynı kelimeler geçiyor. Yani aynı kelime 3-5 tane txt dosyasında geçebiliyor. Ben bir excelde kelimenin ingilizcesini ve karşısında da türkçesini yazsam ve makro ile txt dosyasında geçen tam kelimeleri otomatik olarak değiştirmem mümkün müdür? Tabii örnekte sadece 10-15 kelime var ancak sayı 5000 adet civarında.

 

[hamitcan]

Benzer bir konu...
http://www.excel.web.tr/f48/metin-txt-dosyasynda-bilgi-arama-t76534.html

 

[Zeki Gürsoy]

Sub test()
    Dim kaynak As String, hedef As String, tum_metin, sat As Long

    kaynak = ThisWorkbook.Path & "\a1.txt"
    hedef = ThisWorkbook.Path & "\a1_demo.txt"
    
    tum_metin = CreateObject("scripting.filesystemobject").Opentextfile(kaynak).readall
    
    For sat = 1 To 21
        tum_metin = Replace(tum_metin, Cells(sat, "a"), _
            Cells(sat, "b")) [COLOR=DarkGreen]'BÜYÜK-küçük duyarlı ve hızlı.[/COLOR]
            
        [COLOR=DarkGreen]'tum_metin = Replace(tum_metin, Cells(sat, "a"), _
            Cells(sat, "b"), compare:=vbTextCompare) 'BÜYÜK-küçük duyarsız ve biraz yavaş.[/COLOR]
    Next
    
    Open hedef For Output As #1
        Print #1, tum_metin
    Close #1

End Sub

 

[aguney]

Bu işlem güzel olmuş. elinize sağlık

 

[steppe]

Sub test()
    Dim kaynak As String, hedef As String, tum_metin, sat As Long

    kaynak = ThisWorkbook.Path & "\a1.txt"
    hedef = ThisWorkbook.Path & "\a1_demo.txt"
    
    tum_metin = CreateObject("scripting.filesystemobject").Opentextfile(kaynak).readall
    
    For sat = 1 To 21
        tum_metin = Replace(tum_metin, Cells(sat, "a"), _
            Cells(sat, "b")) [COLOR=DarkGreen]'BÜYÜK-küçük duyarlı ve hızlı.[/COLOR]
            
        [COLOR=DarkGreen]'tum_metin = Replace(tum_metin, Cells(sat, "a"), _
            Cells(sat, "b"), compare:=vbTextCompare) 'BÜYÜK-küçük duyarsız ve biraz yavaş.[/COLOR]
    Next
    
    Open hedef For Output As #1
        Print #1, tum_metin
    Close #1

End Sub

Kaynak ve hedef dosya birden fazla olursa dosya yolu nasıl yazılabilir.

 

[Emir Hüseyin Çoban]

Kaynak ve hedef dosya birden fazla olursa dosya yolu nasıl yazılabilir.

Döngü içine almak gerekir.
Dosya isimlerini görmek için örneklendiriniz.

.

 

[steppe]

Hüseyin Hocam,
\a1.txt , \b1.txt , \k1.txt , \ali.txt gibi kaynak dosyalar olsun,
\a1_demo.txt , \b1_demo.txt , \k1_demo.txt , \ali_demo.txt gibi hedef dosyalar olursa yolu nasıl belirtebiliriz. Aralara And koyarak değişik şekilde denedim olmadı.

 

[Emir Hüseyin Çoban]

. . .

Dosyanız ektedir.

Kaynak dosya yollarını A sütununa girin.

Kaynak dosyanız çok fazla ise onlarında otomatik listelenmesi için kod yazabiliriz.

. . .

 

[steppe]

Hüseyin Hocam,
Yardımlarınız için çok teşekkür ederim.
Hedef dosya ile uğraşmadan direk kaynak dosya üzerinde değişiklik yapmak için aşağıdaki değişiklikleri yaptım normalde kod gayet güzel çalıştı.Sizce kodda başka değişiklik yapmak gerekir miydi?

Sub test()
Dim kaynak As String, hedef As String, tum_metin, sat As Long


Dim Y As Worksheet: Set Y = Sheets("YOL")
Dim V As Worksheet: Set V = Sheets("VERİ")

For i = 2 To Y.Cells(Rows.Count, "A").End(3).Row

kaynak = Y.Cells(i, "A")
uzunluk = Len(kaynak) - 4
hedef = Left(kaynak, uzunluk) & "_demo.txt" 'bu satırı kaldırdım.

tum_metin = CreateObject("scripting.filesystemobject").Opentextfile(kaynak).readall

For sat = 1 To V.Cells(Rows.Count, "A").End(3).Row
tum_metin = Replace(tum_metin, V.Cells(sat, "a"), _
V.Cells(sat, "b")) 'BÜYÜK-küçük duyarlı ve hızlı.
Next

Open hedef For Output As #1 'hedef kelimesini kaynak yaptım.
Print #1, tum_metin
Close #1

Next i

End Sub

 

[Emir Hüseyin Çoban]

. . .

Bu tarz otomatik değiştirme işlemlerinde asıl verinin yedeğinin olması iyidir.

. . .