Извлечение названия файла - VB

Узнай цену своей работы

Формулировка задачи:

Druzya kak izvlech nazvaniya fayla iz etoy stroki O:Sgi_KBR_EngCADAs_Built-Drawings_InABR-1BR-1DFLZZ-ST-DTL-2063-01.dwg senks

Решение задачи: «Извлечение названия файла»

textual
Листинг программы
Private Function GetInStrShortFileName(ByVal pstrFullFileName As String) As String
  pstrFullFileName = Replace(pstrFullFileName, '/', ' ')
  GetInStrShortFileName = Mid(pstrFullFileName, InStrRev(pstrFullFileName, ' ') + 1)
End Function

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

6   голосов , оценка 4.333 из 5
Похожие ответы