| Вопрос: Помогите откинуть лишнее в string переменной | Добавлено: 15.04.03 10:09 |
Автор вопроса:  sem_a_s@mail.ru
|
|
Здравствуйте. Имеется переменая типа string (например C:\ttt\aaa\*.*) Необходимо написать функцию которая откинет справа все символы до первого символа "\" (отсчет начинаем справа на лево, т.е. в нашем примере получим C:\ttt\aaa\) Спасибо всем за помощь. |
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа:  Dok ICQ: 261977520 Вопросов: 48 Ответов: 16 |
Web-сайт: Профиль | | #1 | Добавлено: 15.04.03 10:22 |
|
dim i as integer dim s as string s="c:\ttt\aaa\*.*" for i=1 to len(s) if right(s,1)<>"\" then s=left(s,len(s)-1) else exit for next i msgbox s |
||
|
Номер ответа: 2 Автор ответа:  boevik Хранитель чата ICQ: 137392264 Вопросов: 8 Ответов: 557 |
Web-сайт: Профиль | | #2 | Добавлено: 15.04.03 12:16 |
|
Dim lpos As Long s = "c:\aa\ss\*.*" |
||
Страница: 1 |