mIRC snippet help

[ronnie69]

Hi, does anyone know of a quick and easy way to make a string only contain one of each character (case sensitive)?

 

For example i want to turn AAaaBBccCC into AaBbCc

 

Thanks

[Mail]

Try typing this in your script window.

 

//echo -a $replace(AAaaBBbbCCcc,AAaaBBbbCCcc,AaBbCc)

[ronnie69]

Thanks for the reply!

 

Sorry, i should have been more specific, the string is a variable and in no particular order.

[ronnie69]

Anyone else have any ideas?

 

The string could be something like...

 

andHhshabdyPcvjshHP

 

and i want it to return...

 

andHhsbyPcvj

 

(only one instance of each submitted character is returned)

 

[Angelia]

ask petertje - he seems to be the regex guru of the forum

[Gazzy]

Yea ask him.. ive got no idea

[hixxy]

Add these two aliases:

 

alias removerepeats return $reverse($regsubex($reverse($1),/(.)(?=.*?\1)/g,))
alias reverse {
 var %string = $1
 return $regsubex($1,/(.)/g,$mid(%string,-\n,1))
}

 

Then you can use:

 

//echo -a $removerepeats(andHhshabdyPcvjshHP) = andHhsbyPcvj

 

If you don't have mIRC 6.17 use this instead:

 

alias regsubex {
 var %a, %b = $regsub($1,$2,$3,%a)
 return %a
}
alias removerepeats return $reverse($regsubex($reverse($1),/(.)(?=.*?\1)/g,))
alias reverse {
 var %i = 1, %value
 while ($mid($1,%i,1) != $null) {
   %value = $v1 $+ %value
   inc %i
 }
 return %value
}

[Pete®tje]

Nice work hixxy.

alias remreps { 
 var %i, %j = $regsub($1,/(.)/g,\1 $+ $chr(1),%i), %j = $remove($sorttokcs(%i,1),$chr(1))
 %i = $regsub(%j,/(.)(?=.*?\1)/g,,%j)
 return %j
}

 

[hixxy]

Thanks. ltns btw

[ronnie69]

Wow thanks guys!

 

Out of interest, what is the difference between the codes and is one more effective than the other, e.g which is faster (if any) ?