替换串.prg

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

*use c:\task3
go top
do while not eof()
pp=alltrim(传输路由4)
ss='[F]STM'
if (ss $ PP)
ff=at('[F]STM',pp)
lll=stuff(pp,ff,6,'[F] STM')
replace 传输路由4 with lll
endif
skip
enddo