掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
csvファイルを読み込み、条件文を動作するには？ (ID:140701)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
2列10行のcsvファイルのデータを一行ずつ取り込んで、 列の数値の大きさによって、判断を変えるというプログラムを作っています。 しかし、動いてくれません・・・ご教授よろしくお願いします。 Dim buf As String Dim FileNo As Integer 'ファイル番号 Dim lastdata() As String Const FileName = "sample.csv" FileNo = FreeFile Open FileName For Input As FileNo Do Until EOF(FileNo) Line Input #FileNo, buf lastdata = Split(buf, ",") If lastdata(1) < lastdata(0) Then Call Command2_Click Label1.Caption = lastdata(0) Else Call Command3_Click Label1.Caption = lastdata(1) End If Loop Close #FileNo
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.