VB初心者友の会 - Q&A掲示板過去ログ

> 初心者であまり理解できてないのですが。
> どなたかこのプログラムの動作がわかる方がいたら教えてください。
> 
> '
> '".pi"のファイルからデータを読み込む
> '
> Sub PiOpen(FileName As String)
> Dim i As Long
> Dim Count As Long
> Dim Cut As Long
> Dim Buf As String
> Dim BufData() As String
> 
> Count = 1
> Buf = ""
> ReDim Preserve TSpc.Data(P400) As Single    <--- TSpc.Data配列をP400分確保
> ReDim Preserve BufData(P400) As String      <--- BufData配列をP400分確保
> 
> ReadState.Visible = True
> 
> Open FileName For Input As #1               <--- 渡されたファイルをオープン
> Do While Not EOF(1)                         <--- ファイルの終わり(EOF)までループ
> Line Input #1, Buf                          <--- ファイルから１行分読み込みBufへ格納
> Cut = InStr(1, Buf, ",", vbTextCompare)     <--- カンマ(,)の位置を検索
> 
> BufData(Count) = Left(Buf, Cut - 1)         <--- カンマの前まで切り出しBufDataへ格納
> 
> '強度の保存
> TSpc.Data(Count) = CSng(Right(Buf, Len(Buf) - Cut))　<--- カンマ以降の文字列をSingle型に
                                                            変換してTspc.Dataへ格納
> 
> Count = Count + 1
> 
> If (Count Mod 3200) = 0 Then
> ReadState.Value = Count
> End If
> Loop                                        <--- ループの終了
> Close #1                                    <--- ファイルのクローズ
> 
> ReadState.Value = ReadState.Max
> ReadState.Visible = False
> 

ReadStateってのが何かよく分からないですが、こんな所じゃないですか？

SEYさんありがとうございます。さっそく参考にさせてもらいます(^_^)