Reorder Resource ID Macro

Roy Luo

Rate me:

3.00/5 (2 votes)

10 Aug 2001CPOL

49.3K

This simple macro helps to Reorder Resource ID in resource.h

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

VBScript

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)

Written By

Roy Luo

Web Developer

China

This member has not yet provided a Biography. Assume it's interesting and varied, and probably something to do with programming.

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

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.

Reorder Resource ID Macro

Introduction

The Macro Code

History

License

Comments and Discussions