ＳＲＣ質問掲示板Mk2
(現在 過去ログ110 を表示中)

HOME HELP 新規作成 新着記事 トピック表示 検索 掲示板新着情報RSS配信新着情報 過去ログ

[ 最新記事及び返信フォームをトピックトップへ ]

■19739 / inTopicNo.1) 　For文でのファイル作成について
  ▼■
□投稿者/ 匿名希望 -(2007/03/23(Fri) 03:56:39) [ID:2eMbhZ9o]
    2007/03/23(Fri) 07:19:24 編集(投稿者)

    ↓イベントデータここから

    For 前部番号 = 1 To 4
    　For 後部番号 = 1 To 22
    　　Open ("Data" & "\" & "ゴミッペ" & "\" & "バケラッタイヤッホー" & "\" & "$(Eval("行動$(前部番号)-$(後部番号)")).txt") For 出力 As Eval("バケラッタファイル$(前部番号)-$(後部番号)")
    　Next
    Next
    For 前部番号 = 1 To 4
    　For 後部番号 = 1 To 22
    　　Print Eval("バケラッタファイル$(前部番号)-$(後部番号)") "$(バケラッタイヤッホー[バケラッタ番号,前部番号,後部番号])"
    　Next
    Next
    For 前部番号 = 1 To 4
    　For 後部番号 = 1 To 22
    　　Close Eval("バケラッタファイル$(前部番号)-$(後部番号)")
    　Next
    Next

    ↑イベントデータここまで

    上記のイベントデータは連番のついたファイルをオープンするためのものです。

    最初のOpenコマンドで「イベントデータが不正です」と出ます。
    どうやら上記の指定でファイルハンドルのほうは異常なさそうです。

    以前にもFor文でのファイル作成は試したことがありますが、
    失敗してしまい、結局羅列を使って作成しました。

    しかし、このままでは容量を食ってしまうし、
    なんだか気が済みません。

    普通の変数では一度だけ成功していますが、
    For文を使ったものは全部失敗しています。
    なんとかFor文を使ってファイル作成をやってみたいので、
    どこがおかしいのか教えてください。よろしくお願いします。
引用返信/返信 削除キー/
■19740 / inTopicNo.2) 　Re[1]: For文でのファイル作成について
□投稿者/ Ｍｒ -(2007/03/23(Fri) 11:36:19) [ID:oU3zd8B5]
http://web.hpt.jp/limitover
    簡単に確認してみましたが、そのエラーはファイルが存在しない時に出るようです。
    改めてファイルをフォルダに格納して調整してみてはいかがでしょうか。
    ファイルが無い場合は開かないのであれば、Dir()関数を使ったIf文で処理を回避しましょう。
    また、別にEval関数を使う必要を感じませんでしたので、以下のように変更してみました。


    For 前部番号 = 1 To 4
    　For 後部番号 = 1 To 22
    バケラッタパス = Data\ゴミッペ\バケラッタイヤッホー\行動$(前部番号)-$(後部番号).txt
    バケラッタハンドル = バケラッタファイル$(前部番号)-$(後部番号)
    　　Open バケラッタパス For 出力 As バケラッタハンドル
    　Next
    Next


    なお、式を切り分けたのは、一行が長くなって見づらかったからです。
    参考になりますでしょうか。
引用返信/返信 削除キー/
■19741 / inTopicNo.3) 　Re[2]: For文でのファイル作成について
□投稿者/ 匿名希望 -(2007/03/23(Fri) 16:25:22) [ID:2eMbhZ9o]
    Ｍｒさんの書いたコマンド及びその派生として考えられるすべてを試しましたが、
    すべて玉砕してしまいました。

    私もそれ以外に思いつかないので、現時点ではお手上げ状態です。

    皆さんの知恵を貸してください。お願いします。
引用返信/返信 削除キー/
■19742 / inTopicNo.4) 　Re[3]: For文でのファイル作成について
□投稿者/ keru -(2007/03/23(Fri) 21:05:59) [ID:IfMRIPD5]
    2007/03/23(Fri) 21:07:27 編集(投稿者)

    ヘルプに書いてありますが、Dataフォルダ内に当該のフォルダ(この場合はゴミッペとバケラッタイヤッホーのフォルダ)が無い場合にはエラーが出ます。

    無い場合は作成してから試してみてください
引用返信/返信 削除キー/
■19744 / inTopicNo.5) 　Re[4]: For文でのファイル作成について
□投稿者/ 匿名希望 -(2007/03/23(Fri) 23:41:56) [ID:2eMbhZ9o]
    2007/03/23(Fri) 23:43:16 編集(投稿者)

    完全な私の凡ミスでした。すみませんでした。

    しかし、For文での作成は一度も成功していなかったので、
    やり方の勉強になりました。

    皆さん、ありがとうございました。
解決済み!
引用返信/返信 削除キー/


トピック内ページ移動 / << 0 >>

このトピックに書きこむ

過去ログには書き込み不可

Pass/

HOME HELP 新規作成 新着記事 トピック表示 検索 掲示板新着情報RSS配信新着情報 過去ログ

- Child Tree -
- Antispam Version -