東京電力のjuyo-j.csvファイルを読み込み、シートに書き込む 実験 Libre CalcBasic

東京電力のjuyo-j.csvファイルを読み込み、シートに書き込む　実験　Libre CalcBasic

Sub juyoCSVopen()
'東京電力のjuyo-j.csvファイルを読み込み、シートに書き込む　実験
'
'課題
'文字化け、ファイルの終わりEOFについて調べる
'

    open "http://www.tepco.co.jp/forecast/html/images/juyo-j.csv"   for input as #1

        for i=1 to 333
            line input #1,buf
        'シートに書き込む
                 ThisComponent.sheets(1).getCellByPosition(0,i).string=buf
        next i
           Close #1

    msgbox "終了"

End Sub

 

追記　Do  Until EOF(1)　　 Loop　でOK

Sub juyoCSVopen2()
'東京電力のjuyo-j.csvファイルを読み込み、シートに書き込む　実験
'
'課題
'文字化け
'

    open "http://www.tepco.co.jp/forecast/html/images/juyo-j.csv"   for input as #1

        Do Until EOF(1)
            line input #1,buf
        'シートに書き込む
                 ThisComponent.sheets(1).getCellByPosition(0,i).string=buf
                 i=i+1
        Loop
        close #1

    msgbox "終了"

End Sub