PDA

View Full Version : معکوس کردن یه رشته



sarasara
چهارشنبه 03 بهمن 1386, 13:51 عصر
من یه رشته شامل یه سری کلمات فارسی و لاتین دارم که این کلمات با space " " از هم جدا شدند چطور می تونم این رشته رو به صورت معکوس چاپ کنم به طوری که حروف کلمات معکوس نشه، یعنی اگه رشته "ABC سارا DEF" است بشه "DEF سارا ABC"، می خوام این کار رو با Formula یا تو کد برنامه ام انجام بدم نه توی Query ام،لطفا اگه کسی می دونه راهنمایی کنید.

sm
پنج شنبه 04 بهمن 1386, 08:07 صبح
توی برنامه امکان داره
شما باید حرف بهحرف بخونین و باتوجه به اینکه اون حرف فارسی هست یا انگلیسی در موردش تصمیم بگیرین.
البته حدس میزنم در مورد نمایش این عبارات مشکل دارین که اگه از فونت فارسی (سری B) و RTL کردن فیلدها استفاده کنین و تنظیمات زبان سیستم هم روی فارسی تنظیم کنین مشکل حل میشه.

موفق باشید

sarasara
پنج شنبه 04 بهمن 1386, 09:57 صبح
ممنون از sm (http://barnamenevis.org/forum/member.php?u=5259). (http://barnamenevis.org/forum/member.php?u=5259)

حل شد، راه حلی که انتخاب کردم رو می ذارم شاید به درد کسی خورد.
چون مشکلم با Direction حل نشد به این صورت حلش کردم: رشته رو از DB خوندم و سپس یک Formula به شکل زیر نوشتم:


global stringVar callno;
global stringVar Array arrcallno;
callno:= {Books.CallNumber};
arrcallno:= split(callno," ");
global stringVar result;
result:="";
Local NumberVar i;
For i := count(arrcallno) To 1 Step -1 Do
(
result:=result + " " + arrcallno[i];

);
result;