DOBON.NET DOBON.NETプログラミング掲示板過去ログ

CSV形式ファイルのレコードの移動のさせ方

  • 題名: CSV形式ファイルのレコードの移動のさせ方
  • 著者: 銀河系軍団
  • 日時: 2005/08/01 14:34:15
  • ID: 12018
  • この記事の返信元:
    • (なし)
  • この記事への返信:
    • (なし)
  • ツリーを表示
分類:[VB6以前]

CSVファイルを読み込んで 1件目を表示させ ボタンを押して
前・次の1件を表示させたいのですが どうすればいいでしょうか?

「CSVファイルを読み込んで 1件目を表示させ」までは できてます。
'前へボタン押下時
Case 0
lngDatNo = lngDatNo - 1
txtNo.Text = strNo(lngDatNo)
txtNm.Text = strNm(lngDatNo)

'ボタン制御の呼び出し
Call chkbtm

'次へボタン押下時
Case 1
lngDatNo = lngDatNo + 1
txtNo.Text = strNo(lngDatNo)
txtNm.Text = strNm(lngDatNo)

'ボタン制御の呼び出し
Call chkbtm

'ファイル読み込みボタン押下時
Case 2
'顧客番号の表示をクリア
txtNo = ""

'名前の表示をクリア
txtNm = ""

'件数の表示をクリア
txtKensu = ""

'選択ファイル名の表示をクリア
Cmnload.FileName = ""

'ファイルの種類
Cmnload.Filter = "csvファイル(*.csv)|*.csv"

'ファイルを開くダイアログを表示する
Cmnload.ShowOpen

'CSV形式ファイルを変数毎に読み書きする
lngDatNo = 0

'使用可能なファイルナンバーを取得
intFileNo = FreeFile

'任意のCSV形式ファイルを開く
strInputFileNm = Cmnload.FileName
Open strInputFileNm For Input As #intFileNo

'EOF(intFileNo)が True になるまで実行
Do Until EOF(intFileNo)

'件数をカウント
lngDatNo = lngDatNo + 1

'配列を1個づつ追加宣言
ReDim Preserve strNo(lngDatNo) As String
ReDim Preserve strNm(lngDatNo) As String

'データを各変数に読込
Input #intFileNo, strNo(lngDatNo), strNm(lngDatNo)

Loop

'ファイルを閉じる
Close #intFileNo

DOBON.NET | プログラミング道 | プログラミング掲示板