› פורומים › אפיון ופיתוח פריוריטי › הפיכת מחרוזת
- This topic has 4 תגובות, 3 משתתפים, and was last updated לפני 4 שנים, 9 חודשים by רועי זלוף.
- Post
- Replies
-
- ינואר 30, 2020 בשעה 9:38 am
אתה מוצא טקסט לקובץ בעזרת ASCII והעברית יוצאת הפוכה? נסה
<p style="text-align: right;">:HEBREWFILTER = 1 ;</p>
(איך עושים כאן שייצא בכיוון הנכון? מקווה שהכוונה ברורה)[ בבקשה לא לשלוח הודעות פרטיות במערכת - אני לא קורא אותן ]- ינואר 30, 2020 בשעה 10:14 am
זה לא עבד… כנראה שאני עושה משהו לא בסדר..מצ"ב צילום מסך: https://imgur.com/uu7Ghbs
- ינואר 30, 2020 בשעה 12:11 pm
אני בטוח שהשאלה הזו (איך להפוך) נשאלה לפחות פעם אחת בעבר. בכל אופן, הנה קצת קוד:ORIG = 'ABC'; :REV = ''; :I = 0; :LEN = STRLEN (:ORIG); LABEL 1; :I = :I + 1; :REV = STRCAT (SUBSTR (:ORIG, :I, 1), :REV); LOOP 1 WHERE :I < :LEN; SELECT :REV FROM DUMMY FORMAT;
בסוף מודפס CBA
- ינואר 30, 2020 בשעה 12:31 pm
תודה רבה.אך למען האמת, את הקוד הזה הכרתי ויש איתו בעיה – הוא לא יודע להתמודד עם רווחים.
בניתי סקריפט חדש שיודע להפוך מחרוזת גם עם רווחים. מעט ארוך אך הוא עובד:
:STR = 'שולש םייתש דחא';
:NEW = ";
:LEN = 0;
:CHAR = ";
:ALPHA = 0;
:CNT = 0;
/* INSERT '-' TO STRING */
SELECT STRLEN(:STR) INTO :LEN FROM DUMMY;
:NEW_LEN = :LEN;
LABEL 500;
SELECT SUBSTR(:STR,:NEW_LEN,1) INTO :CHAR FROM DUMMY;
:ALPHA = ISALPHA(:CHAR);
SELECT STRCAT(:NEW,(:ALPHA = 0 ? :CHAR : '-')) INTO :NEW FROM DUMMY;
:NEW_LEN = :NEW_LEN -1;
LOOP 500 WHERE :NEW_LEN > 0;
:STR = :NEW;
/* COUNT AMOUNT OF '-' */
SELECT STRLEN(:STR) INTO :LEN FROM DUMMY;
:NEW_LEN = :LEN;
LABEL 501;
SELECT SUBSTR(:STR,:NEW_LEN,1) INTO :CHAR FROM DUMMY;
:CNT = (:CHAR = '-' ? :CNT + 1 : :CNT);
:NEW_LEN = :NEW_LEN -1;
LOOP 501 WHERE :NEW_LEN > 0;
/* REPLACE '-' TO ' ' */
LABEL 502;
SELECT STRCAT(STRPIECE(:STR,'-',1,:CNT),' ',STRPIECE(:STR,'-',:CNT +
1,1)) INTO :STR FROM DUMMY;
:CNT = :CNT – 1;
LOOP 502 WHERE :CNT > 0;
SELECT :STR FROM DUMMY FORMAT;
- יש להתחבר למערכת על מנת להגיב.