文字列の一部を取得するには？ (ID:121370)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

自分は初心者なので正しいかどうかはわかりません。
勉強になると思ったので作ってみました。
おかしな点やここはこうした方が良い等ありましたら指摘してもらえるとうれしいです。

Private Sub Command1_Click()
Debug.Print hoge("c:\test\0001.test")
End Sub

Private Function hoge(filepath As String) As String
Dim strPath As String
Dim strTemp() As String
Dim Temp As String
Dim lngTemp As Long
Dim lnglen As Long
Dim zero As String

On Error GoTo moge
    
        '\で区切る
        strTemp = Split(filepath, "\")
        '.で区切る
        strTemp = Split(strTemp(UBound(strTemp)), ".")
        'ファイル名(拡張子抜き)の長さ
        lnglen = Len(strTemp(0))
            '数字を足す
            lngTemp = CLng(strTemp(0)) + 1
            '0を数
            Do Until lnglen = Len(zero)
                zero = zero & "0"
            Loop
            '0追加
            strTemp(0) = Right(zero & CStr(lngTemp), lnglen)
            '拡張子結合
            Temp = Join(strTemp, ".")
            'パス分解
            strTemp = Split(filepath, "\")
                'ファイル名部分を変更
                strTemp(UBound(strTemp)) = Temp
             '結合し戻す
             hoge = Join(strTemp, "\")
    Exit Function
moge:
    
End Function

←解決時は質問者本人がここをチェックしてください。

戻る