better solution

I am cutting required pages detemined with conditions . Is there a better solution under awk for sucj task ?

My program like this :

BEGIN {
fn=ENVIRON["filename"]
codeawk=ENVIRON["code"]
gsub(/\\/,"/",fn)
q=fn codeawk"_data_P.txt"
old=ENVIRON["filename"] codeawk"_data_P.log"
system ("del "old"")
q1=ENVIRON["filename2"]
flag="N"
countera=1
old_checked_account=""

"echo %date%" | getline print_date
"echo %time%" | getline print_time
legend=substr($0,38,18)
if (codeawk==101) req_branch="ÇáÞÇåÑÉ"
if (codeawk==102) req_branch="ÇáãæÓßí"
if (codeawk==103) req_branch="ÔÑíÝ"
if (codeawk==104) req_branch="ÇáÊÍÑíÑ"
if (codeawk==105) req_branch="ãÕÑ ÇáÌÏíÏÉ"
if (codeawk==106) req_branch="ÇáÒãÇáß"
if (codeawk==107) req_branch="ÍáæÇä"
if (codeawk==108) req_branch="󋄃"
if (codeawk==109) req_branch="ÇáäÒåÉ"
if (codeawk==111) req_branch="ÇáãÚÇÏí"
if (codeawk==112) req_branch="ÇáÚÈÇÓíÉ"
if (codeawk==113) req_branch="ÇáÌíÒÉ"
if (codeawk==114) req_branch="ÇáÝáßí"
if (codeawk==115) req_branch="ÇáÏÞí"
if (codeawk==117) req_branch="ÔÈÑÇ"
if (codeawk==118) req_branch="ÔÈÑÇ ÇáÎíãÉ"
if (codeawk==120) req_branch="ÑæßÓí"
if (codeawk==120) req_branch="ÑæßÓí"
if (codeawk==121) req_branch="ãÏíäÉ äÕÑ"
if (codeawk==122) req_branch="ãÏíäÉ äÕÑ"
if (codeawk==123) req_branch="ÍÏÇÆÞ ÇáÞÈÉ"
if (codeawk==123) req_branch="ÍÏÇÆÞ ÇáÞÈÉ"
if (codeawk==124) req_branch="ÇáÎÇäßÉ"
if (codeawk==125) req_branch="26íæáíæ"
if (codeawk==126) req_branch="ÇáåÑã"
if (codeawk==127) req_branch="ÇáÍæÇãÏíÉ"
if (codeawk==128) req_branch="15ãÇíæ"
if (codeawk==129) req_branch="6ÃßÊæÈÑ"
if (codeawk==130) req_branch="ÇáÚÇÔÑ ãä ÑãÖÇä"
if (codeawk==144) req_branch="åíÆÉ ÇáÇÓÊËãÇÑ"
if (codeawk==146) req_branch="ÇáÝÇæ"
if (codeawk==147) req_branch="6 ÇßÊæÈÑ ÇáÍì ÇáãÊãíÒ"
if (codeawk==148) req_branch="ÝÑÚ Ô ÌÇãÚÉ ÇáÏæá ÇáÚÑÈíÉ"
if (codeawk==149) req_branch="ÝÑÚ ÇáÍÑíÉ"
if (codeawk==150) req_branch="ÇÑßÇÏíÇ ãæá"
if (codeawk==151) req_branch="ãÓÇßä ÇáÔíÑÇÊæä"
if (codeawk==152) req_branch="ãÕÑ æÇáÓæÏÇä"
if (codeawk==153) req_branch="ÇáäÒåÉ ÇáÌÏíÏÉ"
if (codeawk==154) req_branch="Çáäíá ÈÇáÚÌæÒÉ"
if (codeawk==155) req_branch="ÝÑÚ ÇáÈÍÑ ÇáÃÚÙã"
if (codeawk==156) req_branch="ÝÑÚ ÓíÊì ÓÊÇÑÒ"
if (codeawk==157) req_branch="ÝÑÚ ÓíÊì ßáæÈ ãæá"
if (codeawk==158) req_branch="ÇáÎáíÝÉ ÇáãÃãæä"
if (codeawk==159) req_branch="ÝÑÚ Çáãäíá"
if (codeawk==160) req_branch="ÇáÍì ÇáÃæá ÈÇáÚÇÔÑ ãä ÑãÖÇä"
if (codeawk==162) req_branch="ÌÇÑÏä ÓíÊì"
if (codeawk==163) req_branch="ÇáÒãÇáß ÇáÌÏíÏ"
if (codeawk==201) req_branch="ÇáÇÓßäÏÑíÉ"
if (codeawk==202) req_branch="ÓÚÏ ÒÛáæá"
if (codeawk==203) req_branch="ÓíÏí ÈÔÑ"
if (codeawk==204) req_branch="ãíäÇ ÇáÈÕá"
if (codeawk==205) req_branch="ØáÚÊ ÍÑÈ"
if (codeawk==206) req_branch="ÓÈæÑÊäÌ"
if (codeawk==207) req_branch="ÇáÓÇÏÇÊ"
if (codeawk==208) req_branch="ãÑÓì ãØÑæÍ"
if (codeawk==209) req_branch="ÈÑÌ ÇáÚÑÈ"
if (codeawk==210) req_branch="ÇÈæ ÞíÑ"
if (codeawk==211) req_branch="ÇáÏÎíáÉ"
if (codeawk==212) req_branch="Ìáíã"
if (codeawk==213) req_branch="ÏãäåæÑ"
if (codeawk==214) req_branch="ÑÔíÏ"
if (codeawk==215) req_branch="ßÝÑ ÇáÏæÇÑ"
if (codeawk==216) req_branch="ÇÈæ ÍãÕ"
if (codeawk==217) req_branch="æÇÏí ÇáäØÑæä"
if (codeawk==218) req_branch="ÓãÇÏ ÇÈæ ÞíÑ"
if (codeawk==218) req_branch="ÓãÇÏ ÇÈæÞíÑ"
if (codeawk==219) req_branch="ÇáäæÈÇÑíÉ"
if (codeawk==220) req_branch="Êæßíá äÇÏí ÇáÞÖÇÉ"
if (codeawk==221) req_branch="ÝÑÚ ÓíÒæÓÊÑíÓ"
if (codeawk==223) req_branch="ßíÑæ ÓíÒæ ãæá"
if (codeawk==301) req_branch="ÇáãäÕæÑÉ"
if (codeawk==302) req_branch="ÇáãÍáÉ"
if (codeawk==303) req_branch="ØäØÇ"
if (codeawk==304) req_branch="ÇáÒÞÇÒíÞ"
if (codeawk==305) req_branch="ÈäåÇ"
if (codeawk==306) req_branch="ÇáãÃãæä"
if (codeawk==307) req_branch="ÏãíÇØ"
if (codeawk==308) req_branch="ãíÊ ÛãÑ"
if (codeawk==309) req_branch="ÔÈíä Çáßæã"
if (codeawk==310) req_branch="ÏÓæÞ"
if (codeawk==311) req_branch="ßÝÑ ÇáÔíÎ"
if (codeawk==312) req_branch="ßÝÑ ÇáÒíÇÊ"
if (codeawk==313) req_branch="ÏßÑäÓ"
if (codeawk==314) req_branch="ÝÇÑÓßæÑ"
if (codeawk==315) req_branch="ÇáÓáÇã"
if (codeawk==315) req_branch="ÇáÓáÇã"
if (codeawk==316) req_branch="ÏãíÇØ ÇáÌÏíÏÉ"
if (codeawk==317) req_branch="ÓãäæÏ"
if (codeawk==318) req_branch="ÝÇÞæÓ"
if (codeawk==319) req_branch="ÈáÞÇÓ"
if (codeawk==319) req_branch="ÈáÞÇÓ"
if (codeawk==320) req_branch="ååíÇ"
if (codeawk==321) req_branch="ÔÑÈíä"
if (codeawk==322) req_branch="Êæßíá ÞåÇ"
if (codeawk==323) req_branch="äÈÑæå"
if (codeawk==324) req_branch="ÇáÈÇÌæÑ"
if (codeawk==325) req_branch="ÞæíÓäÇ"
if (codeawk==326) req_branch="ÇáÓäÈáÇæíä"
if (codeawk==327) req_branch="ÇáÍÇãæá"
if (codeawk==328) req_branch="ØæÎ"
if (codeawk==329) req_branch="ãäØÞÉ ãÈÇÑß ÇáÕäÇÚíÉ ÈÞæíÓäÇ"
if (codeawk==331) req_branch="ãíäÇÁ ÏãíÇØ"
if (codeawk==332) req_branch="Ô ÇáÌãíá"
if (codeawk==333) req_branch="ÇáÌáÇÁ ÈÏãíÇØ"
if (codeawk==335) req_branch="ÇáÈÍÑ ÈßÝÑ ÇáÒíÇÊ"
if (codeawk==401) req_branch="ÇáÝíæã"
if (codeawk==401) req_branch="ÇáÝíæã"
if (codeawk==402) req_branch="Èäí ÓæíÝ"
if (codeawk==403) req_branch="ÇáãäíÇ"
if (codeawk==404) req_branch="ÇÓíæØ"
if (codeawk==405) req_branch="ÓæåÇÌ"
if (codeawk==406) req_branch="ÌÑÌÇ"
if (codeawk==407) req_branch="ÞäÇ"
if (codeawk==408) req_branch="ÇáÇÞÕÑ"
if (codeawk==409) req_branch="ÇÓæÇä"
if (codeawk==410) req_branch="ÈÈÇ"
if (codeawk==411) req_branch="ÏíÑæØ"
if (codeawk==412) req_branch="ÞæÕ"
if (codeawk==413) req_branch="ÇáãäÔÃÉ"
if (codeawk==414) req_branch="äÌÚ ÍãÇÏí"
if (codeawk==415) req_branch="ØåØÇ"
if (codeawk==415) req_branch="ØåØÇ"
if (codeawk==416) req_branch="ÇáÞæÕíÉ"
if (codeawk==417) req_branch="ØãÇ"
if (codeawk==418) req_branch="ãáæì"
if (codeawk==419) req_branch="ßæã ÇãÈæ"
if (codeawk==420) req_branch="ãäÝáæØ"
if (codeawk==421) req_branch="ÇÈæ ÊíÌ"
if (codeawk==422) req_branch="ÇÈäæÈ"
if (codeawk==423) req_branch="ÇáÈáíäÇ"
if (codeawk==424) req_branch="ãÛÇÛÉ"
if (codeawk==425) req_branch="ÓãÇáæØ"
if (codeawk==425) req_branch="ÓãÇáæØ"
if (codeawk==426) req_branch="ÇÈæÞÑÞÇÕ"
if (codeawk==427) req_branch="Èäí ãÒÇÑ"
if (codeawk==428) req_branch="ÏÔäÇ"
if (codeawk==429) req_branch="ÇÓäÇ"
if (codeawk==430) req_branch="Êæßíá ÓäæÑÓ"
if (codeawk==431) req_branch="ÝÜÜÑÚ ÇáÈÏÇÑì"
if (codeawk==433) req_branch="Êæßíá ÇÈæÊÔÊ"
if (codeawk==434) req_branch="Êæßíá ãÌãÚ ÇáÇáæãäíæã"
if (codeawk==435) req_branch="ÓÇÞáÊÉ"
if (codeawk==436) req_branch="Êæßíá ÏÇÑ ÇáÓáÇã"
if (codeawk==437) req_branch="ÇÏÝæ"
if (codeawk==438) req_branch="ÌãåæÑíÉ ÇáÝíæã"
if (codeawk==439) req_branch="Êæßíá ÎÇáÏ Èä ÇáæáíÏ"
if (codeawk==440) req_branch="Èäì ÓæíÝ ÇáÌÏíÏÉ"
if (codeawk==444) req_branch="ÝÑÚ 23 íæáíæ ÈÞääÇ"
if (codeawk==501) req_branch="ÈæÑÓÚíÏ"
if (codeawk==502) req_branch="ÇáÇÓãÇÚíáíÉ"
if (codeawk==503) req_branch="ÇáÓæíÓ"
if (codeawk==504) req_branch="ÇáÚÑíÔ"
if (codeawk==505) req_branch="ÇáÞäØÑÉ ÛÑÈ"
if (codeawk==506) req_branch="ÇáãäØÞÉ ÇáÕäÇÚíÉ"
if (codeawk==507) req_branch="ÈæÑ ÊæÝíÞ"
if (codeawk==508) req_branch="ÑÝÍ"
if (codeawk==510) req_branch="ÔÑã ÇáÔíÎ"
if (codeawk==511) req_branch="ÓÝÇÌÇ"
if (codeawk==512) req_branch="äæíÈÚ"
if (codeawk==513) req_branch="ØæÑ ÓíäÇÁ"
if (codeawk==514) req_branch="Êæßíá ÈæÑ ÝÄÇÏ"
if (codeawk==515) req_branch="Êæßíá ÇáÔíÎ ÒÇíÏ"
if (codeawk==516) req_branch="Êæßíá ÇáÕÈÇÍ"
if (codeawk==518) req_branch="ÇáãÌãÚ ÇáÊÌÇÑì ÎáíÌ äÚãÉ"
if (codeawk==519) req_branch="ÝÑÚ ÓäÊÑ ÇáãßÑãíÉ"

}





{
#print "req_branch",req_branch
legend=substr($0,38,18)

if (legend =="BANK OF ALEXANDRIA")
{
#-----------------------------------
# #definitions for 2 OMR
#---page----------------------

#end_cut=NR+48
#afterP2f_2o=NR-31
#afterP2t_2o=afterP2f_2o+16
#---page----------------------
# cutP2f_1o= NR-34
# cutP2t_1o= cutP2f_1o+1
# afterP2f_1o = NR-32
# afterP2t_1o = afterP2f_1o+17
#line 3
for (ix1=1;ix1<2;ix1++) getline ;
branch=substr($0,0,300)
countbranch=gsub(/^ *| *$/, "",branch)
countbranch=gsub("A","",branch)
countbranch=gsub("E","",branch)
countbranch=gsub(/^ *| *$/, "",branch)


#line 4
for (ix1=1;ix1<2;ix1++) getline ;



#line 5
for (ix1=1;ix1<2;ix1++) getline ;
#after filter

mail_code=substr($0,57,1)

checked_account=substr($0,37,12)

print "searching for P creating data program : " ,checked_account

print "\"",branch,"\""
print "\"",req_branch,"\""
print length(branch)
print length(req_branch)
print mail_code
system (" pause \"\" ")
#&&(mail_code=="P")
if ((req_branch==branch))
{
print "condition satisfied "
if ((checked_account==old_checked_account))
{

print start_cut , "I am start_cut inside equation "
countera ++
print "checked_account" , checked_account
print "old_checked_account",old_checked_account
#start_cut=NR-(50*(countera-1))-4

}





#&&(old_checked_account!="")
if (checked_account!=old_checked_account)
{
print "Writing to Disk"
system ("sed -n \""saved_record","saved_record+47"p\" "fn">>"q"")
countera=1
}
#saved_record=NR

#if ((countera==1))
#{
#start_cut=NR-5
#end_cut=NR+48
#}
#if ((countera>1))
#{
#start_cut=NR-(50*(countera-1))-4
#end_cut=NR-5
#}

#print NR , "I am NR "
#print start_cut , "I am start_cut "
#print end_cut , "I am end_cut "






print "saved_record " saved_record
print "checked_account " , checked_account
print "old_checked_account",old_checked_account
saved_record=NR
old_checked_account=checked_account
old_mail_code=mail_code
old_branch=branch
system ("pause \"\" ")


}
}
}


END {

if ( (customer!=0) || ((customer==0)&&(old_checked_account!="")) )
{
start_cut=NR-53
if (old_checked_account=="") start_cut=1
end_cut=NR
print NR , "I am NR "
print countera , "I am countera "
print start_cut , "I am start_cut "
print end_cut , "I am end_cut "
print q
#system ("pause \"\"")
#system ("sed -n \""start_cut","end_cut"p\" "fn">>"q"")
system ("sed -n \""start_cut","end_cut"p\" "fn">>"q"")
#system ("copy "FILENAME" "post_dir" ")

#start_cut=NR-12
}


if ((customer==0)&&(old_checked_account==""))
{
print"No Data in the filter of : ",fn>> q
}

}

On 8/7/2012 2:49 PM, ehabaziz2001@gmail.com wrote:
> I am cutting required pages detemined with conditions . Is there a better solution under awk for sucj task ?

Post a small program that demonstrates your problem along with some sample input
and the expected output for that input and you will probably get someone to read
your post and respond.

Ed.

On Aug 8, 4:26*pm, Ed Morton <mortons...@gmail.com> wrote:
> On 8/7/2012 2:49 PM, ehabaziz2...@gmail.com wrote:
>
> > I am cutting required pages detemined with conditions . Is there a better solution under awk for sucj task ?
>
> Post a small program that demonstrates your problem along with some sample input
> and the expected output for that input and you will probably get someone to read
> your post and respond.
>
> * * *Ed.

My data file is like this :

customer account 0001 page1
branch :home1
......
customer account 0001 page2
branch :home1
......
Marker End of page2
customer account 0002 page1
branch :home2
......
customer account 0002 page2
branch :home2
......
Marker End of page2
customer account 0003 page1
branch :home3
......
customer account 0004 page2
branch :home3
......
Marker End of page2

I want to choose customers whose branch is home2 and cut them put them
into a separate file like this :
customer account 0002 page1
branch :home2
......
customer account 0002 page2
branch :home2
......
Marker End of page2



I am cutting pages using NR identity and sed to a different file like
below but I have problem with customers whom have 2 pages how to
buffer the first page before reading the new page of the same
customer . My program compares new account with old account and if it
is not the same they copy the page into a separate file using sed
like this :
system ("sed -n \""cut_from","cut_to"p\" "fn">>"q"")





The whole program like this :
------------------------------

{
legend=substr($0,38,18)

if (legend =="BANK OF CYPRUS")
{
#line 3
for (ix1=1;ix1<2;ix1++) getline ;
branch=substr($0,0,300)
countbranch=gsub(/^ *| *$/, "",branch)
countbranch=gsub("A","",branch)
countbranch=gsub("E","",branch)
countbranch=gsub(/^ *| *$/, "",branch)


#line 4
for (ix1=1;ix1<2;ix1++) getline ;



#line 5
for (ix1=1;ix1<2;ix1++) getline ;

#before filter
mail_code=substr($0,57,1)

checked_account=substr($0,37,12)


print "Processing P Program account : " , checked_account

if ((branch~req_branch) && (mail_code=="P"))
{
print "mail_code : " , mail_code

if (checked_account==old_checked_account)
{
countera ++
flag="Y"
}


if ((checked_account!=old_checked_account) )
{
if ((old_checked_account!=""))
{
print NR , "I am NR "
# print saved_record , "I am saved_record "
#print "checked_account " , checked_account
#print "old_checked_account",old_checked_account

if (countera!=1)
cut_from=saved_record-(50*(countera-2))-4
else
cut_from=saved_record-4

cut_to=NR-5
print "checked_account " , checked_account > "m.txt"
print "old_checked_account",old_checked_account> "m.txt"
print countera , "I am countera "> "m.txt"
print cut_from , "I am cut_from " > "m.txt"
print cut_to , "I am cut_to "> "m.txt"
system ("sed -n \""cut_from","cut_to"p\" "fn">>"q"")

}
countera=1
saved_record=NR
old_checked_account=checked_account
}

}




}
}

On 8/14/2012 5:43 AM, happytoday wrote:
> On Aug 8, 4:26 pm, Ed Morton <mortons...@gmail.com> wrote:
>> On 8/7/2012 2:49 PM, ehabaziz2...@gmail.com wrote:
>>
>>> I am cutting required pages detemined with conditions . Is there a better solution under awk for sucj task ?
>>
>> Post a small program that demonstrates your problem along with some sample input
>> and the expected output for that input and you will probably get someone to read
>> your post and respond.
>>
>> Ed.
>
> My data file is like this :
>
> customer account 0001 page1
> branch :home1
> .....
> customer account 0001 page2
> branch :home1
> .....
> Marker End of page2
> customer account 0002 page1
> branch :home2
> .....
> customer account 0002 page2
> branch :home2
> .....
> Marker End of page2
> customer account 0003 page1
> branch :home3
> .....
> customer account 0004 page2
> branch :home3
> .....
> Marker End of page2
>
> I want to choose customers whose branch is home2 and cut them put them
> into a separate file like this :
> customer account 0002 page1
> branch :home2
> .....
> customer account 0002 page2
> branch :home2
> .....
> Marker End of page2

Why do you want the "Marker End of page2" line in your output file? Seems like
that'd be irrelevant.

It looks like all you need is something like this:

BEGIN{ FS = ":" }

/^customer/ {
if (branch == "home2") {
print data
}
data = sep = ""
}

/^branch/ { branch = $2 }

{ data = data sep $0; sep = ORS }

END {
if (branch == "home2") {
print data
}
}

Regards,

Ed.

>
>
> I am cutting pages using NR identity and sed to a different file like
> below but I have problem with customers whom have 2 pages how to
> buffer the first page before reading the new page of the same
> customer . My program compares new account with old account and if it
> is not the same they copy the page into a separate file using sed
> like this :
> system ("sed -n \""cut_from","cut_to"p\" "fn">>"q"")
>
>
>
>
>
> The whole program like this :
> ------------------------------
>
> {
> legend=substr($0,38,18)
>
> if (legend =="BANK OF CYPRUS")
> {
> #line 3
> for (ix1=1;ix1<2;ix1++) getline ;
> branch=substr($0,0,300)
> countbranch=gsub(/^ *| *$/, "",branch)
> countbranch=gsub("A","",branch)
> countbranch=gsub("E","",branch)
> countbranch=gsub(/^ *| *$/, "",branch)
>
>
> #line 4
> for (ix1=1;ix1<2;ix1++) getline ;
>
>
>
> #line 5
> for (ix1=1;ix1<2;ix1++) getline ;
>
> #before filter
> mail_code=substr($0,57,1)
>
> checked_account=substr($0,37,12)
>
>
> print "Processing P Program account : " , checked_account
>
> if ((branch~req_branch) && (mail_code=="P"))
> {
> print "mail_code : " , mail_code
>
> if (checked_account==old_checked_account)
> {
> countera ++
> flag="Y"
> }
>
>
> if ((checked_account!=old_checked_account) )
> {
> if ((old_checked_account!=""))
> {
> print NR , "I am NR "
> # print saved_record , "I am saved_record "
> #print "checked_account " , checked_account
> #print "old_checked_account",old_checked_account
>
> if (countera!=1)
> cut_from=saved_record-(50*(countera-2))-4
> else
> cut_from=saved_record-4
>
> cut_to=NR-5
> print "checked_account " , checked_account > "m.txt"
> print "old_checked_account",old_checked_account> "m.txt"
> print countera , "I am countera "> "m.txt"
> print cut_from , "I am cut_from " > "m.txt"
> print cut_to , "I am cut_to "> "m.txt"
> system ("sed -n \""cut_from","cut_to"p\" "fn">>"q"")
>
> }
> countera=1
> saved_record=NR
> old_checked_account=checked_account
> }
>
> }
>
>
>
>
> }
> }
>