Diagnostics/DiagUtility/AddSlashesBeforeUnderscores.m

function string = AddSlashesBeforeUnderscores(str)

index = find(str == '_');

if ~isempty(index)
        string = '';
        for ichar = 1:length(index)
        
        if ichar == 1
            i = 1;
        else
            i = index(ichar-1);
        end
        
        string = [string,str(i:index(ichar)-1),'\'];
        end
    
        string = [string,str(index(ichar):end)];
    
else
    string = str;
    
end
1	function string = AddSlashesBeforeUnderscores(str)
2
3	index = find(str == '_');
4
5	if ~isempty(index)
6	string = '';
7	for ichar = 1:length(index)
8
9	if ichar == 1
10	i = 1;
11	else
12	i = index(ichar-1);
13	end
14
15	string = [string,str(i:index(ichar)-1),'\'];
16	end
17
18	string = [string,str(index(ichar):end)];
19
20	else
21	string = str;
22
23	end