Извлечение названия файла - 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

ИИ для рефератов и докладов

  • Экспорт Word по ГОСТу
  • Минимум 80% уникальности текста
  • Поиск релевантных источников в интернете
  • Готовый документ за 2 минуты

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

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