找回密码  加入

AUTOIT CN

搜索
查看: 1443|回复: 14

[AU3基础] 如何删除代码中的所有用";"号注释的内容?[已解决]

[复制链接]
发表于 2017-2-4 14:22:21 | 显示全部楼层 |阅读模式
本帖最后由 cashiba 于 2017-3-18 09:25 编辑
    Local $sFileOpenDialog = FileOpenDialog($sMessage, _  ;启动浏览文件夹对话框.
                                        @WindowsDir & "\", _
                                        "图像文件 (*.jpg;*.bmp)|视频文件 (*.avi;*.mpg)", _
                                         $FD_FILEMUSTEXIST + $FD_MULTISELECT)
    If @error Then ;提示错误.

想用正则删除注释内容
  1. (?m);.*?$[\n|\r]?
复制代码
首尾的注释都能正确识别
但是代码中间的非注释带;号的没法排除掉
对正则不是太熟,希望正则大神们指点....
发表于 2017-2-4 14:40:04 | 显示全部楼层
因为分号除了注释外只在引号中使用,所以
  1. (?m);[^'"]*?$[\n|\r]?
复制代码
就可以了
 楼主| 发表于 2017-2-4 14:53:40 | 显示全部楼层
感谢指点!忘记排除的写法了,原来是);[^'"]
如果注释里也有引号呢?要再怎么修改一下?
 楼主| 发表于 2017-2-4 14:59:54 | 显示全部楼层
另外,删除空白行用什么符号呢,
比喻说要删除空白行,段落之间只有一个空白行的不删除,有连续两个以上的空白行的只保留一行
想弄一个简单的处理示例源码的代码,删除那些过多的注释,弄得整齐一些方便看,所以要用到正则了
 楼主| 发表于 2017-2-4 15:44:32 | 显示全部楼层
  1. (?m)^[\s][\n\r]?$
复制代码
  1. (?m)^[\s| ]*\r\n$
复制代码
这个删除空白行貌似可以.....
发表于 2017-2-8 15:13:24 | 显示全部楼层
学习了,正则一直觉得很难
 楼主| 发表于 2017-2-8 17:08:14 | 显示全部楼层
  1.     Local $sFileOpenDialog = FileOpenDialog($sMessage, _  ;启动浏览文件夹对话框.
  2.                                         @WindowsDir & "\", _
  3.                                         "图像文件 (*.jpg;*.bmp)|视频文件 (*.avi;*.mpg)", _ ;;是这里有两个"分号";和'引号';怎么办呢.
  4.                                          $FD_FILEMUSTEXIST + $FD_MULTISELECT);这里是样式+扩展样式
  5.                                                                                        


  6.     If @error Then ;启动"浏览"文件夹.
复制代码
复杂点的不知道怎么写正则了......
发表于 2017-2-8 17:35:23 | 显示全部楼层
路过学习一下
发表于 2017-2-24 09:15:51 | 显示全部楼层
本帖最后由 tubaba 于 2017-2-24 09:16 编辑

去年编写过一个脚本迷惑工具,论坛研究这个的不多,我用的办法比较笨,正则运用不够熟练.我是这么操作的,下面三个函数是处理区域注释以及空行..希望可以帮到你


  1. _ScriptPretreatment($sPath, $Flag = 0, $EncodeMode = 512) ;脚本预处理
  2.         If $StopFlag = True Then Return SetError(1, 0, False)
  3.         If $Flag Then _GUICtrlListView_SetItemText($hTab3_ListView1, 1, '正在执行', 2)
  4.         If $LogFlag Then _Log('正在进行脚本预处理...')
  5.         Local $hFile = FileOpen($sPath)
  6.         Local $sSource = FileRead($hFile)
  7.         FileClose($hFile)
  8.         Local $TempLineStr = $sSource
  9.         Local $Pattern3 = '(?<!\r)\n' ;处理换行
  10.         Local $Pattern1 = '(' & "'|" & '")(.*?)(\1)' ;成对引号
  11.         Local $Pattern2 = '([\x1c|\x1d]+)(\x02\x22|\x02\x27)'
  12.         Local $Pattern4 = '(\[[^\[\],]*)(,)' ;中括号内的逗号替换为chr(1)
  13.         $TempLineStr = StringRegExpReplace($TempLineStr, $Pattern3, @CRLF)
  14.         $TempLineStr = StringReplace(StringReplace($TempLineStr, Chr(39) & Chr(39), Chr(29)), Chr(34) & Chr(34), Chr(28)) ;相邻双引号或单引号替换其它符号,为下步做准备
  15.         $TempLineStr = StringRegExpReplace($TempLineStr, $Pattern1, Chr(2) & '${1}${2}${3}' & Chr(3)) ;加入字符串起止标志
  16.         $TempLineStr = StringRegExpReplace($TempLineStr, $Pattern2, '${2}${1}') ;将起始标志前的成对相邻双引号或成对相邻单引号移动到起始标志后
  17.         Local $n = 0
  18.         Do
  19.                 $n += 1
  20.                 If $StopFlag = True Then Return SetError(1, 0, False)
  21.                 $TempLineStr = StringRegExpReplace($TempLineStr, $Pattern4, '${1}' & Chr(1)) ;中括号内的逗号替换为chr(1)
  22.         Until @error = 0 And @extended = 0
  23.         Local $hFile = FileOpen($sPath, 2 + $EncodeMode)
  24.         FileWrite($hFile, $TempLineStr)
  25.         FileClose($hFile)
  26.         If $Flag Then _GUICtrlListView_SetItemText($hTab3_ListView1, 1, '已完成', 2)
  27. EndFunc   ;==>_ScriptPretreatment

  28. Func _RemoveFromScript($sOutPath, $Flag = 0, $EncodeMode = 512)
  29.         If $StopFlag = True Then Return SetError(1, 0, False)
  30.         _FilePretreatment($sOutPath, $Flag, $EncodeMode, 0) ;去除注释
  31.         If $StopFlag = True Then Return SetError(1, 0, False)
  32.         _FilePretreatment($sOutPath, $Flag, $EncodeMode, 1) ;去除空行
  33.         If $StopFlag = True Then Return SetError(1, 0, False)
  34. EndFunc   ;==>_RemoveFromScript

  35. Func _FilePretreatment($sInPutFilePath, $MFlag, $EncodeMode, $Flag)
  36.         If $StopFlag = True Then Return SetError(1, 0, False)
  37.         Local $hFile = FileOpen($sInPutFilePath)
  38.         Local $sStr = FileRead($hFile)
  39.         FileClose($hFile)
  40.         Switch $Flag
  41.                 Case 0 ;去除注释
  42.                         If $MFlag Then _GUICtrlListView_SetItemText($hTab3_ListView1, 2, '正在执行', 2)
  43.                         If $LogFlag Then _Log('正在清除区域注释...')
  44.                         GUICtrlSetData($Label1, '正在清除区域注释...')
  45.                         Local $Pattern1 = '(?m)(?<=^)\h*;.*(\r\n)|(?<=^)\h*;.*'        ;开头是";"的行去除
  46.                         $sStr = StringRegExpReplace($sStr, $Pattern1, '')
  47.                         Local $aRead = StringSplit($sStr, @CRLF, 1 + 2)
  48.                         Local $Pattern2 = '(.*?)(\h*;.*)'
  49.                         Local $Pattern3 = '\x02[^\x02\x03]+?\x03'
  50.                         Local $Pattern4 = '(\.|\||\*|\?|\+|\(|\)|\{|\}|\[|\]|\^|\$|\\)'
  51.                         Local $Pattern5 = '(?s)(?i)(?:\r?\n\h*#cs|\r?\n\h*#comments-start).+?(?:(?:\r?\n\h*#cs|\r?\n\h*#comments-start).+?(?:\r?\n\h*#ce|\r?\n\h*#comments-end))*(?:\s*(?:\r?\n\h*#ce|\r?\n\h*#comments-end))+[^\r\n]*\r?\n' ;区域注释
  52.                         Local $CountLine = UBound($aRead)
  53.                         For $i = 0 To UBound($aRead) - 1
  54.                                 If $StopFlag = True Then Return SetError(1, 0, False)
  55.                                 Local $TempLineStr = $aRead[$i], $TempStr, $SerchStr = ''
  56.                                 If StringRegExp($TempLineStr, $Pattern3) Then
  57.                                         $TempLineStr = StringRegExpReplace($TempLineStr, $Pattern4, '\\${1}') ;转义特殊字符
  58.                                         $TempLineStr = StringRegExpReplace($TempLineStr, $Pattern3, '\\x02.+?\\x03') ;替换为表达式
  59.                                         $SerchStr = StringRegExpReplace($TempLineStr, $Pattern2, '${2}')
  60.                                         If @extended Then $aRead[$i] = StringRegExpReplace($aRead[$i], $SerchStr, '')
  61.                                 Else
  62.                                         $SerchStr = StringRegExpReplace($aRead[$i], $Pattern2, '${2}')
  63.                                         If @extended Then $aRead[$i] = StringReplace($aRead[$i], $SerchStr, '', -1, 1)
  64.                                 EndIf
  65.                                 If $MFlag And Mod($i, 50) = 0 Then _GUICtrlListView_SetItemText($hTab3_ListView1, 2, '已完成' & Chr(32) & $i & '/' & $CountLine, 2)
  66.                         Next
  67.                         $hFile = FileOpen($sInPutFilePath, 2 + $EncodeMode)
  68.                         FileWriteLine($hFile, $sHead)
  69.                         For $i = 0 To UBound($aRead) - 1
  70.                                 FileWriteLine($hFile, $aRead[$i])
  71.                         Next
  72.                         FileClose($hFile)
  73.                         _GUICtrlListView_SetItemText($hTab3_ListView1, 2, '正在清除区域注释...', 2)
  74.                         Local $hFile = FileOpen($sInPutFilePath)
  75.                         Local $sStr = FileRead($hFile)
  76.                         FileClose($hFile)
  77.                         $sStr = StringRegExpReplace(@CRLF & $sStr, $Pattern5, @CRLF)
  78.                         $hFile = FileOpen($sInPutFilePath, 2 + $EncodeMode)
  79.                         FileWrite($hFile, $sStr)
  80.                         FileClose($hFile)
  81.                         If $MFlag Then _GUICtrlListView_SetItemText($hTab3_ListView1, 2, '已完成', 2)
  82.                         GUICtrlSetData($Label1, '清除完成...')
  83.                 Case 1 ;去除空行
  84.                         If $MFlag Then _GUICtrlListView_SetItemText($hTab3_ListView1, 3, '正在执行', 2)
  85.                         If $LogFlag Then _Log('正在清除空行及行首行未空白字符...')
  86.                         GUICtrlSetData($Label1, '正在清除空行及行首行未空白字符...')
  87.                         Local $Pattern1 = '(?m)(?<=^)\h*(.+)'
  88.                         Local $Pattern2 = '(?<!\r)\n' ;处理换行
  89.                         Local $Pattern3 = '\r\n(?=\r\n)|\r\n$'
  90.                         Local $Pattern4 = '^\r\n'
  91.                         $sStr = StringRegExpReplace($sStr, $Pattern1, '${1}') ;删除行首空白符
  92.                         $sStr = StringRegExpReplace($sStr, $Pattern2, @CRLF)
  93.                         $sStr = StringRegExpReplace(@CRLF & $sStr, $Pattern3, '') ;删除空行
  94.                         $sStr = StringRegExpReplace($sStr, $Pattern4, '') ;删除空行
  95.                         $hFile = FileOpen($sInPutFilePath, 2 + $EncodeMode)
  96.                         FileWrite($hFile, $sStr)
  97.                         FileClose($hFile)
  98.                         If $MFlag Then _GUICtrlListView_SetItemText($hTab3_ListView1, 3, '已完成', 2)
  99.                         GUICtrlSetData($Label1, '清除完成...')
  100.         EndSwitch
  101. EndFunc   ;==>_FilePretreatment
复制代码

评分

2

查看全部评分

发表于 2017-2-24 17:47:05 | 显示全部楼层
有现成的
A大的 AuMerger
 楼主| 发表于 2017-2-24 23:39:12 | 显示全部楼层
去年编写过一个脚本迷惑工具,论坛研究这个的不多,我用的办法比较笨,正则运用不够熟练.我是这么操作的,下面三 ...
tubaba 发表于 2017-2-24 09:15

非常感谢.....
殊途同归,最后都是用正则达到目的,每种方法都有精彩之处.
比喻,下面的这句binghc大侠的正则也能很好的达到去除注释的目的:
(?m)(?<=^);.*|(".*?")|(?<!^)\s*;[^\r]+|(?s)#cs(?:(?!#ce).)*#ce
 楼主| 发表于 2017-2-24 23:40:00 | 显示全部楼层
有现成的
A大的 AuMerger
lin6051 发表于 2017-2-24 17:47

A大的不知道用的什么正则语句....
发表于 2017-3-1 09:06:32 | 显示全部楼层
本帖最后由 tubaba 于 2017-3-1 09:07 编辑

回复 11# cashiba


    要考虑到所有情况,试试清除下面这种嵌套的区域注释结构,记得好象也是Afan版主出的题,从下面的代码高亮看出,论坛的高亮模块也是有问题的噢


  1. #cs
  2.         msgbox(48, 0, '不该出现的提示0')
  3. #ce
  4. msgbox(0, 0, 'ok1')
  5. #cs
  6.         #include <Array.au3>
  7.         msgbox(48, 0, '不该出现的提示1')
  8. #ce
  9. msgbox(0, 0, 'ok2')

  10. #cs
  11.         msgbox(48, 0, '不该出现的提示2')
  12.         #cs
  13.                 msgbox(48, 0, '不该出现的提示3')
  14.         #ce

  15.         msgbox(48, 0, '不该出现的提示4')
  16.         #cs

  17.                 msgbox(48, 0, '不该出现的提示5')
  18.         #ce
  19. #ce
  20. msgbox(0, 0, 'ok3')
复制代码
 楼主| 发表于 2017-3-1 17:08:00 | 显示全部楼层
回复  cashiba
要考虑到所有情况,试试清除下面这种嵌套的区域注释结构,记得好象也是Afan版主出的 ...
tubaba 发表于 2017-3-1 09:06

现在只是抽空零零碎碎的学AU3,偶尔用用简单的,还没来得及好好看正则,好多看不懂......
发表于 2019-2-26 00:17:16 | 显示全部楼层
偶尔用用简单的,还没来得及好好看正则
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|小黑屋|手机版|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2019-7-16 19:25 , Processed in 0.078124 second(s), 19 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表