BETA

私が見た車輪の再発明

投稿日:2018-11-04
最終更新:2019-01-09

ネタみたいだけど本当にあったコード
ファイルパスから拡張子を省いたファイル名を取得するメソッド

    Private Function GetFileName(ByVal path As String) As String  

        Dim tmp1 As String  
        Dim tmp2 As String()  
        Dim file As String  

        tmp2 = path.Split("\\")  
        file = tmp2(tmp2.Length - 1)  

        tmp1 = ""  

        For Each tmp1 In file.Split(".")  
            Exit For  
        Next  

        Return tmp1  

    End Function
技術ブログをはじめよう Qrunch(クランチ)は、プログラマの技術アプトプットに特化したブログサービスです
駆け出しエンジニアからエキスパートまで全ての方々のアウトプットを歓迎しております!
or 外部アカウントで 登録 / ログイン する
クランチについてもっと詳しく

この記事が掲載されているブログ

@myname6c7c2の技術ブログ

よく一緒に読まれる記事

0件のコメント

ブログ開設 or ログイン してコメントを送ってみよう
目次をみる
技術ブログをはじめよう Qrunch(クランチ)は、プログラマの技術アプトプットに特化したブログサービスです
or 外部アカウントではじめる
10秒で技術ブログが作れます!