| Вопрос: разрубка и расчленение текста | Добавлено: 26.08.05 17:12 |
Автор вопроса:  Master Cheat'$
|
|
как удалить текст до определенного символа?
к примеру, в имени файла, написанном на label, отрезать, допустим, расширение? т.е. как удалить текст но только до точки? |
| Ответы | Всего ответов: 19 |
|
Номер ответа: 1 Автор ответа:  GSerg Вопросов: 0 Ответов: 1876 
|
Профиль | | #1 | Добавлено: 26.08.05 17:31 |
| left$(instr-1) | ||
|
Номер ответа: 2 Автор ответа: Master Cheat'$ Вопросов: 14 Ответов: 102 |
Профиль | | #2 | Добавлено: 26.08.05 17:40 |
| это где и куды сувать? | ||
|
Номер ответа: 3 Автор ответа: BarsikРазработчик Offline Client ICQ: 343368641 Вопросов: 17 Ответов: 686 |
Web-сайт: Профиль | | #3 | Добавлено: 26.08.05 19:22 |
|
left$
right& mid$ |
||
|
Номер ответа: 4 Автор ответа: AndreyMpICQ: 237822510 Вопросов: 28 Ответов: 1182 |
Профиль | | #4 | Добавлено: 26.08.05 22:25 |
| Еще InStr ища свою точку или другой символ. | ||
|
Номер ответа: 5 Автор ответа: Master Cheat'$Вопросов: 14 Ответов: 102 |
Профиль | | #5 | Добавлено: 26.08.05 23:21 |
| ))) спсиб помогло | ||
|
Номер ответа: 6 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #6 | Добавлено: 26.08.05 23:52 |
|
правельней так:
File$ = "proga.exe"
s = Split(File$,"." 
Reshirenie$ = s(ubound(s)) Msgbox Reshirenie$ '(писал на фонарь, не тестировал) P.S. Т.к. в имени может быть несколько точек, расширение может быть более или менее чем 3 буквы. |
||
|
Номер ответа: 7 Автор ответа: Master Cheat'$Вопросов: 14 Ответов: 102 |
Профиль | | #7 | Добавлено: 28.08.05 00:17 |
|
а я просто создал из left$ и right$ такую фыгню:
Private Sub OtrezText(OtrezTarget) LoadEnd = False For i = 1 To Len(OtrezTarget) If LoadEnd = False Then If Left$(Right$(OtrezTarget, i), 1) = "\" Then TextEndLoad = Right$(OtrezTarget, i - 1) LoadEnd = True Else TextEndLoad = OtrezTarget End If End If Next End Sub работает безотказно, и править можно под себя скок угодно, и вызывается в одну строчку, а потом когда угодно забираешь TextEndLoad |
||
|
Номер ответа: 8 Автор ответа: nicolai ICQ: 197368786 Вопросов: 6 Ответов: 91 |
Профиль | | #8 | Добавлено: 28.08.05 08:05 |
| можно воспользоваться Replace | ||
|
Номер ответа: 9 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #9 | Добавлено: 28.08.05 15:33 |
|
2 Master Cheat'$
Я те говорю что лючше сплитом! Private Sub Form_Load() MsgBox OtrezText("путь\имя.файла"
End Sub Private Function OtrezText(OtrezTarget$) s = Split(OtrezTarget$, "\"
OtrezText = s(UBound(s)) Set s = Nothing End Function |
||
|
Номер ответа: 10 Автор ответа: GSergВопросов: 0 Ответов: 1876
|
Профиль | | #10 | Добавлено: 28.08.05 16:39 |
|
лючше сплитом
Ещё лючше instrrev, раз уж на то пошло... |
||
|
Номер ответа: 11 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #11 | Добавлено: 28.08.05 17:08 |
| хм... слыш, ну InStr понятно, а что за InStrRev? | ||
|
Номер ответа: 12 Автор ответа: Master Cheat'$Вопросов: 14 Ответов: 102 |
Профиль | | #12 | Добавлено: 28.08.05 17:25 |
| Да, вариантов навалом... и все выдают один результат... | ||
|
Номер ответа: 13 Автор ответа: GSergВопросов: 0 Ответов: 1876
|
Профиль | | #13 | Добавлено: 28.08.05 17:43 |
|
а что за InStrRev
Не поверишь, но функция... Или у тебя VB5? |
||
|
Номер ответа: 14 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #14 | Добавлено: 28.08.05 21:11 |
GSerg  ))))))) та я то поверю что это функция, просто ей пользоваться никогда не приходилось... я пробовал, вроде она возвращает то же значение что и InStr
|
||
|
Номер ответа: 15 Автор ответа: GSergВопросов: 0 Ответов: 1876
|
Профиль | | #15 | Добавлено: 29.08.05 03:15 |
| А ты попробуй когда искомых символов в строке несколько... | ||