XYplorer Beta Club

Code: Select all

	// Copy Name(s)
	focus l;
	#102;
	set $list, <clipboard>;
	// get last 2 chars, crlf means more than one item
	substr $fix, $list, -2;
	// nothing at all: we'll add 0 (just like when crlf)
	regexreplace $fix, $fix, "^$", ":";
	// turn crlf into ":"
	regexreplace $fix, $fix, <crlf>, ":";
	// if everything but ":" it means no crlf (and no empty), so it was one single name, so we'll add 1
	regexreplace $fix, $fix, "^[^:]+$", "1";
	// otherwise we'll add 0
	regexreplace $fix, $fix, "^:$", "0";
	//
	// turn all crlf in ":"
	regexreplace $list, $list, <crlf>, ":";
	// remove everything but ":"
	regexreplace $list, $list, "[^:]", "";
	// thus we get the number of ":" = crlf = items
	strlen $nb_items, $list;
	// adding the fix
	incr $nb_items, $nb_items, $fix;
	// results
	msg "$nb_items item(s) selected";

Code: Select all

focus;
  #201;
  regexreplace $num, "<clipboard>", "[^:]",;
  strlen $num, "$num";

Code: Select all

focus;
  //copy names
  #102;
  set $num, "<crlf><clipboard>";
  //this will get rid of the <crlf> at the end of the string. if nothing is selected it will return an empty string
  regexreplace $num, "$num", "<crlf>$",;
  //replace <crlf> with ":", delete everything else and count the colons
  regexreplace $num, "$num", "<crlf>", :;
  regexreplace $num, "$num", "[^:]",;
  strlen $num, "$num";
  msg "$num items";