读取 python 中的 Cobol (.cbl) 文件并从中提取注释行

Question

我有一个包含很多行的 .cbl 文件。我想阅读它并将注释行提取到一个 .txt 文件中。

例如：

a.  000200* PROGRAM-ID. AP540P00.
(or)
b.        * PROGRAM-ID. AP540P00.

我需要检查第 7 个位置的 *。提取所有注释行后将其打印到文本文件中。

我这样做了：

with open('AP540P00.cbl', 'r') as f:
    for line in f:
        s = set(line)
        if ('*' in s ):
            print(line)

但我只需要在每行的第 7 个索引处专门检查 *。

Answer 1

第 7 列中的“*”或“/”或该行任意位置的“*>”。
写入文本文件。
Python3.7

代码：

line = ''
fout = open('z:comments.txt', 'wt')
x = open('z:code.txt', 'rt')
for line in x:
    if len(line) > 6 and (line[6] == '*' or line[6] == '/' \
                or line.find('*>') > -1):
            fout.write(line)
fout.close()

输入：

000200* PROGRAM-ID. AP540P00.
      * PROGRAM-ID. AP540P00.
       code
       code 
      * comment 1

       code 
       code *> in-line comment 
      * comment 2
       code 
       code 
      / comment 3
       code 
       code 
      * comment 4
       code 
       code

输出：

000200* PROGRAM-ID. AP540P00.
      * PROGRAM-ID. AP540P00.
      * comment 1
       code *> in-line comment 
      * comment 2
      / comment 3
      * comment 4

读取 python 中的 Cobol (.cbl) 文件并从中提取注释行

Reading a Cobol (.cbl) file in python and extract the commented lines from it

python-3.x

comments

cobol