;pro clean_filename ; ;PURPOSE: ; ; To remove the nasty extra characters in filenames such as '__', or '_.' ;INPUTS: ; FileName - The filename (a string) ;OUTPUTS: ; FileName - The filename (a string without the bad strings) ; function clean_filename, FileName strreplace, FileName, '__', '_' strreplace, FileName, '__', '_' strreplace, FileName, '_.', '.' strreplace, FileName, '_.', '.' strreplace, FileName, '0000', '0' strreplace, FileName, '0000', '0' ;Take care of double strings strreplace, FileName, '_15_Reads_15_Reads_','_15_Reads_' strreplace, FileName, '_30_Reads_30_Reads_','_30_Reads_' return, FileName end