规范.prg

来自「电信级传输专业管理中心传输系统及电路管理系统」· PRG 代码 · 共 43 行

*use c:\task3
go top
do while not eof()
pp=alltrim(传输路由4)
if not('[F]' $ PP)
if '新增155 P' $ PP 
PP='新增155P'+RIGHT(PP,LEN(PP)-AT('P',PP))
replace 传输路由4 with PP
ENDIF
?PP
ss1=at(' ', pp,1)
sub1=subst(pp,1,ss1-1)
RR=ALLTRIM(RIGHT(PP,LEN(PP)-SS1))
ss2=at(' ', RR,1)
sub2=subst(RR,1,ss2-1)
sub3=right(pp,LEN(RR)-ss2)
if ('-' $ sub2) 
if ('SYS' $ RR) .OR. ('-'$ sub3)
sub2_flag=at('-',sub2)
sub21=left(sub2,sub2_flag-1)
sub22=right(sub2,len(sub2)-sub2_flag)
if sub21>sub22
lll=sub1+' '+sub22+'-'+sub21+' '+sub3
replace 传输路由4 with lll
?'  ',sub22+'-'+sub21
endif
endif
endif
ELSE
ss1=at(' ', pp,1)
sub1=subst(pp,1,ss1-1)
sub11=LEFT(sub1,at('-',sub1,1)-1)
sub12=right(sub1,LEN(sub1)-len(sub11)-1)
sub2=right(pp,LEN(RR)-ss1+1)
if sub11>sub12
lll=sub12+'-'+sub11+sub2
replace 传输路由4 with lll
?lll
endif
endif
skip
enddo