Строки,программа рабочая,как оформить 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д