Help! InDesign CS4 Unused Paragraph Styles Alert message

Question

Below is the script that I have download from Adobe Forum.
This script deletes all the unused paragraphstyles from active document in InDesign CS4.
I want to modify this script to show only alert message for unused style and save report as a text file.
I don't want to remove my unused style from my active document.
Please help.
var myDoc = app.activeDocument;
var myParStyles = myDoc.paragraphStyles;
var myCharStyles = myDoc.characterStyles;
for (j = myParStyles.length-1; j >= 2; j-- ) {
removeUnusedParaStyle(myParStyles[j]);
for (i = myCharStyles.length-1; i >= 1; i-- ){
removeUnusedCharStyle(myCharStyles[i]);
function removeUnusedParaStyle(myPaStyle) {
app.findTextPreferences = NothingEnum.nothing;
app.changeTextPreferences = NothingEnum.nothing;
app.findTextPreferences.appliedParagraphStyle = myPaStyle;
var myFoundStyles = myDoc.findText();
if (myFoundStyles == 0) {
myPaStyle.remove();
app.findTextPreferences = NothingEnum.nothing;
app.changeTextPreferences = NothingEnum.nothing;
} function removeUnusedCharStyle(myChStyle) {
app.findTextPreferences = NothingEnum.nothing;
app.changeTextPreferences = NothingEnum.nothing;
app.findTextPreferences.appliedCharacterStyle = myChStyle;
var myFoundStyles = myDoc.findText();
if (myFoundStyles == 0) {
myChStyle.remove();
app.findTextPreferences = NothingEnum.nothing;
app.changeTextPreferences = NothingEnum.nothing;
}a

Answer 1

Hi,
Thanks for your reply. It helps to show only single paragraph style on alert box.
But if I have changed the code write(myPaStyle.name) to $.writeln(myPaStyle.name) then it shows unused style one by one on alert message.
Is anybody know how to save this message into text file in computer?
And also how to show all unused styles together on alert dialog message.
Please let me know.