<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />こんにちは、
私は（1）失敗プロット、（2）2つの比較グループのためのグループ間の要約とテストを作り出すことができる生存分析のためのスクリプトを持っていました。これらをジャーナルにエクスポートしてMSwordとして保存しようとしましたが、何も起こりませんでした。ファイル "JournalTest.doc"でもフォルダに表示されませんでした。あなたは私が私のコードを修正するのを手伝ってもらえますか？私は自分のデータテーブルと欲しいものを示すテストジャーナルを添付しました。可能な限り私のコードを短くしてください。
//データベースからすべての行を取得します
"dbq_string =" DBQ = E：\ Now \（プロジェクト）RFID_r3_Homing_r1 \ Ben analysis \ Chang_bee_db.mdb; " ||
"DefaultDir = E：\ Now \（プロジェクト）RFID_r3_Homing_r1 \ Ben分析。" ||
"ドライバ= {Microsoft Accessドライバ（* .mdb）}; DriverId = 25; FIL = MSアクセス;" ||
"FILEDSN = C：¥Program Files¥Common Files¥ODBC¥Data Sources¥chang_bee_db.dsn;" ||
";" MaxBufferSize = 2048; MaxScanRows = 8; PageTimeout = 5; SafeTransactions = 0; Threads = 3; UID = admin; UserCommitSync =はい; ";
dt1 =データベースを開く（dbq_string、"SELECT * FROM qryAFF14"、"qryAFF14"、不可視）;
// 1つの失敗プロットで3つのグループの曲線を得る
dt =データテーブル（ "qryAFF14"、不可視）。/ *見えない：データテーブルウィンドウを閉じる* /
dt <<生存期間（
Y（：AFF14）、
グループ化（：治療）
失敗プロット（1）
生存プロット（0）、
ここで、（：処置== "アセトン5μl" |：処置== "nil" |：処置== "メトプレン5μl（40μg/μl）"）、
SendToReport（
ディスパッチ（
{"失敗プロット"}、
"失敗"、
TextEditBox、
{テキストを設定して下さい（「最初の飛行を開始する率」）}
）
ディスパッチ（
{"失敗プロット"}、
"AFF14"、
TextEditBox、
{テキストを設定（ "年齢（日）"）}
）
）
;
//失敗プロットをジャーナルに出力します プロットをエクスポートするために下線部分を変更する方法？
dt << journal（すべてフリーズ）;
dt <<ウィンドウを閉じる。
current journal（）<<ウィンドウを最小化します。
改ページ（）<<仕訳帳;
dts = dt << 要約（グループ（：処理）、N、平均（：AFF14）、標準エラー、出力テーブル名（ "qryAFF14_out"））。
dts << Journal（Freeze All）;
dts <<ウィンドウを閉じる。
Current Journal（）<< HTMLを保存（ "E：\ Now \（Project）RFID_r3_Homing_r1 \ Ben analysis \ JMP \ JournalTest.htm"）;
Current Journal（）<< MSWordを保存します（ "E：\ Now \（プロジェクト）RFID_r3_Homing_r1 \ Ben分析\ JMP \ JournalTest.doc"）;
Current Journal（）<< RTFの保存（ "E：\ Now \（Project）RFID_r3_Homing_r1 \ Ben分析\ JMP \ JournalTest.rtf"）;
//グループ間の要約とテストを取得し、この部分は動作します
dt <<生存期間（
Y（：AFF14）、
グループ化（：治療）
失敗プロット（0）
生存プロット（0）
、ここで（：treatment == "アセトン5μl" |：treatment == "nil"）、
）
<<サバイバル（
Y（：AFF14）、
グループ化（：治療）
失敗プロット（0）
生存プロット（0）
、ここで、（：treatment == "アセトン5μl" |：treatment == "メトプレン5μl（40 µg / µl）"）、
;
//グループ間でサマリーとテストをエクスポートしますが、動作しません。これら2つのスクリプトを変更する方法
dt << journal（すべてフリーズ）;
dt <<ウィンドウを閉じる。
current journal（）<<ウィンドウを最小化します。
改ページ（）<<仕訳帳;
dts = dt << 要約（グループ（：処理）、N、平均（：AFF14）、標準エラー、出力テーブル名（ "qryAFF14_out"））。
dts << Journal（Freeze All）;
dts <<ウィンドウを閉じる。
Current Journal（）<< HTMLを保存（ "E：\ Now \（Project）RFID_r3_Homing_r1 \ Ben analysis \ JMP \ JournalTest.htm"）;
Current Journal（）<< MSWordを保存します（ "E：\ Now \（プロジェクト）RFID_r3_Homing_r1 \ Ben分析\ JMP \ JournalTest.doc"）;
Current Journal（）<< RTFの保存（ "E：\ Now \（Project）RFID_r3_Homing_r1 \ Ben分析\ JMP \ JournalTest.rtf"）;
