Txt Veriyi Bulma Silme

[pilgetir]

[b]Merhaba arkadaşalr biz çalışmam için bu programı hazırlamam gerekiyor.Ondan dolayı yardımlarınızı bekliyorum.Aşağıdaki reismdede gördüğünüz gibi şidmi benim bir txt dosyam var diyelim içeriğide;[/b]

[quote][br]html[nr]

<tnctr.com>

[br]html[nr][/quote] [b]böyle diyelim ben txt dosyamı alacağım ınputa veya başka nesneye her neyse aktaracağım .Sonra yukarıda "Bu şekilden öncekileri sil:"yerine "<" simgesini "Bu şekilden sonrakileri sil:" yerinede ">" simgesini yazdıkdan sonra "TARA"ya basacağım txt dosyamı tarayacak "<" bu şekil dahil önceki tüm yazıalrı silecek, ">"bu şekil dahil bundan sonraki tüm yazıları silecek yalnızca "tnctr.com" yazısı kalacak sonrada kaydet'e basınca txt dosyama kaydedecek.

Apz dosyası aşağıdadır.Yardımlarınızı bekliyorum.Teşekkürler..[/b]
http://hotfile.com/dl/119894950/b763bf4/txttarama.apz.html
[img]http://i54.tinypic.com/316u2o2.png[/img]

[KintaRo]

TXT Ekle buttonu:

[code]tDosya = Dialog.FileBrowse(true, "txt dosyası seçin", _DesktopFolder, "TXT Dosyaları (*.txt)|*.txt|", "", "", false, true)

if tDosya[1] ~= "CANCEL" then
sDosya = TextFile.ReadToString(tDosya[1])
Input.SetText("Input1", sDosya)
end[/code]

Tara buttonu:

[code]sAra1 = Input.GetText("Input2")
sAra2 = Input.GetText("Input3")

if sAra1 ~= "" and sAra2 ~= "" then
sMetin = Input.GetText("Input1")
nBul_1 = String.Find(sMetin, sAra1, 1, false)
if nBul_1 ~= -1 then
nBul_2 = String.Find(sMetin, sAra2, nBul_1, false)
if nBul_2 ~= -1 then
sKopyala = String.Mid(sMetin, nBul_1+1, (nBul_2-nBul_1)-1)
Input.SetText("Input1", sKopyala)
else
Dialog.Message("Hata", "2 veri bulunamadı")
end
else
Dialog.Message("Hata", "1 veri bulunamadı")
end
else
Dialog.Message("Hata", "tüm alanları doldurun")

end[/code]

[pilgetir]

Hocam ufak bir sorunumuz var hem benim girdiğim işaretler dahil dedim hocam 1. ınputtakini dahil etmiyor vede ınputlardan herhangi birini boş girme şansımızda olsun hocam sadece bi tanesini örn üstteki inputu ayrıca hocam benim girdiğim işaretlerden her bir satırdada var ona göre yani şu şekilde ama ben programı taratınca 4 tane alt alta tnctr.com kalsın istiyorum hocam girdiğim işaretler < ve >
[quote][br]html[nr]<tnctr.com>[br]html[nr]
[br]html[nr]<tnctr.com>[br]html[nr]
[br]html[nr]<tnctr.com>[br]html[nr]
[br]html[nr]<tnctr.com>[br]html[nr][/quote]

Edited June 5, 2011 by pilgetir

[pilgetir]

Abi unututn sanırım bir baksan ?

[KintaRo]

unutmadım ama boş boş oturmuyoruz heralde kendimize göre işlerimiz var müsait zamanlarda zaten cevap veriyorum

[pilgetir]

Sorunu başka yolla çözdüm teşekkür kintaro abi.