Reorder Resource ID Macro

Introduction

Visual C++ project contains a symbol definition file - named "resource.h" which contains #define directives for each of the symbols used in the project. When you copy some resource from another project to your work project, you may get dup resource id definition - two symbols have the same value.

I wrote this simple macro to reorder the Resource ID in 5 minutes, it works for me. I hope you will find it useful as well.

The Macro Code

Sub ReorderResource()
	Dim objTheDocument
	Dim sSelectedText
	set objTheDocument = ActiveDocument
	Dim nNumber
	Dim nCount
	nCount=1
	if objTheDocument.Name <> "resource.h" then
		MsgBox "This macro only working for resource.h"
		exit sub
	end if
	objTheDocument.Selection.StartOfDocument
	objTheDocument.Selection.FindText ("#define")
	Do
		objTheDocument.Selection.StartOfLine
		objTheDocument.Selection.WordRight dsExtend
		objTheDocument.Selection.WordRight dsExtend
		if objTheDocument.Selection.Text <> "#define " then
			exit do
		end if
		objTheDocument.Selection.EndOfLine
		objTheDocument.Selection.WordLeft dsExtend
		nNumber = int(objTheDocument.Selection.Text)
		if nCount < nNumber then
			nCount = nNumber
		end if
		objTheDocument.Selection.Text = "" & nCount
		nCount = nCount + 1
		objTheDocument.Selection.LineDown
	Loop
End Sub

History

10^th August, 2001: Initial post

License

This article, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

About the Author

Roy Luo

Web Developer

China

Member

Article Top

Poor

Excellent

Add a reason or comment to your vote: x
Votes of 3 or less require a comment

Comments and Discussions

You must Sign In to use this message board. (secure sign-in)

Search this forum
	Profile popups Noise Layout Per page

My version

Philippe Lhoste

2:05 10 Sep '01

I hope you won't mind from me posting my own macros here.
They are not intended to replace your function, but I think they are complementary.
Of course, these macros are more guideline (ideas to pick from) that "use as is", since they are mostly aimed at my particular needs. And they lack checking, hoping that data is well formatted...
Note that therefore, these macros can be used outside resource.h, and for other things that #defines (enums, tables, etc.).

One idea, that can answer the ID_ vs. IDC_ question, is to stop at an empty line: just hit Return to separate the two parts. Note that the macro in the article probably works the same way.

Function SelectDigits(digitNb, bNextLine)
'DESCRIPTION: If nextLine is True, goes to next line, if any.
' Then select the number of characters to the end of the line
' and if they are numbers, returns the selection.
 
  Set sel = ActiveDocument.Selection
  If bNextLine Then
    l = sel.TopLine
    sel.LineDown
    If sel.TopLine = l Then  ' End of file
      SelectDigits = ""
      Exit Function
    End If
  End If
  sel.EndOfLine
  sel.CharLeft dsExtend, digitNb
  If IsNumeric(sel) And Asc(Right(sel, 1)) <> 10 then  ' Number at end of line, no empty line
    SelectDigits = sel
  Else
    SelectDigits = ""
  End If
End Function
'
Sub NumberRowOfNumbers()
'DESCRIPTION: Number a row of numbers before the cursor, starting at the current value.
' The cursor must be at the end of the first line, the series finishes with the first line
' without numbers at its end.
 
  digits = InputBox("Number of digits?")
  if digits = "" then
    exit sub  ' Canceled
  end if
  inc = InputBox("Increment value (can be negative)?")
  if inc = "" then
    exit sub  ' Canceled
  end if
  ' Should test digits & inc values...
  curVal = SelectDigits(digits, False)
  if curVal = "" then
    exit sub
  end if
  curVal = CInt(curVal)
  val = SelectDigits(digits, True)
  While val <> ""
    curVal = curVal + inc
    val = Right("00000" & curVal, digits)
    ActiveDocument.Selection = val
    val = SelectDigits(digits, True)
  Wend
  ActiveDocument.Selection.CharRight  ' Deselect
End Sub
'
Sub IncrementRowOfNumbers()
'DESCRIPTION: Increment a series of numbers at the end of a series of lines.
' The cursor must be at the end of the first line, the series finishes with the first line
' without numbers at its end.
' Useful to make room for a new entry inside a tightly numbered series.
  
  digits = InputBox("Number of digits?")
  if digits = "" then
    exit sub  ' Canceled
  end if
  inc = InputBox("Increment value (can be negative)?")
  if inc = "" then
    exit sub  ' Canceled
  end if
  ' Should test digits & inc values...
  curVal = SelectDigits(digits, False)
  While curVal <> ""
    curVal = CInt(curVal) + inc
    val = Right("00000" & curVal, digits)
    ActiveDocument.Selection = val
    curVal = SelectDigits(digits, True)
  Wend
  ActiveDocument.Selection.CharRight  ' Deselect
End Sub