ループの途中でユーザーからの入力を受け付けるには？

質問

VBのVer.5.0です。
まったくの初心者なのでどなたか教えて下さい。

CSVファイルをEOFまで1件ずつ読み込んで、ある条件に該当したレコードの場合に、フォーム上で修正するようにしたいと思っています。
ループの途中でいったん手続きを中断し、ユーザーからの入力を受け付けるようにするにはどんな命令があるでしょうか。
SetFocusだけではフォーカスが移動するだけで入力できないまま次のレコードの読み込みへと手続きが流れてしまいます。
いったん全レコードを読み込んで変数の配列に格納してから処理するしかないのでしょうか。

以前はCOBOLのプログラミングをしていましたが、項目の入力を受け付けるのは、Acceptという命令でした。
VBでこれに該当するコマンドが何なのか知りたいと思っています。
検索してもどうしても見つけられませんでしたので、よろしくお願いします。

回答No.4

1050 円（@1050YEN） · ベストアンサー

こちらこそレスが遅くてすいません。

現在、24h稼動のシステムサポート業務のため、シフト勤務をしていて、何も無ければ即座に対応できるのですが。。。。

アクセスでCSVを作成しているのですね？どのようなデータの内容かわかりませんが、、、

-------------------------------
※例1　アクセスからのエクスポート時に
形式:「区切り記号付き」
フィールド区切り文字：「カンマ」
テキスト区切り記号：「"」
-------------------------------
としている場合
「数字,"文字列","文字列",数字,数字・・・」
となると思います。

.今回扱うファイルにはレコードによって値がセットされていないフィールド
未設定値項目が存在していれば、単にカンマが連続出力されるだけです。
「数字,,"文字列",,数字・・・」

質問者さんの場合、フィールドの数だけ変数を用意し、読み取る形式で行われているようですね。
この場合、数値項目が未設定値(Nullと言います)で、読み取る変数も数値型であれば、型の不一致でエラーになります。
CSVは所詮テキストなので、型など制約なくデータが存在します。
「絶対に数値項目にNull値は無い」という自信が無ければ、全て文字列として受け取りましょう。

-------------------------------
※例2　アクセスからのエクスポート時に
形式:「区切り記号付き」
フィールド区切り文字：「タブ」
テキスト区切り記号：「{なし}」
-------------------------------
としている場合
「数字≪Tab≫文字列≪Tab≫文字列≪Tab≫数字≪Tab≫数字・・・」
となります。
テキスト区切り記号を利用していなければ、前回書いた案の、「一気に読む」方式が利用できます。
～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～
Sub Main()
　　Dim l_strCSVファイル　　As String
　　Dim l_strバッファ　　　 As String

　　Dim l_var改行　　　　　 As Variant
　　Dim l_var項目　　　　　 As Variant
　　Dim l_lng改行ループ　　 As Long
　　Dim l_lng項目ループ　　 As Long

　　l_strCSVファイル = "c:\データ.txt"

　　If Not ファイル_読む(l_strCSVファイル, l_strバッファ) Then
　　　　Exit Sub
　　End If

　　'レコード分割(改行での分割)
　　l_var改行 = Split(l_strバッファ, vbCrLf)
　　For l_lng改行ループ = 0 To UBound(l_var改行)

　　　　'フィールド分割(TAB区切りでの分割)
　　　　l_var項目 = Split(l_var改行(l_lng改行ループ), vbTab)

　　　　For l_lng項目ループ = 0 To UBound(l_var項目)
　　　　　　Debug.Print l_var項目(l_lng項目ループ),
　　　　Next l_lng項目ループ

　　　　Debug.Print

　　Next l_lng改行ループ
End Sub

Function ファイル_読む( _
　　　　　ByVal p_strファイル名 As String _
　　　　, Optional ByRef p_strバッファ As String = "" _
) As Boolean
　　Dim l_bln結果　　　 As Boolean
　　Dim l_intFileNo　　 As Integer
　　Dim l_lngサイズ　　 As Long
　　Dim l_strバッファ　 As String

　　l_bln結果 = False

　　'ファイルが無い
　　If (Dir(p_strファイル名) = "") Then
　　　　GoTo PGMEND
　　End If

　　'サイズを得る
　　l_lngサイズ = FileLen(p_strファイル名)

　　'ファイルが空っぽ
　　If (l_lngサイズ < 1) Then
　　　　GoTo PGMEND
　　End If

　　'領域確保
　　l_strバッファ = String$(l_lngサイズ, vbNullChar)

　　'読む
　　l_intFileNo = FreeFile
　　Open p_strファイル名 For Binary As #l_intFileNo
　　　　Get #l_intFileNo, , l_strバッファ
　　Close #l_intFileNo

　　l_bln結果 = True

PGMEND:
　　p_strバッファ = l_strバッファ

　　ファイル_読む = l_bln結果
End Function
～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～

もし一度に全部読む処理
Open p_strファイル名 For Binary As #l_intFileNo
　　Get #l_intFileNo, , l_strバッファ
Close #l_intFileNo

がメモリを使用しすぎるのであれば、バイナリ形式で読むのではなく、質問者さんが行っている方式で「Line Input」を利用すると良いです。
一行ずつ読み取り、項目数で配列化させる方式です。

Dim l_var項目　　　　　 As Variant
Open p_strファイル名 For Input As #l_intFileNo
　　Do Until EOF(l_intFileNo)
　　　　Line Input #l_intFileNo, l_strバッファ
　　　　l_var項目 = Split(l_strバッファ, vbTab)
　　　　'l_var項目の利用方法は、上記サンプルから理解してください
　　Loop
Close #l_intFileNo

>Excelで開くと云々
については、データを公開してもらえないとよくわかりませんが、書式を持たないテキストデータをExcelに読み込むと、型を勝手に決めて値を書き換えることはあります。
Excelでのテキストデータ操作は、あまりしない方が好ましいでしょう。

お礼

重ねてのご回答ありがとうございます。
お忙しいところを私のような初心者の為に多くのお時間を割いてご丁寧にご説明していただき、とても感激しております。

今回の場合は、Line Inputで読み込んでいるのですが、ご説明のお陰でACCESSでの保存形式によって一度に読み込む方法も選択できることが分かり、こちらも必ず試してどちらの方が処理に適しているか検証させていただくつもりです。
コーディングまでして見本を示していただきまして、本当にありがとうございます。

実はプログラミングを職場で、質問を自宅からしておりまして、今すぐに教えていただいたことを実行できないのですが、月曜日にまず、ループの途中で入力させるために別フォームを表示させるプログラムを完成させ、それから一度に読み込むプログラムを別途、同じ処理内容で作成してみます。

自宅からのため具体例を挙げずに言葉だけの質問になってしまい、とても申し訳ありません。
実際に試してみてまた質問させていただくかも知れませんが、お時間のあるときで構いませんので、またご指導いただければ幸いです。
ご親切にありがとうございます。

回答No.3

1050 円（@1050YEN）

>Accept
InputBoxが近いかも？

Dim strRet
strRet = InputBox("入力を促す文言", "たいとる", "規定値")
MsgBox strRet

欠点はキャンセルと、空文字の違いがわからないこと。。。

なので、オリジナルで入力フォームを用意して、ループの中に入力したいタイミングでそのフォームをモーダル表示してあげれたら、Acceptに近いと思います。

ところでCSVはカンマ区切りですか？
サイズは結構大きいですか？

というのは、バイナリオープンで回さずに一度で読み取れる方法あります。
回さないで済むので、かなり高速ですが、CSVがあまりに大きいと、メモリの消費が激しいです。
私の場合は、
・ファイルサイズがあまり大きい物ではない
・区切り文字が本文に必ず使用されていない
という状態であれば、一度に読み取り、Split関数を利用して配列に分割します。

ファイルの排他制御を考慮しなくてよくなるので、処理が簡潔になります。

お礼

ご丁寧な回答ありがとうございます。
すぐに回答してくださったのに、お礼が遅れて大変申し訳ありません。
実は質問した翌日から体調不良で自宅におり、教えていただいた方法が試せていないのですが、入力用の別フォームを用意するやり方を試してみるつもりです。
まだ最近VBを始めたばかりでCOBOLとの違いに戸惑うことばかりの状態です。
別途、追加の質問もさせていただきますので、お時間がありましたら引き続きご指導いただければ幸いです。

補足

ご回答ありがとうございます。
CSVはカンマ区切りで、15000～20000件くらいのデータ量です。
今回の処理で使用するのは、元がTEXT形式なのをACCESSで加工してCSV形式にしたものです。
ふと思いましたが、同じCSVでもいったんEXCELで開いて保存したものだと項目の区切られ方が異なるのでしょうか？

読み込み方法についてなのですが、
(1)Input #ｉｎｔFF, X(1), X(2), X(3), X(4), X(5) 　　
カンマ区切りで1件に5項目あるデータを読み込む場合・・・
(2)Line Input #intFF, strREC
1件の項目数が不定の場合はこの方法でカンマ位置を自分で探す・・・

ということらしいのですが、今回扱うファイルにはレコードによって値がセットされていないフィールド（FILLER）が含まれている場合があります。
その場合でも、カンマで区切られてさえいれば項目数が特定されているものとして(1)の方法で読み込めるのでしょうか。
そのとき、その項目にはどんな値（16進数）がセットされるのでしょうか。
というのも、あとで別のレコードと値が完全一致しているかどうか比較しているのですが、画面上では見た目が同じなのに不一致データとして認識されてしまう場合があるのです。

お時間がありましたら引き続きご指導いただければ幸いです。

回答No.2

herencia

DoEvevntsとともにSleepやTimerを使うと動作がスムーズになるかと思います。

.Netだとスレッドが使えるんですけどね。

参考URL：

http://www.yuushirai.jp/shirai/Vb4/Vb42main.html

お礼

ご回答ありがとうございます。
すぐに回答してくださったのに、お礼が遅れて大変申し訳ありません。
DoEvevntsは使っていたのですが、Timerは併用していませんでした。
ご指摘の通り動作があまりスムースではなかったので、教えていただいた方法も組み込んでみます。
全くの初心者ですので、大変助かりました。ありがとうございました。

回答No.1

bin-chan

処理ループの開始に先立ち「実行中」フォームを表示させる。
そのフォームに「キャンセル」ボタンを作成して、クリックイベントでは「キャンセルフラグ」をＯＮにする。
一方処理ループのどこかに、キャンセルフラグの状態を判断させる箇所を作り、必要に応じてループを抜け出す。
ここで「DoEvevnts」を記述しないと、ループが走りっぱなしになる。

ということでキーワード「Visual Basic ループ　キャンセル　DoEvents -.net」でぐぐってみてください。
大半のサンプルは「帳票打ち出しのキャンセル」ですが、
いろいろ見つかります。

お礼

ご回答ありがとうございます。
すぐに回答してくださったのに、お礼が遅れて大変申し訳ありません。
ユーザーに判断させてボタンをクリックさせなくても強制的に入力待ちにする状態にできないものかと思っていたのですが、フラグを立ててループを抜けるか、条件に一致した場合に別フォームを表示させて入力させるかしかないようですね。
教えていただいたキーワードで検索したところ、入力に関する処理の仕方や、フォームのちらつきを防止する方法などが見つかりました。
初心者ですので大変助かりました。ありがとうございました。