Solved

Removing comments (#) from text file

Posted on 2004-10-08
12
130 Views
Last Modified: 2012-05-05
I need to remove comments from a text file, the are all preceded by a # and followed by a carrage return, so basicly all i need to do is file and instance of the # symbol in a variable i've loaded and then delete everything up until it reaches a carrage return, then continue to look for other occurances of # and remove them...here is an example of the file

# change the information
      layer_select layer 11; select rowend; detail_edit 1 shade            ##item1
      layer_select layer 1; select rowend; detail_edit 1 shade      ## item2
      layer_select layer 3; select rowend; detail_edit 1 shade      ## item3

#begin section2

thanks guys
0
Comment
Question by:bernie1774
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 7
  • 3
  • 2
12 Comments
 
LVL 19

Expert Comment

by:Shauli
ID: 12264354
Where do you want the results, in a new text file?
What do you want to do with the preceding lines, such as "# change the information"    do you want to ignore them altogether?

S
0
 
LVL 19

Expert Comment

by:Shauli
ID: 12264437
If the answer to question 1 is yes, and to question 2 is no then:

Private Sub Command1_Click()
Dim myLine As String, mySplit() As String
Open "C:\Documents and Settings\Shauli.MOBILE\My Documents\test.txt" For Input As #1
    Open "C:\Documents and Settings\Shauli.MOBILE\My Documents\final.txt" For Output As #2
        Do Until EOF(1)
            Line Input #1, myLine
                mySplit = Split(myLine, "##", -1)
                If UBound(mySplit) > 0 Or Left(myLine, 1) = "#" Then
                    If mySplit(0) <> "" Then
                        Print #2, Trim(mySplit(0))
                    End If
                End If
        Loop
    Close #2
Close #1
End Sub

S
0
 

Author Comment

by:bernie1774
ID: 12264705
Yes the final results are to be output to a text file, but yes i want to ignore (and delete the comment lines all together).  so

##begin
program_code_is_here  #comment

would be output to the final text file as

program_code_is_here
0
Salesforce Has Never Been Easier

Improve and reinforce salesforce training & adoption using WalkMe's digital adoption platform. Start saving on costly employee training by creating fast intuitive Walk-Thrus for Salesforce. Claim your Free Account Now

 
LVL 86

Accepted Solution

by:
Mike Tomlinson earned 125 total points
ID: 12264742
<Please don't accept this as the answer>

Just some minor modifications to Shauli's code to handle the comments at the end of the lines as well:

Private Sub Command1_Click()
    Dim myLine As String
    Dim poundPos As Integer
    Open "C:\Documents and Settings\Shauli.MOBILE\My Documents\test.txt" For Input As #1
        Open "C:\Documents and Settings\Shauli.MOBILE\My Documents\final.txt" For Output As #2
            Do Until EOF(1)
                Line Input #1, myLine
                    poundPos = InStr(myLine, "#")
                    If poundPos > 0 Then
                        myLine = Trim(Left(myLine, poundPos - 1))
                    End If
                    If myLine <> "" Then
                        Print #2, Trim(myLine)
                    End If
            Loop
        Close #2
    Close #1
End Sub
0
 
LVL 19

Expert Comment

by:Shauli
ID: 12264752
Idle, the comments at the end of the line are being taken care of by the split.

Run mu code with the sample code above

S
0
 
LVL 19

Expert Comment

by:Shauli
ID: 12264755
If you want to get rid of those lines as well then:

Private Sub Command1_Click()
Dim myLine As String, mySplit() As String
Open "C:\Documents and Settings\Shauli.MOBILE\My Documents\test.txt" For Input As #1
    Open "C:\Documents and Settings\Shauli.MOBILE\My Documents\final.txt" For Output As #2
        Do Until EOF(1)
            Line Input #1, myLine
                mySplit = Split(myLine, "##", -1)
                If UBound(mySplit) > 0 Then
                    If mySplit(0) <> "" Then
                        Print #2, Trim(mySplit(0))
                    End If
                End If
        Loop
    Close #2
Close #1
End Sub

S
0
 
LVL 19

Expert Comment

by:Shauli
ID: 12264758
Sorry, one correction:


Private Sub Command1_Click()
Dim myLine As String, mySplit() As String
Open "C:\Documents and Settings\Shauli.MOBILE\My Documents\test.txt" For Input As #1
    Open "C:\Documents and Settings\Shauli.MOBILE\My Documents\final.txt" For Output As #2
        Do Until EOF(1)
            Line Input #1, myLine
                mySplit = Split(myLine, "#", -1)
                If UBound(mySplit) > 0 Then
                    If mySplit(0) <> "" Then
                        Print #2, Trim(mySplit(0))
                    End If
                End If
        Loop
    Close #2
Close #1
End Sub

S
0
 

Author Comment

by:bernie1774
ID: 12264770
that last script is cutting out all but one section of the code for some reason, and also padding it with formatting...if you like i can send you the file i'm working with and you can try it yourself, just give me your email (you can email if you dont want to post it i'm bernie@nyclubkid.com ) thanks
0
 
LVL 86

Expert Comment

by:Mike Tomlinson
ID: 12264778
Did you try my version?

...or you can use this modified version of Shauli's last post:

Private Sub Command1_Click()
Dim myLine As String, mySplit() As String
Open "C:\Documents and Settings\Shauli.MOBILE\My Documents\test.txt" For Input As #1
    Open "C:\Documents and Settings\Shauli.MOBILE\My Documents\final.txt" For Output As #2
        Do Until EOF(1)
            Line Input #1, myLine
                mySplit = Split(myLine, "#", -1)
                If mySplit(0) <> "" Then
                    Print #2, Trim(mySplit(0))
                End If
        Loop
    Close #2
Close #1
End Sub

(Shauli, if there isn't a "#" in the string then Ubound = 0.  You were only outputting if Ubound >0)
0
 
LVL 19

Expert Comment

by:Shauli
ID: 12264784
Idle :) you didn't see my correction were I did exactly what you just posted.

S

0
 
LVL 86

Expert Comment

by:Mike Tomlinson
ID: 12264802
Actually, I took out this conditional in your last submission:

    If UBound(mySplit) > 0 Then

becuase if there isn't a "#" in the string (meaning there was no comment on that line) then the statement

    mySplit = Split(myLine, "#", -1)

will result in an array with only one element at Index 0 and the conditional was only allowing the output if Ubound was greater than zero.

~IM
0
 
LVL 19

Expert Comment

by:Shauli
ID: 12264875
Well, the example of the file above states a comment at the end of each and every line.

S
0

Featured Post

Salesforce Made Easy to Use

On-screen guidance at the moment of need enables you & your employees to focus on the core, you can now boost your adoption rates swiftly and simply with one easy tool.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

When trying to find the cause of a problem in VBA or VB6 it's often valuable to know what procedures were executed prior to the error. You can use the Call Stack for that but it is often inadequate because it may show procedures you aren't intereste…
If you have ever used Microsoft Word then you know that it has a good spell checker and it may have occurred to you that the ability to check spelling might be a nice piece of functionality to add to certain applications of yours. Well the code that…
Get people started with the utilization of class modules. Class modules can be a powerful tool in Microsoft Access. They allow you to create self-contained objects that encapsulate functionality. They can easily hide the complexity of a process from…
This lesson covers basic error handling code in Microsoft Excel using VBA. This is the first lesson in a 3-part series that uses code to loop through an Excel spreadsheet in VBA and then fix errors, taking advantage of error handling code. This l…
Suggested Courses
Course of the Month8 days, 13 hours left to enroll

615 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question