alias dify {
  if $isid {
    var %dify $1
    var %hCount = $count(%dify, h)
    var %sCount = $count(%dify, s)
    var %nCount = $count(%dify, n)
    if (%hCount && %sCount && %nCount) {
      write b.txt %dify
    }
  }
  else {
    filter -fk a.txt dify *
  }
}

alias dify {
  if $isid {
    var %dify $1
    ; Eğer %dify çok uzunsa, işlem yapma
    if ($len(%dify) > 1000) { ; 1000 uzunluğundan büyükse, işlem yapma
      echo -a "Error: %dify is too long."
      return
    }
    var %hCount = $count(%dify, h)
    var %sCount = $count(%dify, s)
    var %nCount = $count(%dify, n)
    if (%hCount && %sCount && %nCount) {
      ; Eğer %dify büyükse, parçalara ayırıp yazma işlemi yapalım
      ; Satır uzunluğu kontrolü (örnek olarak 1000 karakterden uzun veriyi satırlara bölelim)
      var %lineLength = 1000
      var %startPos = 1
      while (%startPos <= $len(%dify)) {
        var %part = $mid(%dify, %startPos, %lineLength)
        write b.txt %part
        inc %startPos %lineLength
      }
    }
  }
  else {
    filter -fk a.txt dify *
  }
}

alias dify { if ($isid) { var %dify $1 | $regsubex($1,/(\S+)/g,$iif(($count(\1,c) && $count(\1,k) && $count(\1,l)),write b.txt %dify)) } else { filter -f a.txt b.txt * c * k * l * } }