The next one is more complicated, and renames files in "Album format". The script automatically removes illegal characters that Windows will choke on. If the Artist or Title metadata isn't present in the file, the script aborts renaming the file.Ģ. NewFileName := MediaArtist ' - ' MediaTitle WideExtractFileExt(FileName) ġ. While (Length(MediaTitle) > 0) and (MediaTitle = '.') doĭelete(MediaTitle, Length(MediaTitle), 1) so we don't get double periods before the extension. Remove trailing periods from the song title MediaArtist := RemoveIllegal(MediaArtist) Remove and substitute illegal Windows characters. Remove any leading or trailing whitespace. If (Length(MediaArtist) = 0) or (Length(MediaTitle) = 0) then MediaTrackNo := CalculateMetaTag(FilePath, 'WMA_TrackNo') MediaTitle := CalculateMetaTag(FilePath, 'WMA_Title') MediaAlbum := CalculateMetaTag(FilePath, 'WMA_Album') MediaArtist := CalculateMetaTag(FilePath, 'WMA_Artist') ![]() MediaTrackNo := CalculateMetaTag(FilePath, 'FLAC_TrackNo') MediaTitle := CalculateMetaTag(FilePath, 'FLAC_Title') ![]() MediaAlbum := CalculateMetaTag(FilePath, 'FLAC_Album') MediaArtist := CalculateMetaTag(FilePath, 'FLAC_Artist') MediaTrackNo := CalculateMetaTag(FilePath, 'MP3_TrackNo') MediaTitle := CalculateMetaTag(FilePath, 'MP3_Title') MediaAlbum := CalculateMetaTag(FilePath, 'MP3_Album') MediaArtist := CalculateMetaTag(FilePath, 'MP3_Artist') Result := WideReplaceStr(Result, '*', ' ') Result := WideReplaceStr(Result, '?', ' ') Result := WideReplaceStr(Result, '|', ', ') Result := WideReplaceStr(Result, '"', ' ') Result := WideReplaceStr(Result, ':', ' ') ![]() Result := WideReplaceStr(Result, '', ' ') Result := WideReplaceStr(Result, '\', ', ') Result := WideReplaceStr(Result, '/', ', ') Result := WideReplaceStr(Result, ' \ ', ', ') Result := WideReplaceStr(S, ' / ', ', ') Function RemoveIllegal(const S: WideString): WideString
0 Comments
Leave a Reply. |