mIRC Home    About    Download    Register    News    Help

Print Thread
#104532 05/12/04 02:11 AM
Joined: Dec 2002
Posts: 397
A
ATMA Offline OP
Fjord artisan
OP Offline
Fjord artisan
A
Joined: Dec 2002
Posts: 397
ok i feel really stupid for asking this but any one know how too put a % between every character in a line? so say i have 1032adc it then becomes 1.0.3.2.a.d.c


Need amazing web design for low price: http://www.matrixn3t.net
Joined: Mar 2004
Posts: 175
Vogon poet
Offline
Vogon poet
Joined: Mar 2004
Posts: 175
Code:
Alias PutStuff {
If ($1) {
var %a = 1
While ($Mid($1-,%a,1)) {
var %b = $iif(%b,%b $+ $Chr($2)) $+ $v1
inc %a
}
return %b
}
}


Syntax: $PutStuff(Put Text Here,AsciiNumber)


- Relinsquish
Joined: Dec 2002
Posts: 397
A
ATMA Offline OP
Fjord artisan
OP Offline
Fjord artisan
A
Joined: Dec 2002
Posts: 397
uh.. doesnt work ;/

Last edited by ATMA; 05/12/04 02:31 AM.

Need amazing web design for low price: http://www.matrixn3t.net
Joined: Nov 2003
Posts: 2,327
T
Hoopy frood
Offline
Hoopy frood
T
Joined: Nov 2003
Posts: 2,327
Code:
alias putstuff { 
  var %a, %b = $regsub($1,/(.)/g,\1 $+ $2,%a)
  return $left(%a,-1)
}


//echo -a $putstuff(abcdefg,.) = a.b.c.d.e.f.g


New username: hixxy
Joined: Feb 2004
Posts: 2,019
Hoopy frood
Offline
Hoopy frood
Joined: Feb 2004
Posts: 2,019
alias putstuff var %a, %b = $regsub($1,/(\S)(?=\S)/g,\1 $+ $2,%a) | return %a

tidy and mine don't differ much, it kinda depends on what you're looking for.

On the string "this is a test":

tidy: t.h.i.s. .i.s. .a. .t.e.s.t
me: t.h.i.s i.s a t.e.s.t

Greets


Gone.
Joined: Aug 2003
Posts: 314
S
Fjord artisan
Offline
Fjord artisan
S
Joined: Aug 2003
Posts: 314
Might be an idea to escape the character $2 in case it's $ or \:

Code:
alias addchr {
  var %x
  .echo -q $regsub($1,/(?<=.)(?=.)/gs,\ $+ $2,%x)
  return %x
}

Joined: Jan 2003
Posts: 2,523
Q
Hoopy frood
Offline
Hoopy frood
Q
Joined: Jan 2003
Posts: 2,523
Unless that char is a number, in which case \ $+ $2 would be empty. To cover this case, I'd use
$regsub($1,/(?<=.)(?=.)/gs,$replace($2,\,\\,$,\$),%x)


/.timerQ 1 0 echo /.timerQ 1 0 $timer(Q).com

Link Copied to Clipboard