westor

$col() identifier

Jun 21st, 2021
845
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. alias col {
  2.   ; $col(N1-N2,TEXT)
  3.  
  4.   if ($1 == $null) { return }
  5.  
  6.   var %n0 = $gettok($1,1-2,45)
  7.   var %n1 = $gettok(%n0,1,45)
  8.   var %n2 = $gettok(%n0,2,45)
  9.  
  10.   if (%n1 !== $null) && (%n1 isnum 0-9) { var %n1 = 0 $+ %n1 }
  11.   if (%n2 !== $null) && (%n2 isnum 0-9) { var %n2 = 0 $+ %n2 }
  12.  
  13.   if (%n1 !== $null) && (%n1 !isnum 0-98) { return }
  14.   if (%n2 !== $null) && (%n2 !isnum 0-98) { return }
  15.  
  16.   if (%n1 !== $null) && (%n2 == $null) { var %t = %n1 }
  17.   if (%n1 !== $null) && (%n2 !== $null) { var %t = $+(%n1,$chr(44),%n2)) }
  18.  
  19.   return $+($chr(3),%t,$2-,$chr(3))
  20. }
RAW Paste Data