Reverse text

[Subby]

שם: Reverse text

יוצר: Subby

תיאור: סקריפט אשר נועד לטפל בבעיה של עברית הפוכה, בעזרת דיאלוג פשוט. פשוט להכניס את הטקסט ההפוך וללחוץ על כפתור ההפיכה. מאוד שימושי להכנסת טקסט לתוכנות שלא תומכות בעברית,פוטושופ, למשל...

תמונה:



קוד:

קוד: בחר הכל

dialog reverse {
  title "Reverse text"
  size -1 -1 300 205
  option pixle
  edit "",1, 8 8 284 169,multi return vsbar autovs
  button "Reverse", 2, 7 180 60 22, flat
  button "Clear", 3, 78 180 60 22, flat
  button "Exit", 6, 233 180 60 22,cancel flat
}
on *:dialog:reverse:sclick:2: geb
on *:dialog:reverse:sclick:3: did -r $dname 1
alias -l rev dialog -m reverse reverse
alias -l geb {
  window -h @t_rev
  var %x 1
  while (%x <= $did(reverse,1).lines) {
    var %v1 = $did(reverse,1,%x)
    echo @t_rev $iif(%v1,$regsubex(%v1,/(.)/g,$mid(\A,-\n,1)),$cr)
    inc %x
  }
  filter -cwo @t_rev reverse 1
  window -c @t_rev
}
menu * {
  Reverse text:rev
}

הערות:
* בכדי להפעיל את הדיאלוג יש ללחוץ לחצן ימני בכל חלון וללחוץ על "Reverse text"
* זה עובד על כל טקסט לא רק עברית..

[Ohad]

מלך....
געגועים לקודים שלך

[ZxoR]

אגב, אני בטוח שלא הסתכלת על הקוד לפני שפרסמת אותו (אני מעריך שהוא סופר ישן) אבל,

קוד: בחר הכל

on *:dialog:reverse:sclick:2: geb
on *:dialog:reverse:sclick:3: did -r $dname 1


אני לא צריך לפרט.