VBA # обрезать строку для удаления символов

Question

У меня есть имя файла, которое мне нужно удалить, некоторые символы ниже - это имя файла и цель после обрезки имени файла.

My Current String = "text_12_12_19.pdl"

Новая строковая цель= "Text.pdl"

Answer 1

'Другое решение (также можно использовать левый и правый):

Dim my_current_string As String
Dim New_String_Goal As String
Dim r As String, l As String

my_current_string = "text_12_12_19.pdl"
l = Left(my_current_string, 4)
r = Right(my_current_string, 4)
New_String_Goal = l & r
Debug.Print New_String_Goal

Answer 2

Предполагая, что вы хотите получить все символы, предшествующие первому подчеркиванию, я бы предложил следующее:

Function TrimFilename(fnm As String) As String
    Dim i As Long, j As Long
    i = InStr(fnm, "_")
    j = InStrRev(fnm, ".")
    If 0 < i And i < j Then
        TrimFilename = Mid(fnm, 1, i - 1) & Mid(fnm, j)
    Else
        TrimFilename = fnm
    End If
End Function

?TrimFilename("text_12_12_19.pdl")
text.pdl

Answer 3

Вы можете использовать Разделить :

MyStringGoal = Split(MyCurrentString, "_")(0) & "." & Split(MyCurrentString, ".")(1)