Zugg Software :: View topic

Magician Joined: 23 Nov 2004 Posts: 364

I'm trying to strip ansi characters out of only part of a string, ideally I want to end up with a function where i do @stripansi(string,length) which will strip ansi ansi up the length I provide. However being as the ansi sequence captured would extend 3-5 characters and even moreso if there are multiple ansi sequences in the variable I'm having some trouble getting a script together. I would want to take something like:

Posted: Tue Mar 03, 2009 6:32 pm

Umm, do you mean something like the existing %stripansi function?

Posted: Tue Mar 03, 2009 6:35 pm

%stripansi - just cut the string into two parts, the part you want to have no ANSI codes and the part you want to leave alone. Use %stripansi on the relevant part and then join the string back together.

I'm currently having a ponder as to whether there's an easier way to go about this problem, though.

EDIT: Grr, I go for one cup of tea and Zugg beats me to it :(

Magician Joined: 23 Nov 2004 Posts: 364

I can't do that because I can't get the actual length I need with splitting the string. Using the %stripansi wouldn't work as I said because the ansi is important to a certain point, if I used %strip ansi then a green @ and a yellow @ and a blue @ would all be the same, and there would be no way to determine which one was relevent. I can't cut the string into parts because the ansi codes are not consistent in how many will be present and thus the string length of what I want will vary. In general I think the easiest approach would be to use %regex() and get the location of \e[1;33m then work from there, but a function that would keep ansi after a certain position and strip it all before would be nice since I have other scripts that do things like capturing over lines that screw up because of a %e[0s being introduced and making my position off by 4.

Posted: Tue Mar 03, 2009 7:15 pm

What do you mean "not consistent in how many will be present"? How are you obtaining this ANSI-laden string? If you're using a CMUD ANSI trigger, then CMUD will remove ANSI codes that don't actually change the colour - so you'll be left with only the codes that matter. Or do you mean that sometimes characters aren't accompanied by an ANSI code?

Essentially, your task is to divide the line up into individual characters and their ANSI sequences, if they have them. You loop through each character until you find the one that's yellow and then look at the number of characters you've processed so far - that number is the position of the character in the line.

I think this might be most easily accomplished - assuming the line contains no | characters - to use %subregex to put a | between each character. It'd look something like %subregex(%1,"((?:%e[[\d+;]+)?m.","\'1'|") and you can now use #forall to loop through each character, examining the colour number. Once you've got the number of the character in the string, you can %stripansi the whole string and get to work.

If the line does contain |s, just use %subchar to change them into something else while you work on them and then change them back afterwards.

SubAdmin Joined: 18 Nov 2001 Posts: 5182

It sounds like all you need is %regex and %stripansi. Off the top of my head:
#LOCAL $PreYellow
#CALL %regex(@text,"(.*?)\033[1;33m", $PreYellow)
$PreYellow=%stripansi($PreYellow)

This gives you what you want because all you are looking for is before the first yellow coloring. If you really are looking for accumulating a specific number of characters then %subregex will be the way, but I would have to really think about the most efficient way to do it.

Magician Joined: 23 Nov 2004 Posts: 364

For my current instance what vijilante said works perfectly. What I wanted to use this same function for is a bit more tricky. Suppose I have strings that look like this:

Wizard Joined: 22 Mar 2007 Posts: 2320

Magician Joined: 23 Nov 2004 Posts: 364

As for other instances I can't think of any, as this is the first time I've ever needed to design such a function. However, the reason I didn't just remove the %e[0S/0m is because they may also be involved in the pattern which I want to echo back to the screen, so if those are stripped then the colors will not always be displayed as they were intended. What I've been working on is something like this (i'm not @ my home computer atm so this might not be 100% exact, but close enough)

function @ansistrip($string,$position)

$stripline=%left($string,$position)
#if ((%regex($stripline,"\e",$ansiposition)) {$ansiendposition=%regex(%right($string,$ansiposition),"m|S");$position=($ansiendposition-$ansiposition+$position);$stripline=%left($string,$position)} {#return $stripline}

If the first ansi escape sequence is found, then it goes right from that position until an m or an S is found, then the length of the ansi sequence is added to the position. I was then going to make the #if into a a #while, but for some reason I started getting infinite loop messages when i tried to do a #print $stripline to see how it was progressing. If anyone sees some obvious flaw in my logic please point it out or an easier way.

Wizard Joined: 22 Mar 2007 Posts: 2320

[0S will not appear in ansi from the mud, since it is non-standard. It will only appear if it is inserted by Cmud.