| Вопрос: Текст | Добавлено: 03.09.04 16:31 |
Автор вопроса:  kyb | Web-сайт: www.kbweb.dax.ru
|
|
Вот у меня есть строка C:\windows\won\1.txt
Как мне взять строку C:\windows\won\ |
| Ответы | Всего ответов: 6 |
|
Номер ответа: 1 Автор ответа:  Navigator ICQ: 177815632 Вопросов: 11 Ответов: 70 |
Профиль | | #1 | Добавлено: 03.09.04 16:44 |
|
Лично я делаю так:
Dim T as String T = Left("C:\windows\won\1.txt", Len("C:\windows\won\1.txt"  -Len("1.txt")
|
||
|
Номер ответа: 2 Автор ответа: sne Разработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | | #2 | Добавлено: 03.09.04 16:50 |
|
Еще один способ
sBuff = "C:\windows\won\1.txt" str = left(sBuff, InStr(vbnull, sBuff, "1.txt"
|
||
|
Номер ответа: 3 Автор ответа: NavigatorICQ: 177815632 Вопросов: 11 Ответов: 70 |
Профиль | | #3 | Добавлено: 03.09.04 16:52 |
|
Забыл еще...
Кол-во символов в данном случае файла "1.txt" определяю перебором каждого символа строки "C:\windows\won\1.txt" c права на лево до первого "\" |
||
|
Номер ответа: 4 Автор ответа:  Mihalыch ICQ: 373-509-101 Вопросов: 56 Ответов: 330 |
Профиль | | #4 | Добавлено: 03.09.04 17:00 |
Можно так
 im aUnit() As String
im str As String
str = "C:\windows\won\1.txt" aUnit() = Split(str, "\"
str = Left(str, Len(str) - Len(aUnit(UBound(aUnit)))) |
||
|
Номер ответа: 5 Автор ответа:  ComancheВопросов: 87 Ответов: 459 |
Профиль | | #5 | Добавлено: 03.09.04 17:57 |
|
Private Declare Function PathRemoveFileSpec Lib "shlwapi.dll" Alias "PathRemoveFileSpecA" ( _
ByVal pszPath As String) As Long ....... Dim st As String st = "C:\windows\won\1.txt" + Chr$(0) PathRemoveFileSpec st Debug.Print Left$(st, InStr(st, Chr$(0))) ....... |
||
|
Номер ответа: 6 Автор ответа: ПавелАдминистратор ICQ: 326066673 Вопросов: 368 Ответов: 5968 |
Web-сайт: Профиль | | #6 | Добавлено: 04.09.04 10:23 |
|
str = "C:\windows\won\1.txt" MsgBox Left$ (str, InstrRev (str, "\")) |
||
Страница: 1 |