REM  *****  BASIC  *****

Option Explicit

'---------------------------------------------------------------=---------------------------------------------------------------'--------------------------------
'   1   2   3   4   5   6   7   8   9   0   1   2   3   4   5   6   7   8   9   0   1   2   3   4   5   6   7   8   9   0   1   2   3   4   5   6   7   8   9   0
'---------------------------------------------------------------=---------------------------------------------------------------'--------------------------------
                                                                                                                                ' コーディングの列幅を短くするためのライブラリです。

                                                                                                                                ' このコードで使われている命名の略称表記
    ' dc    ... document
    ' sh    ... sheet
    ' cm    ... column
    ' rw    ... row
    ' ce    ... cell
    ' vl    ... value

'---------------------------------------------------------------=---------------------------------------------------------------'--------------------------------
                                                                                                                                ' 文書を新規作成 CreateDocument
Sub CreateDc    (   )   As Object
    CreateDc                                                    =   StarDesktop.loadComponentFromURL( _
                                                                        "private:factory/scalc" ,"_blank"   ,0  ,Array()    )
End Sub

'---------------------------------------------------------------=---------------------------------------------------------------'--------------------------------
                                                                                                                                ' 文書を読込   GetDocument
                                                                                                                                ' dcFile        .odsファイルへのパス
Sub GetDc   (   dcFile  As String   )   As Object
    GetDc                                                       =   StarDesktop.loadComponentFromURL(   _
                                                                        ConvertToUrl(dcFile)    ,"_blank"   ,0  ,Array() )
End Sub

'---------------------------------------------------------------=---------------------------------------------------------------'--------------------------------
                                                                                                                                ' 文書を保存して閉じる    SaveAndCloseDocument
                                                                                                                                ' dc            文書
                                                                                                                                ' dcFile        .odsファイルへのパス
Sub SaveAndCloseDc  (   dc As Object    ,dcFile As String   )
                                                                                                                                ' .odsとして保存
    dc.storeAsURL(  ConvertToUrl( dcFile )  ,Array()    )
                                                                                                                                ' ファイルを閉じる
    dc.dispose
End Sub

'---------------------------------------------------------------=---------------------------------------------------------------'--------------------------------
                                                                                                                                ' シート挿入   InsertSheet
                                                                                                                                ' dc            文書
                                                                                                                                ' shName        シート名
                                                                                                                                ' position      シートを差し込む位置。左端が0
Sub InsertSh    (    dc As Object   ,shName As String _
                    ,position As Integer    )
    dc.getSheets().insertNewByName( shName ,position )
End Sub

'---------------------------------------------------------------=---------------------------------------------------------------'--------------------------------
                                                                                                                                ' シートをアクティブにします SetActiveSheet
                                                                                                                                ' dc            文書
                                                                                                                                ' sh            シート
Sub SetActiveSh (   dc As Object    ,sh As Object   )
    dc.getCurrentController().setActiveSheet( sh )
End Sub

'---------------------------------------------------------------=---------------------------------------------------------------'--------------------------------
                                                                                                                                ' シート取得   GetSheet
                                                                                                                                ' dc            文書
                                                                                                                                ' shName        シート名
Sub GetSh   (   dc As Object    ,shName As String   ) As Object
    GetSh                                                       =   dc.getSheets().getByName( shName )
End Sub

'---------------------------------------------------------------=---------------------------------------------------------------'--------------------------------
                                                                                                                                ' シート存在判定 HasSheet
                                                                                                                                ' dc            文書
                                                                                                                                ' shName        シート名
Sub HasSh   (   dc As Object    ,shName As String   ) As Boolean
    HasSh                                                       =   dc.getSheets().hasByName(   shName  )
End Sub

'---------------------------------------------------------------=---------------------------------------------------------------'--------------------------------
                                                                                                                                ' セル取得      GetCellObject
                                                                                                                                ' sh            シート
                                                                                                                                ' cm            列番号(0スタート)
                                                                                                                                ' rw            行番号(0スタート)
Sub GetCeOb (   sh As Object    ,cm As Integer  ,rw As Integer  ) As Object
    GetCeOb                                                     =   sh.getCellByPosition(  cm  ,rw  )
End Sub

'---------------------------------------------------------------=---------------------------------------------------------------'--------------------------------
                                                                                                                                ' セルの値を取得 GetCell
                                                                                                                                ' sh                シート
                                                                                                                                ' cm                列番号(0スタート)
                                                                                                                                ' rw                行番号(0スタート)
Sub GetCe ( sh As Object    ,cm As Integer  ,rw As Integer  ) As String
    GetCe                                                       =   sh.getCellByPosition(  cm  ,rw  ).String
End Sub

'---------------------------------------------------------------=---------------------------------------------------------------'--------------------------------
                                                                                                                                ' セルに値を設定 SetCell
                                                                                                                                ' sh                シート
                                                                                                                                ' cm                列番号(0スタート)
                                                                                                                                ' rw                行番号(0スタート)
                                                                                                                                ' vl                設定したい値
Sub SetCe ( sh As Object    ,cm As Integer  ,rw As Integer  , vl As String  )
    sh.getCellByPosition(  cm  ,rw  ).String                    =   vl
End Sub

'---------------------------------------------------------------=---------------------------------------------------------------'--------------------------------
                                                                                                                                ' セルからセルへ値を複写 CopyCell
                                                                                                                                ' sh0               シート
                                                                                                                                ' cm0               列番号(0スタート)
                                                                                                                                ' rw0               行番号(0スタート)
                                                                                                                                ' sh1               シート
                                                                                                                                ' cm1               列番号(0スタート)
                                                                                                                                ' rw1               行番号(0スタート)
Sub CopCe (  sh0 As Object      ,cm0 As Integer     ,rw0 As Integer _
            ,sh1 As Object      ,cm1 As Integer     ,rw1 As Integer )
    sh0.getCellByPosition(  cm0  ,rw0  ).String                 =   sh1.getCellByPosition(  cm1  ,rw1  ).String
End Sub

'---------------------------------------------------------------=---------------------------------------------------------------'--------------------------------
                                                                                                                                ' カウントアップ（カウントダウン）
                                                                                                                                ' vl                更新したい変数
                                                                                                                                ' offset            増減する量
Sub CountUp (   vl As Integer   , offset As Integer )
    vl = vl + offset
End Sub

'---------------------------------------------------------------=---------------------------------------------------------------'--------------------------------
                                                                                                                                ' 文字列を末尾に追加
                                                                                                                                ' vl                更新したい変数
                                                                                                                                ' tail              追加したい文字列
Sub AppendTail  (   vl As String    ,tail As String )
    vl = vl & tail
End Sub