Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Выделенный текст / 7 сообщений из 7, страница 1 из 1
03.05.2006, 11:48
    #33703593
xxxPaVelxxx
xxxPaVelxxx
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выделенный текст
У меня в текстовое поле помещается текст с путём к определенному файлу. Я бы хотел из этого текста (пути к файлу) взять имя файла после символа "\".
Пример в текстовое поле Text1.text памещается путь D:\musop\file ,из которого мне необходимо, чтобы в текстовое поле Техt2.text поместилось имя файла ( file )
Не подскажете ПОЖАЛУСТА необходимую команду !!!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.05.2006, 11:53
    #33703607
big-duke
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выделенный текст
Код: plaintext
1.
2.
3.
Dim Path As String
Path = "D:\musop\file"
Debug.Print Split(Path, "\")(UBound(Split(Path, "\")))

...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.05.2006, 13:17
    #33703873
xxxPaVelxxx
xxxPaVelxxx
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выделенный текст
Dim Path As String
Path = "D:\musop\file"
Debug.Print Split(Path, "\")(UBound(Split(Path, "\")))

А в какой переменной, в этом примере, формируется (храниться) результат.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.05.2006, 13:24
    #33703902
TIKO
TIKO
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выделенный текст
Dim k As Integer
Dim s As String
k = InStrB("c:\dd\d.txt", "\")
s = Right("c:\dd\d.txt", k)
Debug.Print s
возврат d.txt
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.05.2006, 13:28
    #33703921
xxxPaVelxxx
xxxPaVelxxx
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выделенный текст
А хотя разобрался - СПАСИБО!!!

У меня еще один вопросик как в следующюю команду

FileCopy (CommonDialog1.FileName), "d:\"

после d:\ указать имя файла введенного при помощи текстового поля
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.05.2006, 13:32
    #33703944
TIKO
TIKO
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выделенный текст
FileCopy (CommonDialog1.FileName), "d:\" & Text1.text & ".txt"
если расширение текстовое
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.05.2006, 13:36
    #33703962
xxxPaVelxxx
xxxPaVelxxx
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выделенный текст
ОГРОМНЕЙШЕЕ СПАСИБО --все работает
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Выделенный текст / 7 сообщений из 7, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 368ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2165937]:
 0ms
get settings:
 10ms
get forum list:
 17ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 46ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 49ms
get tp. blocked users:
 1ms
others: 227ms
total:  368ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]