| |
'市場取引価格データセット関数
Public Sub SetData_HS(ByVal lBuf As String, ByRef mBuf As HOSE_2007
)
Dim bytBuf() As Byte '' Byte列で処理するためのバッファ
Dim i As Integer '' ループカウンタ
Dim j As Integer '' ループカウンタ
Dim k As Integer '' ループカウンタ
Dim p As Long '' 切り分け開始位置
bytBuf = StrConv(lBuf, vbFromUnicode)
p = 1
With mBuf
With .head
.RecordSpec = IncMid(bytBuf, p, 2) 'レコード種別
.Datakubun = IncMid(bytBuf, p, 1) 'データ区分
With .MakeDate
.Year = IncMid(bytBuf, p, 4) '' 年
.Month = IncMid(bytBuf, p, 2) '' 月
.Day = IncMid(bytBuf, p, 2) '' 日
End With ' MakeDate
End With ' head
.KettoNum = IncMid(bytBuf, p, 10)
.TitiHansyokuNum = IncMid(bytBuf, p, 8)
.HahaHansyokuNum = IncMid(bytBuf, p, 8)
.BirthYear = IncMid(bytBuf, p, 4)
.MarketCode = IncMid(bytBuf, p, 6)
.MarketConductor = IncMid(bytBuf, p, 40)
.MarketName = IncMid(bytBuf, p, 80)
With .MarketOpenDate
.Year = IncMid(bytBuf, p, 4)
.Month = IncMid(bytBuf, p, 2)
.Day = IncMid(bytBuf, p, 2)
End With
With .MarketCloseDate
.Year = IncMid(bytBuf, p, 4)
.Month = IncMid(bytBuf, p, 2)
.Day = IncMid(bytBuf, p, 2)
End With
.Age = IncMid(bytBuf, p, 1)
.Price = IncMid(bytBuf, p, 10)
.crlf = IncMid(bytBuf, p, 2) 'レコード区切り
End With
'バッファ領域解放
Erase bytBuf
End Sub |
