Hi !

I have this input:

12{11}{11110}{80}3456
{123}15{60}9876{8083}34

12{11}({1111})%8%3456
{123}156%9876({883})%34

BEGIN{FS=OFS=""}

{
	a = split($0,b,"{")
	
	for(i=1; i<=a; i++){
	    c = split(b[i],d,"}")
	    
	    for(j=1; j<=c; j++){
	    	e = split(d[j],f,"")
	    	
	    	if(d[j] ~ /0/ && e == 2){
	    		gsub(/0/,"",d[j])
	    		gsub(/$/,"%",d[j])
	    	}
	    	
	    	else if(d[j] ~ /0/ && e > 2){
	    		gsub(/^/,"({",d[j])
	    		gsub(/$/,"})%",d[j])
	    		gsub(/0/,"",d[j])
	    	}
	    	
	    	else if(d[j] !~ /0/){
	    		gsub(/^/,"{",d[j])
	    		gsub(/$/,"}",d[j])
	    	}
	    }
	}
}1

Try this:

awk '{
while(match($0,/\{[^}]*\}/))
{
 inbraces=substr($0,RSTART,RLENGTH)
 if(index(inbraces,"0"))
 {
  if(RLENGTH==4)
  {
   gsub(/0/,"",inbraces);sub(/\{/,"",inbraces);sub(/\}/,"",inbraces)
   inbraces=inbraces "%"
   $0=substr($0,1,RSTART-1) inbraces substr($0,RSTART+RLENGTH)
  }
  else if(RLENGTH>4)
  {
   gsub(/0/,"",inbraces)
   $0 = substr($0,1,RSTART-1) "(" inbraces ")%" substr($0,RSTART+RLENGTH)
  }
 }
 sub(/\{/,"~")
 sub(/\}/,"!")
}
gsub(/~/,"{")
gsub(/!/,"}")
}1' infile

Thanks for your help Elixir !

Unfortunately it doesn't work, the output is the same as the input.

With the code I first posted, my question is how could I print after each if statements?

You make modifications to variables, not $0. So your 1 prints $0, not those modifications. you'd need printf statements at the end of your for loop. for this, i'd use a while match on the substr, like elixir suggested.

A much less efficient but not too complicated shell script alternative:

while IFS= read -r line; do
    printf '%s\n' "$line" |
    tr '{}' '\n\n' |
    sed 'n; /0/!s/.*/{&}/; /0/{/.../s/.*/({&})/; s/.*/&%/; s/0//g;}' |
    paste -sd '\0' -
done < file