ICM3.2,在廣東做過(guò)優(yōu)化的估計(jì)都知道了吧。

@window
@set xh=1
@label ren
@draw(cup,9,1,"ICMv3.2",
cup,2,2,"BSC:",
cup,2,3,"CELL:",
cup,2,4,"CY:")
@form(11,2,8,bsc,11,3,7,cell,11,4,2,xh,
cmdbutton(3,6,"Exit","end"),
cmdbutton(14,6,"OK","me_next_a"))
@label me_next_a
[email=!@windend]!@windend[/email]
@set bsc=upcase(bsc)
@set cell=upcase(cell)
@set i=1
@for x=1 to 30
@for icmband=1 to 10
@set j_{x}_{icmband}=0
@next icmband
@next x
@disconnect
@connect(bsc)
@set xh_x=1
@set n=1
@for f=1 to 30
@set dchno_{f}=""
@next f
@funbusy(20,50)
rlcfp:cell={cell};
@set dch=scan("CBCHHSNHOPDCHNO")
@label cfp
@set dchno=trim(copy(reply(dch+1),61,5))
@if dchno<>"" then
@set dchno_{n}=dchno
@inc(n)
@endif
@set dchno_end=trim(copy(reply(dch+1),1,10))
@inc(dch)
@if dchno_end <>"END" then goto cfp
@set n=n-1
@funbusy(20,50)
rlchp:cell={cell};
@set hop=scan("CHGRHSNHOPMAIOBCCD")
@set hop_1=trim(copy(reply(hop+1),11,5))
@set hop_2=trim(copy(reply(hop+2),11,5))
@set hop_3=trim(copy(reply(hop+3),11,5))
@for imc_x=1 to 5
@set icm_{imc_x}=0
@next imc_x
[email=!@if]!@if[/email] hop_1="ON" or hop_2="ON" or hop_3="ON" then
! @comment("{bsc}{cell} \\ HOP: {hop_1} {hop_2} {hop_3}")
! @goto ren
! @endif
@funbusy(20,50)
rxtcp:Moty=rxotg,cell={cell};
@set tg=scan("RXOTG-")
@set tg=trim(copy(reply(tg),7,3))
@funbusy(20,50)
rxcdp:mo=rxotg-{tg};
@set arfcn=scan("ARFCNTXADTNBPC")
@label ar
@set ar_all_{i}=trim(copy(reply(arfcn+1),1,300))
@if ar_all_{i}="" then goto crp
@inc(arfcn)
@inc(i)
@goto ar

@label crp
@funbusy(20,50)
rlcrp:cell={cell};
@set ic=scan("STATEICMBANDCHBAND")
@set pos_x=copy(reply(ic),1,200)
@set h=pos("ICMBAND",pos_x)
@set p=pos("BPC",pos_x)
@label ic_x
@set icm=copy(reply(ic+1),1,200)
@set icmband=trim(copy(icm,h,3))
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
@if icmband>=1 and icmband<=5 then
@if hop_1="ON" or hop_2="ON" or hop_3="ON" then inc(icm_{icmband})
@endif
!!!!!!!!!!!!!!!!!!!!!!!!!!!!
@if icmband=2 or icmband=3 or icmband=4 or icmband=5 or icmband=1 and hop_1<>"ON" and hop_2<>"ON" and hop_3<>"ON" then
@set bpc=trim(copy(reply(ic+1),p,5))
@set icb=ic
@label bpc_n
@if bpc="" then
@set icb=icb-1
@set bpc=trim(copy(reply(icb+1),p,5))
@endif
@if bpc<>"" then gosub shuju
@if bpc="" then goto bpc_n
@endif
@inc(ic)
@if icm<>"END" then
@goto ic_x
@else
@if xh_x>=xh then goto comm
@inc(xh_x)
@goto crp
@endif
!!!!!!!!!!!!shuju!!!!!!!!!!!!!!!
@label shuju
@for xx=1 to i
@set icm_x=trim(copy(ar_all_{xx},45,6))
@if icm_x=bpc then
@set dch_x=trim(copy(ar_all_{xx},26,6))
@break
@endif
@next xx
@for x=1 to n
@if dch_x=dchno_{x} then break
@next x
@set j_{x}_{icmband}=j_{x}_{icmband}+1
@return
!!!!!!!!!!!!!!shuju_end!!!!!!!!!!!!!!
@label comm
[email=!@window]!@window[/email]
@comment("- {bsc} -- {cell} -- RXOTG-{tg} -- HOP:{hop_1} {hop_2} {hop_3} -- CY={xh} -")
@comment("DCHNOICM1ICM2ICM3ICM4ICM5")
@if hop_1="ON" or hop_2="ON" or hop_3="ON" then
@for ixx=1 to 5
@if length(icm_{ixx})=0 then set icm_{ixx}="{icm_{ixx}} "
@if length(icm_{ixx})=1 then set icm_{ixx}="{icm_{ixx}}"
@if length(icm_{ixx})=2 then set icm_{ixx}="{icm_{ixx}}"
@if length(icm_{ixx})=3 then set icm_{ixx}="{icm_{ixx}} "
@next ixx
@comment(" ALL:{icm_1}{icm_2}{icm_3}{icm_4}{icm_5}")
@else
@for x=1 to n
@if length(dchno_{x})=0 then set dchno_{x}="{dchno_{x}} "
@if length(dchno_{x})=1 then set dchno_{x}="{dchno_{x}}"
@if length(dchno_{x})=2 then set dchno_{x}="{dchno_{x}}"
@if length(dchno_{x})=3 then set dchno_{x}="{dchno_{x}} "
@for ix=1 to 5
@if length(j_{x}_{ix})=0 then set j_{x}_{ix}="{j_{x}_{ix}} "
@if length(j_{x}_{ix})=1 then set j_{x}_{ix}="{j_{x}_{ix}}"
@if length(j_{x}_{ix})=2 then set j_{x}_{ix}="{j_{x}_{ix}}"
@if length(j_{x}_{ix})=3 then set j_{x}_{ix}="{j_{x}_{ix}} "
@next ix
@if hop_1<>"ON" and hop_2<>"ON" and hop_3<>"ON" then comment(" {dchno_{x}}:{j_{x}_1}{j_{x}_2}{j_{x}_3}{j_{x}_4}{j_{x}_5}")
@next x
@endif
@goto ren
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~!
@funbusy(20,50)
@label end
@windend
@quit

[ 本帖最后由 laomaoyixin 于 2009-8-22 19:49 編輯 ]