mIRC Home    About    Download    Register    News    Help

Print Thread
$replace #70894 10/02/04 07:30 AM
Joined: Aug 2003
Posts: 27
F
fez Offline OP
Ameglian cow
OP Offline
Ameglian cow
F
Joined: Aug 2003
Posts: 27
make it so that $replace can't be used against itself!!!!!

e.g., %n = $replace($1-,a,n,n,a)
changes "anan" to "aaaa"

when in fact i just want it to swap the two chars



Re: $replace #70895 10/02/04 11:00 AM
Joined: Dec 2002
Posts: 774
T
theRat Offline
Hoopy frood
Offline
Hoopy frood
T
Joined: Dec 2002
Posts: 774
I made this while back:
Code:
replace2 {
  if ( $isid ) {
    var %temp = $1
    var %check
    var %i = 1, %ii = $0 / 2
    while ( %i <= %ii ) {
      var %replace = $($+($,$calc( %i * 2 )),2)
      var %replace2 = $($+($,$calc( %i * 2 + 1)),2)
      var %j = 1
      while ( $pos( $1 , %replace , %j ) ) {
        var %pos = $pos( $1 , %replace , %j )
        var %replacecheck = $calc( %pos + $replacecheck( %check , %pos) )
        var %replacecheck = $iif(%replacecheck > 0,$ifmatch,0)
        var %mid1 = $iif(%pos > 1,$mid( %temp , 0 , $calc( %replacecheck - 1 ) ) )
        var %mid2 = $mid( %temp , $calc( %replacecheck + $len( %replace ) ) , $mid( %temp , %replacecheck , 0 ) ) 
        var %temp = $+( %mid1 , %replace2 , %mid2 )
        var %check = $+( %check , %pos , . , $len( %replace2 ) , . , $len( %replace ) , - ) 
        inc %j
      }
      inc %i
    }
    return %temp
  }
  else echo $color(info) -a REPLACE2 is identifier
}

replacecheck { 
  var %temp = 0
  if (( isid ) && ( $1 )) {
    var %pos = $2 
    var %i = 1
    while ( $gettok($1,%i,45) ) {
      if ( $gettok($gettok($1,%i,45),1,46) <= %pos ) {
        %temp = %temp + $gettok($gettok($1,%i,45),2,46)
        %temp = %temp - $gettok($gettok($1,%i,45),3,46)
      }
      inc %i
    }
  }
  return %temp
}


Code:
//if ( khaled isgod ) echo yes | else echo no
Re: $replace #70896 11/02/04 03:26 AM
Joined: Sep 2003
Posts: 4,230
D
DaveC Offline
Hoopy frood
Offline
Hoopy frood
D
Joined: Sep 2003
Posts: 4,230
no way buddy, i use that feature of $replace all the time.

just do this for ya replace

%n = $replace($1-,a,~,n,a,~,n)

changes "anan" to "~n~n" to "~a~a" to "nana"

Re: $replace #70897 11/02/04 04:33 PM
Joined: Jan 2003
Posts: 2,523
Q
qwerty Offline
Hoopy frood
Offline
Hoopy frood
Q
Joined: Jan 2003
Posts: 2,523
Here's a faster/shorter solution:
Code:
alias replacex {
  if $0 == 1 || $0 !& 1 { echo -seic info * Invalid parameters: $!replacex | halt }
  var %i = 2, %s = $1, %c = $iif($prop != cs,i)
  while %i < $0 {
    !.echo -q $regsub(%s,$+(/\Q,$replacecs($ [ $+ [ %i ] ],\E,\E\\E\Q),\E(?=[^\n\r]*(?:$|\n))/g,%c),$+($lf,$replace($ [ $+ [ $calc(%i + 1) ] ],\,\\,$,\$),$cr),%s)
    inc %i 2
  }
  $iif($isid,return,echo -a) $remove(%s,$cr,$lf)
}
Note: if you use the .cs property, like $replacex(string,one,two,three,four).cs, it becomes case-sensitive, ie equivalent to $replacecs().


/.timerQ 1 0 echo /.timerQ 1 0 $timer(Q).com
Re: $replace #70898 19/02/04 05:44 PM
Joined: Aug 2003
Posts: 27
F
fez Offline OP
Ameglian cow
OP Offline
Ameglian cow
F
Joined: Aug 2003
Posts: 27
1. I'm not your buddy
2. i do not merely wish to swap 2 chars, i wish to replace large groups of chars, e.g.,
$replce($1-,a,z,b,y,c,x,d,w....),
3. in maintaining standard, 'predictable' output, khaled has tried to make mirc functions as similar to their c/c++/perl/whatever counterparts as possible; this should be no exception
4. the fact that you 'use this feature all the time' is not compelling enough for this bug to be ignored

Re: $replace #70899 19/02/04 05:45 PM
Joined: Aug 2003
Posts: 27
F
fez Offline OP
Ameglian cow
OP Offline
Ameglian cow
F
Joined: Aug 2003
Posts: 27
qwerty: thanks ....

peace

Re: $replace #70900 19/02/04 05:56 PM
Joined: Dec 2002
Posts: 3,138
C
Collective Offline
Hoopy frood
Offline
Hoopy frood
C
Joined: Dec 2002
Posts: 3,138
How is it a bug? At worst it is a minor inconsistency.

A) It doesn't crash mIRC.
B) The way it works doesn't go against what it says in the helpfile.

Re: $replace #70901 19/02/04 08:27 PM
Joined: Sep 2003
Posts: 4,230
D
DaveC Offline
Hoopy frood
Offline
Hoopy frood
D
Joined: Sep 2003
Posts: 4,230
1. Im sorry your antisocial, everyones my buddy (i might get a free beer that way)
2. well how to do that was explained, if it doesnt fit your requirements a short script can do a single pass search and replace (qwerty even wrote ya one)
3. are you sepeculating on what khaled was doing or can you back that up with a comparable replace function?
4. the fact that you call it a bug multiple times doesnt make it one either, and the fact that I and others well be using this feature of the $replace is a verygood reason not to change the feature (behavour would have been a better word i guess).
heres an example of something that might need/use this behavour

Code:
 
setup {
  window -c @window
  ;
  ; a window exists as follows...
  window -el -t15,30,45,60,75 @window
  ;
  ; example line in window
  aline -l @window $+(first,$chr(9),second,$chr(9),third,$chr(9),forth,$chr(9),fifth,$chr(9),sixth)
  aline -l @window - 
  aline -l @window $replace($+(--->first,$chr(9),-->second,$chr(9),->third,$chr(9),>forth,$chr(9),->fifth,$chr(9),--->sixth),-,$chr(160))

}
;
example1 {
  rline @window 1 $replace( $+($chr(2),$line(@window,1,1)) ,$chr(9),$+($chr(9),$chr(2)) ,$+($chr(2),$chr(2)),$null )
}
;
example2 {
  rline @window 3 $replace( $+(-,$line(@window,3,1)) ,$chr(160),-, $chr(9),$chr(9) $+ - ,------->,>------- ,>-,> ,-,$chr(160) )
}
 


/setup
/example1
;^ switches bold of and on (not the same as just adding a bold at the front due to the way Tabs work
/example2
;^ pushes across the text tell 8 squares then cycles the pushing pointer

Each of those examples could be used in a legit type script, and rely apon the behavour of $replace to rescan the text after each search and replace value.