replace : with new line in VBA editor

[pike]

Hi all,
I have VBA code to create a dxf file which has 1500 line compressed with : into about 100 lines

Please Login or Register  to view this content.

I would like to remove all the next line : and replace them with a new line in the VBA editor code so the code is easier to read and work with

Please Login or Register  to view this content.

Alt + 010 in the number pad doesnt work with the VBA editor find and replace tool

any ideas on how the code could be defraged?

[Phil_V]

Personally I would select all & copy it to the clipboard.

Then use something like Notepad++ to do the search and replace (it will easily be able to replace ':' with the newline character.
Then when it is formated correctly copy it back into VBA to replace what you currently have.

[TMS]

I'd be inclined to take the simplistic approach.

Copy it into Word, do the global replace (":" by "^p") and copy it back

Regards

[romperstomper]

I'd probably do that too, but if you want code then run this with your module active (and this code in a different module!):

Please Login or Register  to view this content.

[pike]

Hi Phil_V,
I exported the bas file and opened in Note pad but is the same with alt + 010
Hi TMShucks,
To easy word is the way to go
thanks
It is amazing The file unfragaed and cleaned code added 1,500KB to the file.. not that file size is a problem 2,500kb

[pike]

romperstomper
Thats a keeper
thanks

[romperstomper]

I've just changed the colon to a colon followed by a space - probably safer.

[TMS]

@Pike: you're welcome - makes a change for me to be able to help you ;-)

[pike]

your switched on
yes, the code checks for "C:\ TEMP" folder and if it dosent exist creates it.
Then saves the dxf file to the "C:\ TEMP" folder to be accessed by cad.

[TMS]

@romperstomper: just messing about with your code and I get an error:

Dim cm As CodeModule

User defined type not defined.

What reference(s) do I need to add?

Did you intend to post a new version?

Thanks

[romperstomper]

It needs a reference to the "Microsoft Visual Basic for Applications Extensibility 5.3" library as written, though you could just declare as Object.

[Phil_V]

Hi Phil_V,
I exported the bas file and opened in Note pad but is the same with alt + 010

I know you've now solved this, but for your reference, in Notepad++ you wouldn't use Alt + 010.

In the search and replace box you would search for ": "
In the replace with box you would have "\n"
The search mode would be set to 'Extended' to support the above formatting.

[pike]

Thanks Phil & TMShucks for the help, solutions and new knowledge.