Advanced Search

Downgrade Visual Studio project

/ Published in: Perl
Save to your folder(s)
Some (all?) Visual Studio projects can be opened with older versions without problems once their version numbers have been reduced. The following Perl script does this; it also recurses over the projects contained in a project folder (.sln) file. It saves you upgrading all your installations.

Expand | Embed | Plain Text

Copy this code and paste it in your HTML 
  1. #!/usr/bin/perl -w
  2.  
  3. use strict;
  4.  
  5. my $targetver= 9;
  6. my %veryear= ( 8 => 2003, 9 => 2005, 10 => 2008 );
  7. my $year= $veryear{$targetver};
  8. my $projver= $targetver - 1;
  9.  
  10. sub downsln
  11. {
  12.   my ($fname)= @_;
  13.  
  14.   if( ! open IN, "<$fname" ) {
  15.     print STDERR "Could not open $fname: $!\n";
  16.     return;
  17.   }
  18.   local $/;
  19.   my $data= <IN>;
  20.   close IN;
  21.   print "Downgrading $fname...\n";
  22.   $data =~ s/((?:^|\n).*\bVisual Studio\b.*\bFormat Version\b.*?)\d+\.\d+/$1$tar
  23. getver.00/
  24.         or print STDERR "Could not replace version number in $fname\n";
  25.   $data =~ s/\n\#\s+Visual .*20\d\d/\n\# Visual Studio $year/
  26.         or print STDERR "Could not replace release year in $fname\n";
  27.   if( rename($fname, "$fname.down") && open(OUT, ">$fname") ) {
  28.     print OUT $data;
  29.     close OUT;
  30.   }
  31.   else {
  32.     print STDERR "Could not rename / write $fname.\n";
  33.   }
  34.   my @projs= $data =~ /\nProject.*?=.*?,\s*\"([^"]+)\"/g;
  35.   my $basedir= $fname;
  36.   $basedir =~ s![^/]*$!!;
  37.   for (@projs) {
  38.     downproj($basedir . $_, $fname);
  39.   }
  40. }
  41.  
  42.  
  43. sub downproj
  44. {
  45.   my ($fname, $slnname)= @_;
  46.  
  47.   if( ! open IN, "<$fname" ) {
  48.     print STDERR "Could not open $fname: $!\n";
  49.     return;
  50.   }
  51.   local $/;
  52.   my $data= <IN>;
  53.   close IN;
  54.   print "Downgrading $fname...\n";
  55.   $data =~ s/\n(\s*Version\s*=\s*\")\d+([,.])\d+\"/\n$1$projver${2}00\"/
  56.         or print STDERR "Could not replace version number in $fname\n";
  57.   if( rename($fname, "$fname.down") && open(OUT, ">$fname") ) {
  58.     print OUT $data;
  59.     close OUT;
  60.   }
  61.   else {
  62.     print STDERR "Could not rename / write $fname.\n";
  63.   }
  64. }
  65.  
  66.  
  67. for my $arg (@ARGV)
  68. {
  69.   $arg =~ s/\\/\//g;
  70.   $arg =~ s/^([a-z]):\//\/cygdrive\/$1\//i;
  71.   if( $arg =~ /\.sln$/ ) {
  72.     downsln($arg);
  73.   }
  74.   else {
  75.     downproj($arg);
  76.   }
  77. }

Report this snippet


Comments

RSS Icon Subscribe to comments

You need to login to post a comment.