Click here to Skip to main content
Click here to Skip to main content

Switch between Header and CPP file

, 26 Sep 2001
Rate this:
Please Sign up or sign in to vote.
A simple macro that allows you to quickly switch between associated header and implementation files.
<!-- Main HTML starts here -->

Introduction

A simple macro that allows you to quickly switch between associated header and implementation files. It's only been tested with Visual Studio 6.

Sub HeaderSourceSwitch()
'DESCRIPTION: Switch between .h and .cpp
'Author: Miezoo (miezoo@f2s.com)

	On Error Resume Next
	Dim sExt, sFile
	
	' current file's extension (all lowercase)
	sExt = fileExtension(ActiveDocument.FullName)
	
	' get file's name (without extension)
	sFile = Left(ActiveDocument.Name, Len(ActiveDocument.Name) - Len(sExt) - 1)

	' valid extension?
	If sExt = "h" or sExt = "hpp" or sExt = "hxx" Then
		sFile = sFile & ".cpp"
	ElseIf sExt = "c" or sExt = "cpp" or sExt = "cxx" Then
		sFile = sFile & ".h"
	Else
		MsgBox "Works for .h and .cpp files only!", vbExclamation, "Error"
		Exit Sub
	End If

	' is the file already opened?
	For Each doc In Application.Documents
		If LCase(doc.Name) = LCase(sFile) Then
			doc.Active = True
			Exit Sub
		End If
	Next

	' see which project contains the damn file
	sFile = findFileWithinWorkspace(sFile)
	Documents.Open sFile

	If Err.Number > 0 Then
		MsgBox "Pair file not found :(", vbCritical, "Error"
		Err.Clear
		Exit Sub
	End If

End Sub


Function findFileWithinWorkspace(file)
'DESCRIPTION: Iterates through all projects (*.dsp) within the current workspace
'             and finds which one owns the given file
	Dim project, bFound, sLine
	sLine = Null

	For Each project In Application.Projects
		' open .dsp file as .txt
		Documents.Open project.FullName, "Text", True
		'if this project is "the one", it must contain a line like: SOURCE=.\path\file
		bFound = ActiveDocument.Selection.FindText(file, dsMatchFromStart + dsMatchRegExp)
		If bFound = True Then
			ActiveDocument.Selection.SelectLine
			sLine = ActiveDocument.Selection
			ActiveDocument.Close
			sLine = Left(sLine, Len(sLine) - 2)		' eliminate LF & CR
			sLine = Right(sLine, Len(sLine) - 8)	' eliminate SOURCE=.\
			
			If Left(sLine, 1) <> "." Then
				sLine = filePath(project.FullName) & sLine
			End If
			
			Exit For
		End If
		ActiveDocument.Close
	Next

	findFileWithinWorkspace = sLine
End Function


Function fileExtension(file)
'DESCRIPTION: Returns file extension.
	Dim iPos, iDot
	
	iDot = Null
	Do While True
		iPos = Instr(1, file, ".", 1)
		If iPos = 0 or iPos = Null Then
			Exit Do
		Else
			file = Right(file, Len(file) - iPos)
			iDot = iPos
		End If
	Loop

	If iDot = Null Then
		fileExtension = ""
	Else
		fileExtension = LCase(file)
	End If

End Function


Function filePath(file)
'DESCRIPTION: Returns file path (without the trailing backslash "\").
	Dim iPos, iBS, strPath
	
	strPath = file
	iBS = Null
	Do While True
		iPos = Instr(1, file, "\", 1)
		If iPos = 0 or iPos = Null Then
			Exit Do
		Else
			file = Right(file, Len(file) - iPos)
			iBS = iPos
		End If
	Loop

	If iBS = Null Then
		filePath = ""
	Else
		filePath = Left(strPath, Len(strPath) - Len(file) - 1)
	End If
End Function

License

This article has no explicit license attached to it but may contain usage terms in the article text or the download files themselves. If in doubt please contact the author via the discussion board below.

A list of licenses authors might use can be found here

Share

About the Author

Miezoo

United States United States
No Biography provided

Comments and Discussions

 
GeneralCodeWinPos Pinmembermichaelmakuch19-Jul-07 16:39 
GeneralExcellent, slight fix though PinmemberJohn-Lucas Brown26-Jun-06 1:43 
GeneralDoes the job...Thanks! PinmemberJithendriya16-Sep-05 6:19 
GeneralIt's useful! thank you! Pinmemberxiaohe52112-Sep-05 20:21 
QuestionIsn't that already implemented in VC++? PinmemberAnonymous8-Oct-01 11:55 
GeneralAnother macro that does the job as well... PinmemberRob Schivas4-Oct-01 20:31 
GeneralCodeWiz add-in does a better job PinmemberSplintor2-Oct-01 23:20 
GeneralFilename matching problems PinmemberJanne2-Oct-01 21:58 
GeneralHmmmm PinmemberRob Schivas2-Oct-01 21:15 
GeneralGood I love this macro. PinmemberKevin Cao27-Sep-01 18:51 
GeneralVery handy indeed ! PinmemberEric Nitzsche27-Sep-01 9:12 
General.NET PinmemberThomas Freudenberg27-Sep-01 2:02 
GeneralRe: .NET PinmemberAnonymous28-Sep-01 10:23 
GeneralRe: .NET PinmemberThomas Freudenberg22-Oct-01 10:39 
GeneralRe: .NET PinmemberPavel Sokolov8-Apr-02 0:57 
GeneralRe: .NET PinmemberThomas Freudenberg8-Apr-02 8:27 
GeneralRe: .NET PinmemberS Fewings15-Apr-03 21:51 
JokeRe: .NET PinmemberSnakefoot21-Jun-06 7:12 
GeneralRe: .NET PinmemberThomas Freudenberg21-Jun-06 7:18 
GeneralRe: .NET PinmemberSnakefoot21-Jun-06 7:25 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Rant Rant    Admin Admin   

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

| Advertise | Privacy | Mobile
Web03 | 2.8.141022.2 | Last Updated 27 Sep 2001
Article Copyright 2001 by Miezoo
Everything else Copyright © CodeProject, 1999-2014
Terms of Service
Layout: fixed | fluid