lmuzun Posted September 13, 2011 Share Posted September 13, 2011 Arkadaşlar şöyle bir program yapmak istiyorum. Örneğin; Program da input a xxx.com/emma-watson linkini yazınca o siteye girecek ve emma watson 'ın sitede yazılı olduğu dizilerin isimlerini filmlerin isimlerini masaüstüne metin belgesi halinde kayıt edecek. http://www.sinemalar.com/filmleri/27228/Emma-Watson/ Kısacası bu linki inputa yazdığım zaman sitedeki oynadığı filmleri seslendirdiği filmler yazan yerleri metin belgesine kayıt edecek. Yardımlarınızı ve görüşlerinizi bekliyorum. Quote Link to comment Share on other sites More sharing options...
Mehmet Posted September 13, 2011 Share Posted September 13, 2011 linki inputa yazdığın zaman site hiç açılmayacakmı.? Quote Link to comment Share on other sites More sharing options...
lmuzun Posted September 13, 2011 Author Share Posted September 13, 2011 Site acılmıyacakmı derken ams de acılabilir.Kendi kopyalayabilir.Ama benim kendi firefox yani web tarayıcımda acılmayacak. Quote Link to comment Share on other sites More sharing options...
xarax Posted September 13, 2011 Share Posted September 13, 2011 inputa yazdığın sayfayı AMS de geçici klasöre indirt.indirttiğin dosyayı TextFile.ReadToString.. komutu ile okut ve bir değişkene ata.Mesela read = TextFile.ReadToString(dosya konumu). Sonra String.Find komutu ile "Oyuncu Olduğu Filmler" satırının konumunu bul değişkene ata f1= mesela, ardından "Seslendirdiği Filmler" satırının konumunu arat ve ata (her filme "title=" olan yerde isim veriliyor) f1 = String.Find(read, "title=", f1, true) --Oyuncu Olduğu Filmler satırından sonraki ilk title= satırındaki film adının konumuna yaklaştın.Tekrar f1 'e atadım çünkü diğer filmi aramada işine yarayacak. film ismi "> karakterlerine ulaştığında bitiyor.Bu sefer aynı kodu "> karakterleri için yap. şimdi film isminin hangi satırda olduğunu başındaki title= in karakterleri ile beraber buldun.sonundaki karakterin konumundan başındaki karakterin konumunu çıkar ve title= deki karakter sayısını ekle. fark=son karakter konumu-ilk karakter konumu +6 (title= deki karakter sayısı) film_adi = String.Mid(read, title= 'in konumu +6, fark) -- 6, "title=" deki karakter sayısından geliyor.fark kadar karakter film_adi değişkenine atanıyor. İlk film adını buldun. Diğer filmler için aramayı artık f1 konumundan sonraki title= için tekrar String.Find komutu ile aratırsın. Biraz karışık mı oldu bilmiyorum ama işin mantığını anladıysan deneme yanılma yoluyla bulabilirsin. bulduğu filmi dosyaya yazdırırsın artık. Quote Link to comment Share on other sites More sharing options...
lmuzun Posted September 13, 2011 Author Share Posted September 13, 2011 (edited) Evet karışık olmus Ama şimdi deniyeceğim.Apz sini yapabilirmisin ? Hem diğer arkadaşlar içinde yararlı olur.Belki yapamam. Ayrıca input'a yazdığın linki gecici olarak indirt derken ? K.bakma biraz yeni sayılırım da Edited September 13, 2011 by lmuzun Quote Link to comment Share on other sites More sharing options...
xarax Posted September 13, 2011 Share Posted September 13, 2011 (edited) bu kodları dene input1 ve input2 yi oluştur url'yi input1'e girecen kodlarıda butona ekle.butona tıklayınca input2 de film ismi çıkar. devamını getir artık. [code]url = Input.GetText("Input1"); -- URL'yi Al. HTTP.Download(url, _TempFolder.."\\film.html", MODE_BINARY, 20, 80, nil, nil, nil); -- URL deki sayfayı Temp'e indir. read = TextFile.ReadToString(_TempFolder.."\\film.html");-- İndirdiği dosyayı oku. local f1 = String.Find(read, "u Filmler", 1, true) -- "Oyuncu Olduğu Filmler" konumunu bul.İlk karakterin konumunu f1'e atar. fson = String.Find(read, "i Filmler", 1, true) local f1 = String.Find(read, "title=", f1, true) local f1 = String.Find(read, "title=", f1, true)-- f1'in konumundan sonraki ilk "title=" konumunu bul. local f2 = String.Find(read, ">", f1, true) -- f1'in konumundan sonraki ilk ">" konumunu bul. fark=f2-f1-8-- 8 title= , ilk " ve son " karakterleri toplam 8 tane local film_adi = String.Mid(read, f1+7, fark);-- f1 yani ilk filmin adınınn title= ile olan başının konumuna 7(title= karakter sayısı+ " karakteri) ekleyip Film adının ilk karakterinin konumu buluyoruz Input.SetText("Input2", Input.GetText("Input2").."\r\n"..film_adi);[/code] Edited September 13, 2011 by xarax Quote Link to comment Share on other sites More sharing options...
lmuzun Posted September 13, 2011 Author Share Posted September 13, 2011 Teşekkürler xarax uğraştırdım seni gece gece k.bakma Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.