LibreOffice Calc Basic ファイルのフルパスからファイル名を取り出す実験

LibreOffice Calc Basic ファイルのフルパスからファイル名を取り出す実験

便利な関数とか有りそうなのですが、見つけられなかったのでマクロを書いてみた。
スマートじゃないけど使えます。

 

Sub url_fileName()
'ファイルのフルパスからファイル名を取り出す
'a=instr(StrReverse(url1),"/")　NG
'Print a

oURL="files:///home/telstar/ピクチャ/027_1000.jpg"
'Print instr(ourl1,"/")
    '文字数
        Len_oURL=len(oURL)
    '文字列をmid関数で右から１文字づつ取り出す
    For i=Len_oURL To 1 Step -1
        'mid(対象文字列,位置,文字数)　
        a=mid(oURL,i,1)
            '取り出した文字が"/"なら
            If a="/" Then
            'Loopの何番目か
                 count_i=i
             '文字列の最初の"/"は右から何番目か
                count_right=Len_oURL-count_i
            '文字列からright関数で右からcount_right分取り出す
                 oString=right(oURL,count_right)
             'Loop終了
                 i=0　　　'訂正 i=1

           End If
    Next i
    'ファイル名表示
        print oString
End Sub

 

タグ：文字列操作