Alias remini {
  if ($1 == -w) {
    var %filename = $2

    set -u0 %RemIni.Matches 0
    var %start = $read(%filename,s, $+([,$3,]) )
    var %start = $readn
   [color:blue] ;If %start is 0 that mean we don't find the section what we need[/color] 
    if (%start == 0) return
    [color:blue];Start search from the next line[/color] 
    var %i = $calc(%start + 1)
    var %lines = $lines(%filename)

    while (%i <= %lines) {
      var %CurLine = $read(%filename,%i)
      var %CurKey = $gettok(%CurLine,1,61)
      [color:blue];If is null that mean the curent line is somthink like [blabla].. Other section[/color] 
      if (%CurKey == $null) return
      if ($4 iswm %CurKey) {
        write -dl $+ %i %filename
        inc -u0 %RemIni.Matches
        [color:blue];DOn't do inc %i because we just deleted a line.. [/color] 
        [color:blue];And the next line is now curent line[/color] 
        goto Continue
      }
      inc %i
      :Continue
      ;End of while
    }
    ;End of If
  } 
  else {
    !remini $1-
  }
  ;End of alias
}

alias remini {
  if -*w* !iswm $1 { remini $1- | return }
  if !$regex($2-,/^("[^"]+"|\S+) (\S+) (\S+)/) { return }
  [color:green]; done with error checking[/color]
  tokenize 32 $regml(2) $regml(3) $regml(1)
  if $ini($3-,$1,0) {
    window -h @@
    loadbuf -t $+ $1 @@ $3-
    filter -wwcx @@ @@ $2=*?
    if $ifmatch != $filtered {
      remini $3- $1
      iline @@ 1 [ $+ $1]
      filter -wf @@ $3-
    }
    close -@ @@
  }
}