=================================================================== RCS file: /home/cvs/OpenXM_contrib2/windows/winfep/winfepDlg.cpp,v retrieving revision 1.2 retrieving revision 1.3 diff -u -p -r1.2 -r1.3 --- OpenXM_contrib2/windows/winfep/winfepDlg.cpp 2010/01/21 03:00:21 1.2 +++ OpenXM_contrib2/windows/winfep/winfepDlg.cpp 2010/01/21 07:16:44 1.3 @@ -215,12 +215,16 @@ HCURSOR CWinfepDlg::OnQueryDragIcon() void CWinfepDlg::OnSend() { // TODO: この位置にコントロール通知ハンドラ用のコードを追加してください - if ( !infile ) return; + int i; + if ( !infile ) return; if ( currentline >= 0 && currentline < nlines ) { CString str; m_currentline.GetWindowText(str); LPCSTR line = (LPCSTR)str; - for ( int i = 0; line[i]; i++ ) { + for ( i = 0; line[i] && isspace(line[i]); i++ ); + if ( line[i] && + !strncmp(line+i,"end$",4) || !strncmp(line+i,"end;",4) ) return; + for ( i = 0; line[i]; i++ ) { if ( line[i] == '\t' ) ::SendMessage(asirhwnd,WM_CHAR,' ',8); else