TROIA – Örnek Proje 2 / String Çalışması

— Dialog açma için bir önceki yazıya göz atabilirsiniz.

PS: Büyük harflerle yazılmış olanlar component isimleridir.Dialog ekranımız da aşağıdaki değişikliği yapıyoruz ;

String label ına girdiğimiz veri ile search label ına gireceğimiz harf yada kelime ile fonksiyonları deneyeceğiz ;

dönüştür butonunun click fonksiyonuna ;

yukarıda ki gibi kod bloğunu yazdıktan sonra test ortamında dialog ismimizi çağırdığımızda;

yukarıdaki gibi bir sonuçla karşılaşmış oluruz.

İyi çalışmalar………

Kod bloğu için ;

   
GLOBAL:  INTEGER intVar, STRING txtReplaced;
 
   TXTLENGTH='';TXTSEARCHRESULT='';TXTLOCATION='';TXTREPLACE='';
 
      /* STRING UZUNLUK */  
      TXTLENGTH = STRLEN(TXTSTRING);
      /* STRING ARAMA */
      IF TXTSEARCH != '' THEN
         intVar=STRLIKE(TXTSTRING,'%' + TXTSEARCH + '%','','',1,'E');
         IF intVar==1 THEN
             TXTSEARCHRESULT = 'Aradığınız harf/kelime Yazı Dizisinde mevcuttur.!!';
             ELSE
             TXTSEARCHRESULT = TXTSEARCH + 'harfi/kelimesi bulunamadı !!';
         ENDIF;
         /* STRING LOKASYON BULMA */
         intVar=STRPOS(TXTSTRING,TXTSEARCH);
         TXTLOCATION='Arama yaptığınız kelime ' + intVar + '. sıradır..';
         /* STRING YERDEĞİŞTİRME */
         TXTSTRING = UPPERCASE(TXTSTRING);
         txtReplaced=REPLACE(TXTSTRING,'E','A');
         TXTREPLACE=txtReplaced;
      ENDIF;