| 2008/05/25(Sun) 08:04:35 編集(投稿者)
2008/05/25(Sun) 00:11:54 編集(投稿者)
ステラさんこんにちは、この手続きがどの状態から、どのように呼ばれ
ているか解らないのでケースを書くことが出来ません。
表が開いたままだったりすると、2回目は開けないのでエラーになります。
その処理はステラさんしか解らないのでこちらではどうしようもありません。
開けない場合どうしたいかをイベントに書いたらいいと思います。
現状把握が先決です。
proc 戻り値説明(整数 &I戻り値)
if (&I戻り値=1)
確認 "表を開いた。"
else if (&I戻り値=0)
確認 "共有違反以外のエラーが発生したため、表を開くことができなかった。"
else if (&I戻り値=-1)
確認 "共有違反で表を開くことができない（「リトライ=しない」を指定した場合のみ）。"
else if (&I戻り値=-2)
確認 "他の利用者が置換や併合などの処理を実行中（ファイル排他）。"
end
end
proc "データ読み込み"()
var Int{&I確認,&ItNo[3],&Iok,&I保存}
メッセージボックス "データ出力" ,"必要なデータは出力してありますか？" \
, アイコン=!, ボタン指定=5, , &I確認
ケース開始
ケース ( &I確認 ≠ 6 )
* break /* ここはいらないと思います。 */
ケース ( &I確認 = 6 )
表 "読込枠.tbl", 終了状態=&Iok
条件 (&Iok<>1) call 戻り値説明(&Iok)
&ItNo[1]=#IS表
条件 (&Iok<>1) #表ファイル名(&ItNo[1])
解除 *
行削除 *
表整理 余白割合=10
条件 (#処理条件名検索(11,2,"データ読込")=#U) \
読み込み条件登録 テキスト,条件名="データ読込","A1.txt"\
,区切り=",",空白削除=両方,項目名=する,ファイル名変更=する
* ここは適宜訂正↑
読み込み テキスト,条件名="データ読込"
終了 表 &ItNo[1]
表 "A1.tbl", 終了状態=&Iok
条件 (&Iok<>1) call 戻り値説明(&Iok)
&ItNo[2]=#IS表
条件 (&Iok<>1) #表ファイル名(&ItNo[2])
解除 *
行削除 *
表整理 余白割合=10
条件 (#処理条件名検索(11,1,"読込")=#U) \
読み込み条件登録 表,条件名="読込","読込枠.tbl"\
,ファイル名変更=しない,{ 省略 },編集表=する
* ここは適宜訂正↑
読み込み 表,条件名="読込"
メッセージボックス "ファイルの出力" \
, "「A1.tbl」として、\n \n [パス名] に保存します。" \
, アイコン=i, ボタン指定=2, 制御文字展開=する, &I保存
if ( &I保存=1 )
表 "A1複写.tbl",終了状態=&Iok
条件 (&Iok<>1) call 戻り値説明(&Iok)
&ItNo[3]=#IS表
条件 (&Iok<>1) #表ファイル名(&ItNo[3])
解除 *
行削除 *
表整理 余白割合=10
条件 (#処理条件名検索(11,1,"読込")=#U) \
読み込み条件登録 表,条件名="抜粋読込","A1.tbl"\
,ファイル名変更=しない,{ 省略 },編集表=しない
* ここは適宜訂正↑
読み込み 表,条件名="抜粋読込"
終了 表 &ItNo[3]
else
メッセージボックス "桐一覧表ダウンロード" \
,”ダウンロードできませんでした”
end
終了 表 &ItNo[2]
ケース終了
手続き定義終了
|
