Строки,программа рабочая,как оформить If в ней - VB

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

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

Пол программы сделано,корневое имя каталога находит,как теперь оформить If,помогите чем можете. Дана строка,содержащая полное имя файла.Выделить из этой строки название первого каталога(без символов “\”).Если файл содержится в корневом каталоге,то вывести «\». Private Sub Command1_Click() Dim s As String Dim t As Integer, d As Integer, p As Integer s = InputBox("введите строку, содержащую полное имя файла") d = Len(s) t = InStr(s, "\") s = Mid(s, t + 1, d) p = InStr(s, "\") s = Left(s, p - 1) Print s End Sub

Решение задачи: «Строки,программа рабочая,как оформить If в ней»

textual
Листинг программы
Sub Test()
s = Split(InputBox("ââåäèòå ñòðîêó, ñîäåðæГ*Г№ГіГѕ ïîëГ*îå èìÿ ГґГ*éëГ*"), "\")
MsgBox IIf(UBound(s) = 1, "\", s(1))
End Sub

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


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

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

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