delphi'de amatrüm demişsin de, gene de nereyim regex kullanmayı denedin mi? Hocam teşekkür ederim ancak bu dahada karmaşık geldi bana. zetlemek gerekirse : http://saraylimetal.com/zamantuneli/ linkindeki verileri çekmem lazım, bi proje için alt yapı hazırlıyorum ancak kısıtlı bilgiye sahibim yardımcı olmaya çalıştığınız için tekrar teşekkür ederim. Ve Holyone şehimizin gndereceği rneği merakla beklemekteyim. Ben yapabilirim diyenlerde olursa bana sadece <entry> </entry> arası lazım onları çeke bilecek kod rneğini gsterirselerde sevinirim istediğim sadece rnek. Mevzu derin | Papikolas Planet

http://stackoverflow.com/questions/9282370/xml-parsing-txmldocument https://code.google.com/p/omnixml/downloads/list şunlara bakarmısın bi hocam hocam teşekkür ederim bunlar geçti elimden ama ingilizcem yok okuyup anlamam lazım açıklamaları amatrüm ben delphide Mevzu derin | Papikolas Planet

Elimde şyle bir XML dosyası var delphi ile buradan veri çekmem lazım sadece Feed blümlerini alabiliyorum sabahtran beri çıldırıcağım <entry> lerdeki nasıl çekerim bilen birileri bi yardım etsin :\ https://imagizer.imageshack. us/v2/1145x624q90/835/2dne. png Mevzu derin | Papikolas Planet

http://stackoverflow.com/questions/9282370/xml-parsing-txmldocument https://code.google.com/p/omnixml/downloads/list şunlara bakarmısın bi hocam herkes programcı olmak zorunda değildir, lütfen bir zorunluluk gibi programlama dilleri ğrenmeye çalışmayın. yabancı dil filan ğrenin amq.// s. kimin etini yerim, kasaba minnet etmem.// ince düşünene kalın girer.//

delphi'de amatrüm demişsin de, gene de nereyim regex kullanmayı denedin mi?

delphide regex yok mu hocam? onunla alabilirsin? Cehennemin dibine kadar yolum var daha.. || Nasılsa her yalnız kendine sürgündür Asmera unutma.

Eyvalah işimi çok güzel grdü teşekkür ediyorum Şeyh Mevzu derin | Papikolas Planet

Yeni konu açmak istemediğim için buradan devam edeyim son bir sorum olacak şimdi Holy ustanın verdiği kodlar ile olayı çzdüm istediğim veriyi çekebiliyorum sadece biri hariç <author><name>cemiyetmikrobu</name></authot> burada ismi çekemiyorum bunun nedeni nedir? <entry> <id>tag:twitter.com,2014-02-15:/cemiyetmikrobu/statuses/434646204291366912</id> <link href="https://twitter.com/cemiyetmikrobu/statuses/434646204291366912" rel="alternate" type="text/html"/> <title>cemiyetmikrobu: bide Good Morning Vietnam vardı unutmadan onuda saygıyla analım ashdxgasjdsd</title> <summary type="html"><![CDATA ]></summary> <content type="html"><![CDATA ]></content> <updated>2014-02-15T12:11:45+01:00</updated> <author><name>cemiyetmikrobu</name></author> </entry> karakutu tarafından 15/Şub/14 13:19 tarihinde düzenlenmiştir Mevzu derin | Papikolas Planet

Herkes bağırmış çağırmış işte hocam regexle yapabilirsin o işi Ne yazıkki bende regex bilmiyorum işin saçmalığı

Hocam ben de delirmiştim, pek rnek de yok piasada. Yarına atayım sana ufak xmlli bi projem vardı Nush ile uslanmayanı etmeli tekdir, Tekdir ile uslanmayanın hakkı ktektir!

Herkes bağırmış çağırmış işte hocam regexle yapabilirsin o işi Ne yazıkki bende regex bilmiyorum işin saçmalığı Son 2 postuna cevap olarak yazdım bunu hocam Regex patterni <author><name> </name></author> gibi olucak mesela o zaman oraya ne koyarsa koysunlar alırsın bunu demek istiyorum Delphi nin regex dkümanlarına bak verdiğim rnek doğru olmayabilir bilmiyorum regex bende kafanda fikir oluşması açısından verdim. Mesela pythonda: for i in liste: nesne = re. match(" ", i) if nesne: print i 4Y7UZ TYUDZ 1agAY54

Hocam ben de delirmiştim, pek rnek de yok piasada. Yarına atayım sana ufak xmlli bi projem vardı çok makbule geçer çok teşekkür eder duada ederim Mevzu derin | Papikolas Planet

Bu da xml okyan bi kodum <?xml version="1.0" encoding="utf-8" standalone="yes"?> <urunler indirimyuzde="0" bayidefaultkomisyon="0" yillikfiyatyuzde="39"> <urun id="1" name="Client" desc="Personel bilgisayarlarına kurulan modül" birimfiyat="39" group="Standard"/> <urun id="2" name="Admin" desc="Ynetici bilgisayarına kurulan yazılım" birimfiyat="149" group="Standard" /> <urun id="3" name="Ana kullanım" birimfiyat="399" group="Standard" /> <urun id="5" name="Client" desc="Personel bilgisayarlarına kurulan modül" birimfiyat="50" group="Professional"/> <urun id="6" name="Admin" desc="Ynetici bilgisayarına kurulan yazılım" birimfiyat="150" group="Professional" /> <urun id="7" name="Ana kullanım" birimfiyat="500" group="Professional" /> <urun id="4" name="Eğitim" birimfiyat="0" miktar="1" /> </urunler> procedure TForm1. Button3Click ; var i, kontrol: integer; desctxt, idstr, nametxt, birimfiyattxt, disabledtxt: WideString; u: Turun; StartItemNode, ANode: IXMLNode; usdval, fn: String; strs: tstringstream; grp, engname, engdesc:string; begin ComboBox1. Items. Clear; dic. clear; // XMLDocument2. Active := false; // XMLDocument2. FileName := ; // XMLDocument2. Active := true; fn := apppath + 'Fiyatlar. xml'; if (not fileexists then begin showmessage ; exit; end; // XMLDocument2. Encoding:= tencoding. UTF8; strs := tstringstream. Create('', Tencoding. UTF8); strs. LoadFromFile ; // showmessage ; strs. Seek(0, tseekorigin. soBeginning); XMLDocument2. LoadFromXML ; // XMLDocument2. LoadFromStream( strs, TXMLEncodingtype. xetUTF_8); // XMLDocument2. LoadFromFile ; // XMLDocument2. Encoding:='utf8'; indirimyuzde := 0; bayidefaultkomisyon := 25; yillikfiyatyuzde := 40; indirimyuzde := strtoint2(XMLDocument2. DocumentElement. Attributes ); bayidefaultkomisyon := strtoint2(XMLDocument2. DocumentElement. Attributes ); yillikfiyatyuzde := strtoint2(XMLDocument2. DocumentElement. Attributes ); Edit3. Text := inttostr ; yillikfiyatibare := 'Yıllık lisans bedelleri aşşağıdaki gibidir.'; edit4. Text:=inttostr ; StartItemNode := XMLDocument2. DocumentElement. ChildNodes. FindNode ; ANode := StartItemNode; repeat idstr := UTF8Decode ; if (ANode. HasAttribute then nametxt := else nametxt := ''; if (ANode. HasAttribute then engname := else engname := ''; if (ANode. HasAttribute then engdesc := else engdesc := ''; if (ANode. HasAttribute then desctxt := else desctxt := ''; if (ANode. HasAttribute then birimfiyattxt := else birimfiyattxt := ''; if (ANode. HasAttribute then grp := else grp := ''; if (ANode. HasAttribute then disabledtxt := lowercase ; u. id := strtoint ; u. desc := desctxt; u. name := nametxt; u. birimfiyat := strtoint2 ; u. miktar := 1; u. group:= grp; u. disabled := false; if then if(combobox4. Items. IndexOf <0) then begin combobox4. Items. Add ; if(combobox4. Items. Count=1) then combobox4. ItemIndex:=0; end; if then u. disabled := true; if((sametext(grp, combobox4. Items )) or then begin ComboBox1. Items. Add ; dic. Add ; end; ANode := ANode. NextSibling; until ANode = nil; end; Nush ile uslanmayanı etmeli tekdir, Tekdir ile uslanmayanın hakkı ktektir!

Ka1nsha bunu yazdı Herkes bağırmış çağırmış işte hocam regexle yapabilirsin o işi Ne yazıkki bende regex bilmiyorum işin saçmalığı Son 2 postuna cevap olarak yazdım bunu hocam Regex patterni gibi olucak mesela o zaman oraya ne koyarsa koysunlar alırsın bunu demek istiyorum Delphi nin regex dkümanlarına bak verdiğim rnek doğru olmayabilir bilmiyorum regex bende kafanda fikir oluşması açısından verdim. Mesela pythonda: for i in liste: nesne = re. match(" ", i) if nesne: print i 4Y7UZ TYUDZ 1agAY54 Teşekkür ederim bende şimdi bi kaybak buldum senin gsterdiğin rnek ile benzer araştırıp sonucu yazacağım. Mevzu derin | Papikolas Planet

XML den usd çıkaran bişeyi byle yazmıştım belki işine yarar rnek olur procedure TForm1. Button2Click ; var i, kontrol: integer; isim, alis, satis, balis, bsatis, euro: WideString; satir, sutun: integer; baslangic: IXMLNode; usdval: String; begin kontrol := 0; try if kontrol = 0 then begin XMLDocument1. Active := false; XMLDocument1. FileName := 'http://www.tcmb.gov.tr/kurlar/today. xml'; XMLDocument1. Active := true; end; i := 1; baslangic := XMLDocument1. DocumentElement. ChildNodes. FindNode ; repeat isim := baslangic. ChildNodes. Nodes . Text; alis := baslangic. ChildNodes. Nodes . Text; satis := baslangic. ChildNodes. Nodes . Text; balis := baslangic. ChildNodes. Nodes . Text; bsatis := baslangic. ChildNodes. Nodes . Text; euro := baslangic. ChildNodes. Nodes . Text; i := i + 1; baslangic := baslangic. NextSibling; if then begin usdval := bsatis; break; end; Until baslangic = nil; if then begin if then showmessage ; Edit2. Text := ; end; except Edit2. Text := '0'; showmessage ; end; if then updategtoplam; end; Nush ile uslanmayanı etmeli tekdir, Tekdir ile uslanmayanın hakkı ktektir!

Herkes bağırmış çağırmış işte hocam regexle yapabilirsin o işi Ne yazıkki bende regex bilmiyorum işin saçmalığı hocam Holy'nin verdiği rnek ile hallettim istediğim veriyi çekebiliyorum ama sadece dediğim gibi cemiyetmikrobu arasındaki name kısmını çağıramıyorum gelmiyor ama diğer hepsi geliyor bide regex baktım beni çok aştı Türkçe kaynak bulamadığım için karakutu tarafından 15/Şub/14 13:42 tarihinde düzenlenmiştir Mevzu derin | Papikolas Planet