' Clean incorrectly formed line ends
' Drag and Drop file(s) to be cleaned onto this script
' or a shortcut pointing to this script on the desktop
' or in the 'Sendto' folder for right-click access.
'
with createobject("scripting.filesystemobject")
  For each fn in wscript.arguments
    s = .opentextfile(fn, 1).readall
    s = replace(s, vbNewLine,   "|\|")
    s = replace(s, vbLf & vbCr, "|\|")
    s = replace(s, vbLf,        "|\|")
    s = replace(s, vbCr,        "|\|")
    s = replace(s, "|\|", vbNewLine)
    .opentextfile(fn, 2).write s
    msg = msg & "Processed: " & fn & vbNewline
  Next ' fn
End with ' fso
wsh.echo msg, "Done"