Sayfayı Yazdır | Pencereyi Kapat

XML VERİLERİNİ AYIRMA

Nereden Yazdırıldığı: Clomosy | Forum
Kategori: Genel Programlama
Forum Adı: Genel İşlemler
Forum Tanımlaması: TRObject dili ile programlama yaparken karşılaşılan genel işlemler
URL: https://forum.clomosy.com.tr/forum_posts.asp?TID=1108
Tarih: 05 Eylül 2025 Saat 21:48
Program Versiyonu: Web Wiz Forums 12.07 - https://www.webwizforums.com


Konu: XML VERİLERİNİ AYIRMA
Mesajı Yazan: Ahmet_27
Konu: XML VERİLERİNİ AYIRMA
Mesaj Tarihi: 18 Temmuz 2025 Saat 16:57
Internetten XML verisi çektim. Bu XML Verisini nasil ayiracagim?

<title> ....................<title>
<description> ................<description>
<title> ....................<title>
<description> ................<description>
<title> ....................<title>
<description> ................<description>
<title> ....................<title>
<description> ................<description>

böyle veri geliyor mesela
tüm title'lari bir title dizisine almak istiyorum içindeki verileri sirayla



Cevaplar:
Mesajı Yazan: Emr.Erkmn
Mesaj Tarihi: 24 Temmuz 2025 Saat 11:56

Merhaba Ahmet, 

XML içindeki <title> ve <description> etiketlerinin verilerini ayıklamak istiyorsan.. Clomosy'nin TclStringList veya TclArrayString gibi yapılarıyla bunu yapabilirsin.

İyi çalışmalar. 



Mesajı Yazan: Ahmet_27
Mesaj Tarihi: 24 Temmuz 2025 Saat 12:39
void description_bul
{
  mevcut_xml_description = gelen_xml;
  Delete(mevcut_xml_description, 1, 550);
//  ShowMessage(mevcut_xml);
  description_index_baslangic = Pos('description', mevcut_xml_description);
//  ShowMessage(title_index_baslangic);
  

  
  Delete(mevcut_xml_description, 1, description_index_baslangic + 11);
  
//  ShowMessage(mevcut_xml);
  
  description_index_son = Pos('description', mevcut_xml_description);
//  ShowMessage(title_index_son);
  
  nihai_description = Copy(mevcut_xml_description, 1, description_index_son-3)
  
  
      while (Pos('"', nihai_description) <> 0)
    {
    cift_tirnak_index = Pos('"', nihai_description);
    Delete(nihai_description, cift_tirnak_index, 1);
    }


  nihai_description = Trim(nihai_description);
  

  
}

void description_bul2
{

    // 2. DESCRİPTİON
  
    description_index_baslangic = Pos('description', mevcut_xml_description);
    Delete(mevcut_xml_description, 1, description_index_baslangic + 11);
    description_index_baslangic = Pos('description', mevcut_xml_description);
    Delete(mevcut_xml_description, 1, description_index_baslangic + 11);
    description_index_baslangic = Pos('description', mevcut_xml_description);
    nihai_description2 = Copy(mevcut_xml_description, 1, description_index_baslangic-3)



      while (Pos('"', nihai_description2) <> 0)
    {
    cift_tirnak_index = Pos('"', nihai_description2);
    Delete(nihai_description2, cift_tirnak_index, 1);
    }
  
    nihai_description2 = Trim(nihai_description2);
  
  
  
  // 3. DESCRİPTİON
  
    description_index_baslangic = Pos('description', mevcut_xml_description);
    Delete(mevcut_xml_description, 1, description_index_baslangic + 11);
    description_index_baslangic = Pos('description', mevcut_xml_description);
    Delete(mevcut_xml_description, 1, description_index_baslangic + 11);
    description_index_baslangic = Pos('description', mevcut_xml_description);
    nihai_description3 = Copy(mevcut_xml_description, 1, description_index_baslangic-3)


  
      while (Pos('"', nihai_description3) <> 0)
    {
    cift_tirnak_index = Pos('"', nihai_description3);
    Delete(nihai_description3, cift_tirnak_index, 1);
    }
  
    nihai_description3 = Trim(nihai_description3);
    
    
    
    
  // 4. DESCRİPTİON
  
    description_index_baslangic = Pos('description', mevcut_xml_description);
    Delete(mevcut_xml_description, 1, description_index_baslangic + 11);
    description_index_baslangic = Pos('description', mevcut_xml_description);
    Delete(mevcut_xml_description, 1, description_index_baslangic + 11);
    description_index_baslangic = Pos('description', mevcut_xml_description);
    nihai_description4 = Copy(mevcut_xml_description, 1, description_index_baslangic-3)


      while (Pos('"', nihai_description4) <> 0)
    {
    cift_tirnak_index = Pos('"', nihai_description4);
    Delete(nihai_description4, cift_tirnak_index, 1);
    }
  
  
    nihai_description4 = Trim(nihai_description4);
    
    
  // 5. DESCRİPTİON
  
    description_index_baslangic = Pos('description', mevcut_xml_description);
    Delete(mevcut_xml_description, 1, description_index_baslangic + 11);
    description_index_baslangic = Pos('description', mevcut_xml_description);
    Delete(mevcut_xml_description, 1, description_index_baslangic + 11);
    description_index_baslangic = Pos('description', mevcut_xml_description);
    nihai_description5 = Copy(mevcut_xml_description, 1, description_index_baslangic-3)


      while (Pos('"', nihai_description5) <> 0)
    {
    cift_tirnak_index = Pos('"', nihai_description5);
    Delete(nihai_description5, cift_tirnak_index, 1);
    }
  
    nihai_description5 = Trim(nihai_description5);
    
    
  // 6. DESCRİPTİON
  
    description_index_baslangic = Pos('description', mevcut_xml_description);
    Delete(mevcut_xml_description, 1, description_index_baslangic + 11);
    description_index_baslangic = Pos('description', mevcut_xml_description);
    Delete(mevcut_xml_description, 1, description_index_baslangic + 11);
    description_index_baslangic = Pos('description', mevcut_xml_description);
    nihai_description6 = Copy(mevcut_xml_description, 1, description_index_baslangic-3)


      while (Pos('"', nihai_description6) <> 0)
    {
    cift_tirnak_index = Pos('"', nihai_description6);
    Delete(nihai_description6, cift_tirnak_index, 1);
    }
  
    nihai_description6 = Trim(nihai_description6);
    
    
  // 7. DESCRİPTİON
  
    description_index_baslangic = Pos('description', mevcut_xml_description);
    Delete(mevcut_xml_description, 1, description_index_baslangic + 11);
    description_index_baslangic = Pos('description', mevcut_xml_description);
    Delete(mevcut_xml_description, 1, description_index_baslangic + 11);
    description_index_baslangic = Pos('description', mevcut_xml_description);
    nihai_description7 = Copy(mevcut_xml_description, 1, description_index_baslangic-3)


      while (Pos('"', nihai_description7) <> 0)
    {
    cift_tirnak_index = Pos('"', nihai_description7);
    Delete(nihai_description7, cift_tirnak_index, 1);
    }
  
    nihai_description7 = Trim(nihai_description7);
    
    
    
  // 8. DESCRİPTİON
  
    description_index_baslangic = Pos('description', mevcut_xml_description);
    Delete(mevcut_xml_description, 1, description_index_baslangic + 11);
    description_index_baslangic = Pos('description', mevcut_xml_description);
    Delete(mevcut_xml_description, 1, description_index_baslangic + 11);
    description_index_baslangic = Pos('description', mevcut_xml_description);
    nihai_description8 = Copy(mevcut_xml_description, 1, description_index_baslangic-3)


      while (Pos('"', nihai_description8) <> 0)
    {
    cift_tirnak_index = Pos('"', nihai_description8);
    Delete(nihai_description8, cift_tirnak_index, 1);
    }
  
    nihai_description8 = Trim(nihai_description8);
    
    
    
  // 9. DESCRİPTİON
  
    description_index_baslangic = Pos('description', mevcut_xml_description);
    Delete(mevcut_xml_description, 1, description_index_baslangic + 11);
    description_index_baslangic = Pos('description', mevcut_xml_description);
    Delete(mevcut_xml_description, 1, description_index_baslangic + 11);
    description_index_baslangic = Pos('description', mevcut_xml_description);
    nihai_description9 = Copy(mevcut_xml_description, 1, description_index_baslangic-3)


      while (Pos('"', nihai_description9) <> 0)
    {
    cift_tirnak_index = Pos('"', nihai_description9);
    Delete(nihai_description9, cift_tirnak_index, 1);
    }
  
    nihai_description9 = Trim(nihai_description9);
    
    
    
    
  // 10. DESCRİPTİON
  
    description_index_baslangic = Pos('description', mevcut_xml_description);
    Delete(mevcut_xml_description, 1, description_index_baslangic + 11);
    description_index_baslangic = Pos('description', mevcut_xml_description);
    Delete(mevcut_xml_description, 1, description_index_baslangic + 11);
    description_index_baslangic = Pos('description', mevcut_xml_description);
    nihai_description10 = Copy(mevcut_xml_description, 1, description_index_baslangic-3)


      while (Pos('"', nihai_description10) <> 0)
    {
    cift_tirnak_index = Pos('"', nihai_description10);
    Delete(nihai_description10, cift_tirnak_index, 1);
    }
  
    nihai_description10 = Trim(nihai_description10);


  
}

şu algoritma ile ayırdım. sadece bu xml'e özel bir ayırma şekli ve yani dinamik bir şey değil ama işimi gördü şimdilik ileride patlamazsa.


Mesajı Yazan: Emr.Erkmn
Mesaj Tarihi: 25 Temmuz 2025 Saat 11:51
Tamamdır. Tekrar hata alırsan paylaşırsın bizimle. 
İyi çalışmalar



Sayfayı Yazdır | Pencereyi Kapat

Forum Software by Web Wiz Forums® version 12.07 - https://www.webwizforums.com
Copyright ©2001-2024 Web Wiz Ltd. - https://www.webwiz.net