C# と VB.NET の質問掲示板

わんくま同盟

ASP.NET、C++/CLI、Java 何でもどうぞ

C# と VB.NET の入門サイト


(過去ログ 103 を表示中)
■61569 / )  東京電力の5分間隔値を読み取る
□投稿者/ JRY (13回)-(2011/08/19(Fri) 20:21:20)

分類:[VB.NET/VB2005 以降] 

2011/08/19(Fri) 20:21:57 編集(投稿者)

(http://bbs.wankuma.com/index.cgi?mode=al2&namber=61470の続きです)
東京電力のCSVデータの5分間隔値を読み取ろうと考えています。
最初の考えでは、次のような方法が浮かび上がりました。
Dim time As String
time = Format(Now, "HH:mm")
If time <= "**:**" Then
'値を獲得する処理
End If
ただ、If文を使った方法だと、何個も書かないといけないので大変です。
現在の時刻と、5分間隔値の時間の最も近い値を読み取ることができますか?
(csvの読み取りは以下のようにしています)
Dim csvRecords As New System.Collections.ArrayList()
Dim tfp As New FileIO.TextFieldParser("graphtmp-tepco.csv", _
System.Text.Encoding.Default)
'区切り文字を,とする
tfp.Delimiters = New String() {","}
tfp.TextFieldType = FileIO.FieldType.Delimited
tfp.HasFieldsEnclosedInQuotes = False
tfp.TrimWhiteSpace = False





While Not tfp.EndOfData
'フィールドを読み込む
Dim fields As String() = tfp.ReadFields()
'保存
csvRecords.Add(fields)

End While

(中略)


'ピーク時供給電力と5分間隔値で、電力使用率の割合を出す
Dim five As String '5分間隔値
'5分間隔値を読み取る
'いまの所、考えが浮かばない
'(label4はピーク時供給電力の値が入っている)
Dim par As String
Dim par1 As String
Dim par2 As String '割合
Dim time As String
time = Format(Now, "HH:mm")
par = five / Label4.Text
par1 = par * 100
par2 = (Fix(par1 * 10) / 10)
'後始末
tfp.Close()
返信 編集キー/


管理者用

- Child Tree -