LabWindows/CVI
search and replace string in a CVI file
>
If you want to batch-change some code in the source files, you can always
> install cygwin which will give you a perl in windows.
good advice, Guillaume
although perl is also available standalone, you also get bash with cygwin, which is much more powerful than lame cmd.exe.
see the following perl script rxr.pl as example:
#!/usr/bin/perl
$searchfor = $ARGV[0];
$replacewith = $ARGV[1];
$error=0;
if ($searchfor eq "") {
print "Regular Expression and String Replacement\nWritten by Ulli Meybohm, www.meybohm.de\n";
print "Usage : rxr.pl from [to]\n\n";
print "Program reads filelist from stdin and replaces every\n";
print "\"from\"-String to \"to\"-string in these files.\n";
print "If \"to\" is empty, every \"from\" string will be deleted.\n";
print "Check the sourcecode, \"man perl\" and \"man perlre\" for more information.\n\n";
print "Example 1: rxr \"umeybohm\@aol.com\" \"ulli\@meybohm.de\" < homepagefiles.lst\n";
print " This example replaces the old mail-address with my new one\n";
print " in every file listed in homepagefiles.lst.\n";
print "Example 2: find * | grep \".html\" | rxr \"meybohm\@gmx.de\" \"ulli\@meybohm.de\"\n";
print " Does the same as E1, but replaces in every \".html\"-file\n";
print " recursively from the current working directory.\n";
exit 1;
}
@files=<stdin>;
foreach $file (@files) {
print "Processing ";
print $file;
chop $file;
if (-e $file) {
open(INPUT, "<$file");
@text=<INPUT>;
close (INPUT);
foreach $row (@text) {
$row=~s/$searchfor/$replacewith/ixg;
}
open(OUTPUT, ">$file");
print OUTPUT @text;
close(OUTPUT);
} else {
print "File does not exist! Skipping...\n";
$error++;
}
}
if ($error > 0) {
print "Finished with ";
print $error;
print " errors!\n";
}
> install cygwin which will give you a perl in windows.
good advice, Guillaume
although perl is also available standalone, you also get bash with cygwin, which is much more powerful than lame cmd.exe.
see the following perl script rxr.pl as example:
#!/usr/bin/perl
$searchfor = $ARGV[0];
$replacewith = $ARGV[1];
$error=0;
if ($searchfor eq "") {
print "Regular Expression and String Replacement\nWritten by Ulli Meybohm, www.meybohm.de\n";
print "Usage : rxr.pl from [to]\n\n";
print "Program reads filelist from stdin and replaces every\n";
print "\"from\"-String to \"to\"-string in these files.\n";
print "If \"to\" is empty, every \"from\" string will be deleted.\n";
print "Check the sourcecode, \"man perl\" and \"man perlre\" for more information.\n\n";
print "Example 1: rxr \"umeybohm\@aol.com\" \"ulli\@meybohm.de\" < homepagefiles.lst\n";
print " This example replaces the old mail-address with my new one\n";
print " in every file listed in homepagefiles.lst.\n";
print "Example 2: find * | grep \".html\" | rxr \"meybohm\@gmx.de\" \"ulli\@meybohm.de\"\n";
print " Does the same as E1, but replaces in every \".html\"-file\n";
print " recursively from the current working directory.\n";
exit 1;
}
@files=<stdin>;
foreach $file (@files) {
print "Processing ";
print $file;
chop $file;
if (-e $file) {
open(INPUT, "<$file");
@text=<INPUT>;
close (INPUT);
foreach $row (@text) {
$row=~s/$searchfor/$replacewith/ixg;
}
open(OUTPUT, ">$file");
print OUTPUT @text;
close(OUTPUT);
} else {
print "File does not exist! Skipping...\n";
$error++;
}
}
if ($error > 0) {
print "Finished with ";
print $error;
print " errors!\n";
}
