批量删除层名源代码示例

代码如下：

1. 
   
2. STRING/CATIG(80)
   
3. INEXTN/12
   
4. L10:
   
5.        CATIG=NEXTN/IFEND,END:
   
6.        CATD/CATIG
   
7.        JUMP/L10:
   
8. END:
   
9. HALT
   

复制代码

1# -KASA-

刚试了下，有点小问题，这是完善后的代码：

1. 
   
2. STRING/CATIG(80)
   
3. INEXTN/12
   
4. L10:
   
5.        CATIG=NEXTN/IFEND,END:
   
6.        IF/CATIG=='ALL',JUMP/L10:
   
7.        CATD/CATIG
   
8.        JUMP/L10:
   
9. END:
   
10.         MESSG/'删除完毕！'
    
11. HALT
    

复制代码

源文件如下：

占位

怎么样才能实现从层至层的删除

好，谢谢，十分。

catv是怎么用的

6# jiayuliao

这里是doc中的原文：希望对你有帮助。
Query Category
Synopsis
CATV/'name'[,LAYER,layers,CNT,count][,DESCR,'description'][,IFERR,label:]

Description
Allows you to query the layers and the description in a category.

Parameters
Parameter
Description

'name'
The name of the existing category to query.

LAYER
Minor word which indicates that you want to verify the layers.

layers
The layers in the category are returned in this numeric array. This array should be large enough to hold the layers in the category.

CNT
Minor word which indicates the following number variable is the return area for the number of layers in the category.

count
Numerical return value which holds the actual count of layers in the category.

DESCR
Minor word indicates that you want to verify the description.

'description'
A return area for the description string which can consist of up to 80 characters.

IFERR,label:
Specifies a label to which program execution jumps if an error occurs

number/n
CATV/'name',200,200,CNT,n,IFERR,trm:
print/n
trm:
   halt
这样错在哪里？

你还未完全理解doc中的代码格式，像下面的：
CATV/'name'[,LAYER,layers,CNT,count][,DESCR,'description'][,IFERR,label:]
变成你自己的代码应该是这样：
NUMBER / ly(256)
CATV/'name',LAYER,ly,CNT,n,IFERR,end:

怎么样才能实现从层至层的删除层名,
比如，我要删除5至15层的层名，中间可能第10层没有命名的
请楼主指点