LibreOffice Basic ファイルのフルパスからファイル名拡張子名を取り出すマクロ

LibreOffice Basic ファイルのフルパスからファイル名拡張子名を取り出すマクロ

 

Sub filename()
'フルパスからファイル名を取り出す。
    'Tools呼出
        GlobalScope.BasicLibraries.LoadLibrary("Tools")

        oFile="files:///home/telstar/ピクチャ/027_1000.jpg"
    'システムファイル名をファイルURLへ変換します
        oURL = ConvertToUrl(oFile)
        'Print oURL
    '拡張子なしのファイル名
        fName=GetFileNameWithoutExtension(oURL,"/")
    '拡張子名
        ExtensionName=GetFileNameExtension(oFile)
    '拡張子付きファイル名の表示
        Print fName & "." & ExtensionName
End Sub
 

 

コメント 1

Acquistare Cialis On Line <a href=https://cheapcialisir.com/#>Cialis</a> Propecia Generic How Long <a href=https://cheapcialisir.com/#>Cialis</a> Viagra Ne Shqip
by Janinsessy (2020-05-03 21:55)