_stripComments

[Xenobiologist]

Hi everybody,

anybody an Autoit function to strip all comments from an Autoit source code? (should be fast!)

Thanks for sharing!

Mega

[Melba23]

Xenobiologist,

Obfuscator with /STRIPONLY parameter.

M23

[Xenobiologist]

Xenobiologist,

Obfuscator with /STRIPONLY parameter.

M23

You see the code?

I need the Autoit code for another Autoit script.

Besides, I already asked Jos for the function Obfuscator is using.

[Melba23]

Xenobiologist,

Original:

#AutoIt3Wrapper_Run_Obfuscator=y
#Obfuscator_Parameters=/so
; Comment
; Comment
; Comment
MsgBox(0,"Hi","I'm Obfuscated with /SO")
; Comment
; Comment
; Comment
Exit
; Comment
; Comment
; Comment

Obfuscated with /SO

MsgBox(0,"Hi","I'm Obfuscated with /SO")
Exit

Looks like what you wanted, no?

M23

[ProgAndy]

Xenobiologist,

Looks like what you wanted, no?

M23

He wants do do it in plain AutoIt, without using an external application. I have sent him something I have coded, though. This is what I came up with: (1.1 secs for SQLite.dll.au3, 0.2 secs for WinAPI.au3)

Func _stripComments(ByRef $string)
    ;Author: Prog@ndy
    #Region remove nested block-comments
    $string = StringReplace(StringReplace($string, "#comments-start", "#cs", 0, 2), "#comments-end", "#ce", 0, 2)
    Local $match, $depth, $offset, $start, $CommentsAfterce
    While 1
        $depth = 0
        $match = StringRegExp($string, "(?i)(?m)^\h*#cs\b", 1)
        $start = @extended
        If @error Then ExitLoop
        Do
            $match = StringRegExp($string, "(?i)(?m)^\h*(#cs|#ce)\b", 1, $offset)
            $offset = @extended
            If @error Then Return False
            Switch $match[0]
                Case "#ce"
                    $depth -= 1
                Case Else
                    $depth += 1
            EndSwitch
        Until $depth < 1
        $string = StringLeft($string, $start-4) & StringRegExpReplace(StringMid($string, $offset), ".*", '', 1)
    WEnd
    #EndRegion remove nested block-comments
    $string = StringRegExpReplace($string, '(?m)^((?:[^''";]*([''"]).*?\2)*[^;]*);.*$', '\1') ; remove one-line comments
    Return True
EndFunc

[Mat]

Quick hack and not pretty:

; This is the first comment!

$sString = FileRead(@ScriptFullPath)

; Another comment
$sString = StringRegExpReplace($sString, "(.*)?;.*", "\1") ; End of line comment! (Matches last comment char)

MsgBox(0, "Test", $sString)

Edit: Looks like theres a much better solution above though

Edited January 22, 2010 by Mat

[Melba23]

ProgAndy,

He wants do do it in plain AutoIt, without using an external application

Sorry, my mistake. It has been a long day....

M23

[MvGulik]

whatever Edited February 7, 2011 by MvGulik

[Xenobiologist]

Thanks to all.

I'll have a look whether I can tune the one from Andy.

Mega

[MvGulik]

whatever Edited February 7, 2011 by MvGulik