Bir Txt Dosyasındaki Istenilen Yerleri Düzenleme?

[Bitmap]

Merhaba arkadaşlar Bir txt dosyasındaki istenilen bir yazıyı değiştirme ile ilgili bir sorunum var..

bir projeye başladım...

mesela txt dosyasında

[color="#8B0000"]deneme1 deneme2 deneme3 [/color]şeklinde yazılar var..

mesela [color="#8B0000"]deneme3[/color] ü [color="#8B0000"]inputta[/color] yazılan yazı ile nasıl değiştrebilirim...


Şöyle bir mantık geliştirdim ama kaydederken tamamını değştiriyor
[quote]
tkaydet = Dialog.FileBrowse(false, "Kaydet:", _DesktopFolder, "metin dosyası(*.txt|*.txt|", "", "", false, false)
if tkaydet ~= nil and sSoru ~= "CANCEL" then
gMetin = Input.GetText("Input1")
TextFile.WriteFromString(tkaydet[1],123456789 ..gMetin, false)
end

[/quote]

böyle bir mantıkla tamamı değişiyor..ama daha alternatif yollar varsa onlarıda öğrenmek isterim..saygılarımla Edited May 12, 2011 by byvistakazim

[KintaRo]

[CODE]sYol [COLOR="#FF0000"]=[/COLOR] Input[COLOR="#FF0000"].[/COLOR]GetText([COLOR="#800080"]"yol"[/COLOR])
sMetin1 [COLOR="#FF0000"]=[/COLOR] Input[COLOR="#FF0000"].[/COLOR]GetText([COLOR="#800080"]"Input1"[/COLOR])
sMetin2 [COLOR="#FF0000"]=[/COLOR] Input[COLOR="#FF0000"].[/COLOR]GetText([COLOR="#800080"]"Input2"[/COLOR])

[COLOR="#0000FF"]if[/COLOR] sYol [COLOR="#FF0000"]~=[/COLOR] [COLOR="#800080"]""[/COLOR] [COLOR="#0000FF"]and[/COLOR] sMetin1 [COLOR="#FF0000"]~=[/COLOR] [COLOR="#800080"]""[/COLOR] [COLOR="#0000FF"]and[/COLOR] sMetin2 [COLOR="#FF0000"]~=[/COLOR] [COLOR="#800080"]""[/COLOR] [COLOR="#0000FF"]then[/COLOR]
sDosya [COLOR="#FF0000"]=[/COLOR] TextFile[COLOR="#FF0000"].[/COLOR]ReadToString(sYol)

nAra [COLOR="#FF0000"]=[/COLOR] String[COLOR="#FF0000"].[/COLOR]Find(sDosya[COLOR="#FF0000"],[/COLOR] sMetin1[COLOR="#FF0000"],[/COLOR] [COLOR="#000000"]1[/COLOR][COLOR="#FF0000"],[/COLOR] [COLOR="#0000FF"]true[/COLOR])
[COLOR="#0000FF"]if[/COLOR] nAra [COLOR="#FF0000"]~=[/COLOR] -[COLOR="#000000"]1[/COLOR] [COLOR="#0000FF"]then[/COLOR]
sDegisen [COLOR="#FF0000"]=[/COLOR] String[COLOR="#FF0000"].[/COLOR]Replace(sDosya[COLOR="#FF0000"],[/COLOR] sMetin1[COLOR="#FF0000"],[/COLOR] sMetin2[COLOR="#FF0000"],[/COLOR] [COLOR="#0000FF"]true[/COLOR])
TextFile[COLOR="#FF0000"].[/COLOR]WriteFromString(sYol[COLOR="#FF0000"],[/COLOR] sDegisen[COLOR="#FF0000"],[/COLOR] [COLOR="#0000FF"]false[/COLOR])
Dialog[COLOR="#FF0000"].[/COLOR]TimedMessage([COLOR="#800080"]"OK"[/COLOR][COLOR="#FF0000"],[/COLOR] [COLOR="#800080"]"Değiştirme başarılı!"[/COLOR][COLOR="#FF0000"],[/COLOR] [COLOR="#000000"]2000[/COLOR][COLOR="#FF0000"],[/COLOR] MB_ICONINFORMATION)
[COLOR="#0000FF"]else[/COLOR]
Dialog[COLOR="#FF0000"].[/COLOR]Message([COLOR="#800080"]"Hata"[/COLOR][COLOR="#FF0000"],[/COLOR] [COLOR="#800080"]"Aradığınız kelime mevcut değil"[/COLOR][COLOR="#FF0000"],[/COLOR] MB_OK[COLOR="#FF0000"],[/COLOR] MB_ICONEXCLAMATION[COLOR="#FF0000"],[/COLOR] MB_DEFBUTTON1)
[COLOR="#0000FF"]end[/COLOR]
[COLOR="#0000FF"]else[/COLOR]
Dialog[COLOR="#FF0000"].[/COLOR]Message([COLOR="#800080"]"Hata"[/COLOR][COLOR="#FF0000"],[/COLOR] [COLOR="#800080"]"Tüm alanları doldurun"[/COLOR][COLOR="#FF0000"],[/COLOR] MB_OK[COLOR="#FF0000"],[/COLOR] MB_ICONEXCLAMATION[COLOR="#FF0000"],[/COLOR] MB_DEFBUTTON1)
[COLOR="#0000FF"]end[/COLOR][/CODE]



[code]http://www.mediafire.com/?9thq3t7gswpt9tv[/code]