モジュール内のマクロ名一覧をmsgboxに表示する。マクロ LibreOffice Calc Basic

モジュール内のマクロ名一覧をmsgboxに表示する。マクロ　LibreOffice Calc Basic

 

 Sub macroName
  'モジュール内のマクロ名（プロシージャ名）一覧をmsgboxに表示する
  '実験その１
  '
  'モジュールファイル名
          moduleN="Tools1.xba"
  'モジュールURL
          moduleURL="/home/telstar/.config/libreoffice/4/user/basic/Standard/" & moduleN
  'Print   moduleURL
  'モジュールファイルを１行づつ読み込む
      Open moduleURL For Input As #1
          Do Until eof(1)
              line input #1,buf
  'Print left(buf,3)
          '文字列にSubが含まれていたらマクロ名とする
             If left(buf,3)="Sub" Then
             'msgbox 表示用文字列作成
              p=p & buf & chr(10)
          'Print buf
          'Print p
              End If
          Loop
      Close #1
  msgbox "Tools1モジュール内のマクロ一覧" & chr(10)  & p
 
  End Sub

 

タグ：モジュール内マクロ名一覧