掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
複数のファイルに対してまとめて処理を実行するには? (ID:103538)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
原始的、しかもまだ"原理上は"なんですけど、 テキストファイルなら、これができます。たぶん。 ----------------------------------------- Dim n As Integer'Byteでもいいかな? n=0 With List Do Until n = .ListCount - 1 n = n + 1 文章 = DataLoading(.List(n)) ’いろいろ処理 DataSaving(.List(n),文章) Loop end With ----------------------------------------- たぶんこのままじゃ機能しませんけど^^; 修正してください。 それから、DataLoadingとSavingは自作関数ですけど、 ようするに、読みこんで保存するということです。 (DataLoading-引数はファイルのパス DataSaving-引数はファイルのパス,保存データ) そうそう、ちょっとお節介(?)ですけど、 FileListBoxだと、なぜかうまく行ってくれないかもしれません。 メンドウでも(VisibleをFalseにした)リストボックスにコピーして、 それから処理したほうが、うまくいくみたいです。 ところで、タブキーでフォーカス移動しないように、 できません?この掲示板。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.