blinkdagger

MATLAB - Blinkdagger Needs Your Help!

13 Jul 2008 Quan Quach 9 comments 1661 views

9 Responses to “MATLAB - Blinkdagger Needs Your Help!”

1. on 14 Jul 2008 at 1:10 am 1Ymihere

   Something like that, perhaps?

   function bd(directory)
    
       if ~nargin, directory = pwd(); end
    
       files = dir(directory);  
    
       for j = 1:numel(files)
           file = files(j).name;
    
           if numel(file) <= 5 || ~strcmp(file(end-3:end), '.txt')
               continue;
           end
    
           file = fullfile(directory, file);
    
           fin  = fopen(file, 'r');
           fout = fopen([file(1:end-4) '_fixed.txt'], 'w');
    
           while true
               line = fgetl(fin);
    
               if ~ischar(line)
                   break;
               end
    
               line = regexprep(line, 'matlab', 'MATLAB', 'ignorecase');
               fprintf(fout, '%s\r\n', line);
           end
    
           fclose(fout);
           fclose(fin);
    
       end
    
   end

2. on 14 Jul 2008 at 1:18 am 2Blake

   function convert2MATLAB(varargin)
   % function to input multiple *.txt or *.html file and replace "matlab" with "MATLAB"
   % anywhere within the file(s)
   %
   %THREE EXAMPLES: 
   % 1) No input (uses uigetfiles)-->; convert2MATLAB() 
   % 2) with 1 user input (1 file)-->;  convert2MATLAB('c:\directory\filename.txt')
   % 3) with 1 user input (2 files, etc.) -->; convert2MATLAB({'c:\directory1\filename1.txt','c:\directory2\filename2.txt'}) 
   % Note: example 3 can have different directory for each file
    
   % Created by: Blake Landry
   % July 13, 2008
   % 
    
   %% USER INPUT SELECTION
   if nargin==1
       filename=varargin{1}; %note filename contains path
       pathname=[];
   else
       [filename, pathname, filterindex] = uigetfile( ...
           {'*.txt','TXT-files (*.txt)';'*.html','HTML-files (*.html)'},...
           'Pick file(s)','MultiSelect', 'on');
       if pathname==0 %user cancelled
           disp('User File Selection Cancelled.')
           return;
       end    
   end
    
   %checks to ensure that filenames are in cell format
   if ~iscell(filename) %only 1 file selected
       filename={filename}; %convert 2 cell
   end
    
   %% LOOP through Files
   disp('Starting....');
   tic;
   for fcount=1:numel(filename)
       %Open and read current input file
       totalFileNameInput=[pathname,filename{fcount}];
       fid = fopen(totalFileNameInput);
       file = textscan(fid, '%s', 'delimiter', '\n','whitespace', '');
       fclose(fid);
    
       %Perform string replacement
       pattern='matlab';
       output=regexprep(file{1},pattern,'MATLAB','ignorecase');
    
       %Create output file string
       fileExtIndex=cell2mat(regexp(filename{fcount},{'.txt','.html'}));
       totalFileNameOutput=[pathname,filename{fcount}(1:fileExtIndex-1),'_fixed',filename{fcount}(fileExtIndex:end)];
    
       %Open and write to current output file
       fid = fopen(totalFileNameOutput, 'wt');
       for i=1:numel(output)
           fprintf(fid, '%s\n', output{i});
       end
       outputStatus=fclose(fid);
    
       %Check Status for file creation
       if outputStatus==0 % write successful    
            statusTag='Success';
       else
           statusTag='FAILED';
       end
       disp(sprintf('%g/%g  %s...  %s  ...%s',fcount,numel(filename),...
           statusTag,totalFileNameOutput,statusTag))
   end
   toc;

3. on 14 Jul 2008 at 12:44 pm 3Quan Quach

   Hello Ymihere and Blake,

   Thanks for your submissions! On first glance, it apperas that both of them will work. I’m going to have to run them to see if the output is as expected. Will update you guys.

   Quan

4. on 14 Jul 2008 at 7:12 pm 4Quan Quach

   Both functions tested, and confirmed working! Thanks fellas!! I always enjoy reading other people’s code because I can learn so much from it. My coding style is drastically different, so it can be difficult to read other’s code sometimes, but well worth it!

   Quan

5. on 14 Jul 2008 at 11:48 pm 5Rob S.

   Hey Quan,

   Here is my contribution to the matlab/MATLAB effort. Hopefully you find the file-handling part helpful so you can select multiple files and also pick a different destination directory if you want.

   Enjoy, Rob

   function fixcolossal
   % Function that corrects Quan's COLOSSAL mistake by capitalizing all
   % instances of matlab (or variants) in the selected text files.
    
   %% Gather text files to fix and where to put them
    
   [files2get path2get] = uigetfile('*.txt',' Select text files to capitalize MATLAB ','Multiselect','on');
   path2put = uigetdir('c:\',' Select Destination Directory for FIXED files!');
    
   %% Main process loop
    
   for i = 1:size(files2get,1)
    
       % read in each file
       if iscell(files2get)
           filename = files2get{i};
       else
           filename = files2get;
       end
       fid = fopen([path2get,filename]);
       str = textscan(fid,'%s','delimiter','\n');
       str = str{1};
       fclose(fid);
    
       % fix
       str2 = regexprep(str, 'matlab', 'MATLAB','ignorecase');
    
       % write output file
       [pathstr,file2put] = fileparts([path2get filename]);
       file2put = ['\',file2put,'_fixed.txt'];
       fid = fopen([path2put file2put],'wt');
       fprintf(fid,'%s\n',str2{:});
       fclose(fid);
    
   end

6. on 15 Jul 2008 at 12:02 am 6Ymihere

   Seems like I am the only one who didn’t know the textscan function.

7. on 15 Jul 2008 at 12:05 am 7Quan Quach

   Ymihere.

   You weren’t the only one . ..

   function matlabChange(name)
   %matlabChange is function created by Quan Quach
    
   %opens the file    
   fid = fopen(name);
   outputFile = fopen([name '_edited.txt'],'w');
    
   %reads line one by one into a cell
    
   while 1
       line = fgetl(fid);
       if line == -1; break; end
       hello = regexpi(line,'matlab');
       for x=1:length(hello)
           line(hello(x):hello(x)+5) = 'MATLAB';
       end
    
    
       fwrite(outputFile, line);
       fprintf(outputFile,'\n');
   end
    
   fclose all

8. on 15 Jul 2008 at 4:31 pm 8ArthurG

   Personally, I would use the following perl one-liner to in-place replace all .txt files in a directory (backing up each fiile to .txt.old):

   perl -i.old -pe “s/matlab/MATLAB/gi;”

   Anyway, here’s my MATLAB implementation. It takes either a file or a directory as input. Also, I altered the code so that capitalization doesn’t get altered if it looks like “matlab” is part of a file path.

   function [] = capitalizeMatlab(dirOrFile)
   % capitalizeMatlab take a directory or file and replaces matlab with MATLAB
   fileStruct = dir(dirOrFile);
   for i=1:numel(fileStruct)
       % only open .txt files
       if isempty(regexp(fileStruct(i).name , '\.txt$'))
           continue
       end
       fileIn = fopen(fileStruct(i).name, 'r');
       newFileName = [fileStruct(i).name(1:end-4) '_fixed.txt'];
       fileOut = fopen(newFileName, 'w');
       while ~feof(fileIn)
           buffer = fgets(fileIn);
           % Replace *all* instances
           % newBuffer = regexprep(buffer, 'matlab', 'MATLAB', 'ignorecase');
    
           % Ignore matlab in directory paths
           newBuffer = regexprep(buffer, '(?<!/)matlab(?!/)', 'MATLAB', 'ignorecase');
           fprintf(fileOut, '%s', newBuffer);
       end
       fclose(fileIn);
       fclose(fileOut);
   end

9. on 15 Jul 2008 at 4:37 pm 9Quan Quach

   Hey Arthur,

   Thanks for the submission. I just recently went back and renamed all our folders to MATLAB or else our images wouldn’t show up!

   Quan

Leave a Reply

Include MATLAB code in your comment by doing the following:

<pre lang="MATLAB">

%insert code here

</pre>

Name

Mail (hidden)

Website