B4J Question make Clear all comments codes

[SMOOTSARA]

Hello friends
How can I write a program whit B4J for clears the all comments line and free line in B4A?
In fact, an app that makes our writing cleaner and more beautiful?

For example, convert 4 empty lines to 1 empty line
or
clears the all comments line

thank

 

[udg]

You may want to have a look at Regex.
As a simple starting point, a pattern to look for comments could be: ('.*)
It will work on code like:

' this is a comment
dim abc as string
dim def as string = "test" 'inline comment

but will fail for something like:

dim angle as string = "Angle(degrees, primes): 20 45' " 'inline comment

Sorry, I'm not at my PC now so I can't help you further with complete code, but spending some time on Regex (there are quite a few examples on the forum) won't result in a waste of time. Guaranteed.

 

[LucaMs]

but will fail for something like:

and also...

SomeString = "Volevo sviluppare questo tool ma ho preferito fare un'altra cosa"



or

SomeString = "arastoo's house"

 

[Erel]

Start with this non-ui project.
Change the path. Make sure to backup your project before you test it.

#CommandLineArgs: "C:\Users\H\Documents\B4A Samples\B4AServer"
Sub Process_Globals
End Sub

Sub AppStart (Args() As String)
   Dim dir As String = Args(0)
   Dim rx As RegexBuilder
   rx.Initialize.StartNonCapture.AppendEscaped(".bas").EndNonCapture.AppendOr.StartNonCapture.AppendEscaped(".b4").Append(rx.CharAny).EndNonCapture
   rx.AppendEndString
   For Each f As String In File.ListFiles(dir)
       If Regex.Matcher2(rx.Pattern, Regex.CASE_INSENSITIVE, f).Find Then
           RemoveComments(dir, f)
       End If
   Next
End Sub

Sub RemoveComments (Dir As String, FileName As String)
   Dim NewLines As List
   NewLines.Initialize
   Dim lines As List = File.ReadList(Dir, FileName)
   Dim rx As RegexBuilder
   rx.Initialize.AppendStartString.Append(rx.CharWhitespace).AppendZeroOrMore.AppendEscaped("'")
   For Each line As String In lines
       If Regex.Matcher(rx.Pattern, line).Find Then
           Continue
       End If
       NewLines.Add(line)
   Next
   File.WriteList(Dir, FileName, NewLines)
   Log($"File: ${FileName}, removed ${lines.Size - NewLines.Size} lines."$)
End Sub

 

[Erel]

RegexBuilder: https://www.b4x.com/android/forum/threads/83495/#content

 

[LucaMs]

The code above is... not commented enough

(then I have to study it too much)


P.S. to avoid misunderstanding: "you" want to delete comments that are always very useful.

 

[Erel]

It is really simple. You just not to read it carefully and it will be clear.

 

[LucaMs]

It is really simple. You just not to read it carefully and it will be clear.

Please, read my "P.S."

 

[LucaMs]

I meant to say that it is absurd to want to delete comments from souce codes; so, jokingly, I wrote that I miss the comments in that code.

 

[LucaMs]

Moreover, I had forgotten the existence of RegexBuilder and "I see" that is very useful for those who, like me, are not familiar with regular expressions.

 

[Erel]

I agree that automatically removing comments sounds counter productive.