Script to modify a series of .PRG files

I have a need to automate the following process:

Loop through a set of .PRG files that are in a common directory. For each file do the following:
1) Open the file
2) Locate a specific command in the program
3) Delete all commands in the program after the command located in step 2
4) Add a set of dimension commands after the command identified in step 2
5) Launch the PCD2EXCEL wizard to output a .CSV file containing the data from the commands added in step 4
6) Close the file

Has anyone had to do something similar? Is anyone willing to share their code for any or all of these actions?

Thanks for any help.

Ego Murphy over 5 years ago

Wow - this is some top-level work NinjaBadger - well done!
Cancel
Vote Up 0 Vote Down

Sign in to reply

Cancel
NinjaBadger over 5 years ago in reply to Ego Murphy

Thanks Ego Murphy - but like most stuff it's easy when you know how!
Cancel
Vote Up 0 Vote Down

Sign in to reply

Cancel
AndersI over 5 years ago in reply to DaSalo

The parameter should be just A, not /A
Cancel
Vote Up 0 Vote Down

Sign in to reply

Cancel
Kp61dude! over 5 years ago in reply to NinjaBadger

I recommend Notepad++ if you don't already have it.
Cancel
Vote Up 0 Vote Down

Sign in to reply

Cancel
NinjaBadger over 5 years ago in reply to NinjaBadger

Kp61dude! - That was the 'or similar' I was referring to!

I use xml files instead of txt files for storing data in my applications. I find find it invaluable too when viewing structured data.

Also I have a compare plug in for it which makes me do a 5ex wee every time I use it!
Cancel
Vote Up 0 Vote Down

Sign in to reply

Cancel

vpt.se over 5 years ago

'loop through commands deleting once delete command flag has bees set to true

For Each cmd In cmds

If cmd.ID = cmdID Then
  deletecommandflag = True
End If

If deletecommandflag = True Then
[COLOR=#FF0000]cmd.Remove[/COLOR]
End If

Next

First day after vacation, so bear with me...
What if replacing the red marked text with (pseudocode):

SendKeys(SHIFT + CTRL + END) ' selects the text from deleteflag to program end
Wait(250) ' lets give it time to select the text
SendKeys(DELETE) ' delete the selected text