Курсовая работа: Удаление комментариев из текста программ

{

AfxMessageBox("Неправильные многострочные коментарии", MB_ICONERROR);

return;

}

break;

}

case LANG_BASIC:

{

RemoveOneLineComments(text, "'", TRUE, "_");

RemoveOneLineComments(text, "REM ", TRUE, "_");

RemoveOneLineComments(text, "rem ", TRUE, "_");

RemoveOneLineComments(text, "Rem ", TRUE, "_");

break;

}

case LANG_ASM:

{

RemoveOneLineComments(text, ";", FALSE, "");

break;

}

}

source.Close();

CFile dest(m_dest, CFile::modeCreate | CFile::modeReadWrite | CFile::normal);

dest.Write(text.GetBuffer(0), text.GetLength());

AfxMessageBox("Комментарииудалены", MB_ICONINFORMATION);

}

int CKursDlg::RemoveOneLineComments(CString& text, CString comment, BOOL bHasLineWraps, CString wrap)

{

CArray<CString, CString&> linelist;

CString line, full = text;