[פרסום] גימטריה של האותיות

[Ocean]

שם הקוד: גימטריה
יוצר: Ocean
גירסא: V0.1
תיאור: מראה את הגימטריה של האותיות
הפעלה: לשים את הקוד הבא ברימוט, ללחוץ מקש ימיני על ערוץ וללחוץ על GMH
הערות: לא תומך בגירסא 7.1 של המירק
תמונה:

קוד:

קוד: בחר הכל

dialog GMH {
  title "גימטריה"
  size -1 -1 389 31
  option dbu
  edit "", 1, 1 1 387 14
  edit "", 2, 1 16 387 14, disable
}
alias GMH { dialog $iif(!$dialog(GMH),-m,-x) GMH GMH }
on *:dialog:GMH:edit:1: {
  if ($asc($right($did(GMH,1),1)) > 223) && ($asc($right($did(GMH,1),1)) < 251) { var %a = $replace($did(GMH,1),א,1+,ב,2+,ג,3+,ד,4+,ה,5+,ו,6+,ז,7+,ח,8+,ט,9+,י,10+,כ,20+,ל,30+,מ,40+,נ,50+,ס,60+,ע,70+,פ,80+,צ,90+,ק,100+,ר,200+,ש,300+,ת,400+,ן,50+,ם,40+,ך,20+,ף,80+,ץ,90+) | did -ra GMH 2 $mid(%a,1,$calc($len(%a) -1)) = $calc(%a) }
  elseif ($asc($right($did(GMH,1),1)) != $chr(32)) { noop $input(אתה יכול לרשום רק תווים בעברית א-ת,o,ERROR) | did -ra GMH 1 $iif($len($did(GMH,1)) > 1,$mid($did(GMH,1),1,$calc($len($did(GMH,1)) -1)),$chr(0)) }
  if ($did(GMH,1) == $null) { did -r GMH 2 }
}
menu channel,status {
  GMH: { GMH }
}


[shay99]

אי אפשר לעשות רווח.. כמה נחמד D:
רעיון מעולה אבל תעשה שאפשר רווח ..

[Ohad]

נחמד אך לא מתכונת משהו:

• אתה רושם שורות ארוכות מידי ללא צורך, זה סתם מאריך את הדף ברימוט.
• הקוד לא תומך בגירסא 7.1
• אל תגביל את שורת ה-edit, תעשה שהאורך שלה יהיה בלתי מוגבל.
• ממקום מה שעשית עם ה-mid, אתה יכול להשתמש ב:
  
  קוד: בחר הכל

  $left(%a,-1)
• למה אכפת למשתמש כמה אות שווה? הוא רוצה להכניס משפט ולקבל את הגימטריה שלו.
• לא תמיד העריכה מתבצעת בסוף ולפעמים מעתיקים משפט שלם והקוד שלך יהיה בעיתי במצב הזה, פשוט תבדק בכל פעם שעורכים את ה-EDIT אם כל הטקסט הוא אותיות עבריות/רווח.