| Вопрос: Как отрезать лишнее? :-) | Добавлено: 14.03.06 13:07 |
Автор вопроса:  Юрий
|
| Привет! Вопросик такой: Коммон диалог вернул длинный путь, например C:\Folder\Folder\Folder\Filename.txt Нужно отбросить все до Filename.txt, чтобы прога выводила, только имя файла (без пути к нему). Большое ПАСИБА! |
| Ответы | Всего ответов: 15 |
|
Номер ответа: 1 Автор ответа:  angrynews Вопросов: 33 Ответов: 119 |
Web-сайт: Профиль | | #1 | Добавлено: 14.03.06 13:15 |
| Я как программист не очень, но сделал бы так - поместил путь в переменную, потом отчекрыжил лишнее с правой сторны до первого слеша | ||
|
Номер ответа: 2 Автор ответа: angrynewsВопросов: 33 Ответов: 119 |
Web-сайт: Профиль | | #2 | Добавлено: 14.03.06 13:15 |
| ой сорри, от первого слеша -) | ||
|
Номер ответа: 3 Автор ответа: Юрий Вопросов: 11 Ответов: 30 |
Профиль | | #3 | Добавлено: 14.03.06 14:08 |
| Попробуем... | ||
|
Номер ответа: 4 Автор ответа: astoroICQ: 649109 Вопросов: 31 Ответов: 391 |
Профиль | | #4 | Добавлено: 14.03.06 14:55 |
| CommonDialog1.FileTitle | ||
|
Номер ответа: 5 Автор ответа: Billi GatesICQ: 242-026-281 Вопросов: 25 Ответов: 57 |
Профиль | | #5 | Добавлено: 14.03.06 14:58 |
|
а ты в text1.text=CommonDialog1.filename не делай а сделай text1.text=commondialog1.FileTitle
|
||
|
Номер ответа: 6 Автор ответа: ЮрийВопросов: 11 Ответов: 30 |
Профиль | | #6 | Добавлено: 14.03.06 15:05 |
| Спасибо. | ||
|
Номер ответа: 7 Автор ответа: TamplierICQ: 298742928 Вопросов: 58 Ответов: 340 |
Профиль | | #7 | Добавлено: 14.03.06 15:19 |
| а еще можно заюзать InStrReverse | ||
|
Номер ответа: 8 Автор ответа: Billi GatesICQ: 242-026-281 Вопросов: 25 Ответов: 57 |
Профиль | | #8 | Добавлено: 14.03.06 15:22 |
| да незачто, пользуйся | ||
|
Номер ответа: 9 Автор ответа:  HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #9 | Добавлено: 14.03.06 15:32 |
|
dim tmpArr$()
tmpArr$ = Split(strFile,"\" 
msgbox tmpArr$(Ubound(tmpArr$)-1) |
||
|
Номер ответа: 10 Автор ответа: FeverВопросов: 60 Ответов: 808 |
Профиль | | #10 | Добавлено: 14.03.06 20:41 |
|
Проще:
=StrReverse(Split(StrReverse,"\" (0))
|
||
|
Номер ответа: 11 Автор ответа: sneРазработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | | #11 | Добавлено: 15.03.06 02:42 |
не городите лишнего 
Right$(str, InStrRev(str, "\"
) |
||
|
Номер ответа: 12 Автор ответа: SharpЛидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #12 | Добавлено: 15.03.06 13:13 |
|
Может, все же
Right$(str, Len(str)-InStrRev(str, "\"
)? |
||
|
Номер ответа: 13 Автор ответа: Sacred PhoenixICQ: 304238252 Вопросов: 52 Ответов: 927 |
Профиль | | #13 | Добавлено: 15.03.06 21:03 |
|
Прикольно... (сорри за флуд)
|
||
|
Номер ответа: 14 Автор ответа: AgentFireICQ: 192496851 Вопросов: 75 Ответов: 3178 |
Профиль | | #14 | Добавлено: 15.03.06 21:56 |
|
Народ нашел о чем спорить
Из-за пары байтов в коде, которые потом фиг знает как скомпилируются, передерутся ))
Text1.Text=CommonDialog1.FileTitle и не парьтесь
|
||
|
Номер ответа: 15 Автор ответа: SharpЛидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #15 | Добавлено: 16.03.06 05:01 |
|
Это вопрос принципа
|
||
Страница: 1 |