txt içeriği değiştirmek

[k0081]

Merhaba arkadaşlar;

bir txt uzantılı dosyanın içindeki bir kelimeyi command buton kullanarak nasıl değiştirebilirim ?

örnek :

c:\deneme\ornek.txt---> bu dosya içinde bir yerde veya yerlerde "*:\" gibi bir kısım geçiyor.. bunu "D:\" olarak replace yaptıracağız.. bunu nasıl yaptırabilirim ?

Not: * --> burda bir harfi temsil ediyor.. yani txt dosyasında * karakteri yok... Harf ne olursa olsun D:\ ile değişecek...

yardımcı arkadaşa şimdiden teşekkürler..

 

[PLİNT]

Merhaba
Aşağıdaki gibi olabilir;
Değiştirilecek harfleri (tırnak içine alarak) azaltıp çoğaltabilirsiniz

[SIZE="2"]Private Sub CommandButton1_Click()
Dim a As Long, b As String, f As Variant
b = CreateObject("scripting.filesystemobject").Opentextfile("C:\[COLOR="Red"]nm.txt[/COLOR]").readall
f = Array([COLOR="Red"]"a", "b", "c", "e", "F", "g", "i", "Z"[/COLOR])
For a = 0 To UBound(f)
b = Replace(Replace(b, UCase(f(a) & ":\"), "D:\"), LCase(f(a) & ":\"), "D:\")
 Next
Open "C:\[COLOR="Red"]nm.txt[/COLOR]" For Output As #1
 Print #1, b
Close #1
End Sub [/SIZE]

 

[k0081]

PLİNT;


Hocam çok teşekkür ediyorum, tamamdır.. Elinize yüreğinize sağlık. Tam istediğim gibi olmuş..

 

[PLİNT]

PLİNT;


Hocam çok teşekkür ediyorum, tamamdır.. Elinize yüreğinize sağlık. Tam istediğim gibi olmuş..

Merhaba
Rica ederim.
İşlerinizde kolaylıklar dilerim, selametle kalın.