如何实现对COBOL中IF语句中自动添加THEN,ELSE,EndIF

Question

类似于美化代码
需求如下：
「IF」语句
必须有「END-IF」语句
必须有「ELSE」语句
例如：
037300     IF  INIGT-O-RET-STS  =  CT-ZEROW
037400       THEN
037500*        ログファイルパス取得
037600         MOVE  INIGT-O-GETDATA   TO  GET-WK-LOGPATH
037700         MOVE  CT-MODE-ARGG     TO  WK-PROC-MODE
037800       ELSE
037900         MOVE  CT-ERR-CD-B       TO  WK-ERRORCD
038000         MOVE  CT-MODE-ERR       TO  WK-PROC-MODE
038100         MOVE  CT-MODE-INIF       TO  WK-ERR-NAIYO
038200     END-IF.

Answer 1

知道是Vb版,我的意思是用VB来实现对COBOL的规范化……

Answer 2

就是文本处理程序嘛
说简单也简单，说复杂也可以复杂
你的要求应该是格式化代码
不同的语言或脚本格式不同要求也不同，还会涉及到表达式的处理，这就麻烦了。
从VB语言的角度来说：If YY=1 Then
   Msgbox "OK"
End If同：
If YY=1 Then Msgbox "OK"是完全一样的，但格式就不是这么回事
如果程序变成以下这样就更加复杂If YY = "File:" & A.CreateFile("C:\JJ",3,3) & Chr(34) & _
TT+B/83+(R^4) & chr(34) Then Msgbox "OK": JJ=-1: Exit Function这样就更加难分析了，我曾经搞过ASP的代码的解码器时碰到过这样的问题，感觉有
点像编操作系统，呵呵，说说而已，起码你应该知道你的问题涉及点什么东西。

Answer 3

我现在面临的问题是不知道该从哪一方面入手,有人能推荐个类似JAVA或者C的格式化代码看看么.谢谢

Answer 4

这用不着编译原理多少知识，首先行读出来，如果某一行是if，那么读下一行，如果下一行是then，就不做处理，将这两行写入到新文件中，如果不是then，就将if写进去，再写个then，再写下一行。