| Вопрос: Замена, ну или почти замена :) | Добавлено: 07.09.05 00:25 |
Автор вопроса:  «UL.eXe» | ICQ: 197.895.916.247 |
|
Есть у меня текст в tboxe,
как с помощью фун. If... найти в нем слово, к примеру "один" и поменять ему цвет, замена - это replace(t1.text.......) а вот цвет сменить во всех "один" в данном текст боксе как? Заранее благодарен! |
| Ответы | Всего ответов: 6 |
|
Номер ответа: 1 Автор ответа: «UL.eXe» ICQ: 197.895.916.247 Вопросов: 72 Ответов: 540 |
Профиль | | #1 | Добавлено: 07.09.05 00:46 |
| И еще одно! Если мне надо вписывать "" в "", тоесть должно выйти что-то типа: " "пример!" ", как это возможно осуществить?? | ||
|
Номер ответа: 2 Автор ответа:  BarsikРазработчик Offline Client ICQ: 343368641 Вопросов: 17 Ответов: 686 |
Web-сайт: Профиль | | #2 | Добавлено: 07.09.05 02:26 |
| да поможет тебе rtb и Chr$(32) | ||
|
Номер ответа: 3 Автор ответа: «UL.eXe»ICQ: 197.895.916.247 Вопросов: 72 Ответов: 540 |
Профиль | | #3 | Добавлено: 07.09.05 02:28 |
| благодарю | ||
|
Номер ответа: 4 Автор ответа: HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #4 | Добавлено: 07.09.05 15:02 |
|
If... найти в нем слово, к примеру "один"
тупо перебирать по символам, но это тупо... лучше так Text1 = "раз один два"
pos = InStr(1, Text1, "один", 3) pos2 = InStr(pos, Text1, " ", 1) MsgBox Mid(Text1, pos, pos2 - pos) |
||
|
Номер ответа: 5 Автор ответа: «UL.eXe»ICQ: 197.895.916.247 Вопросов: 72 Ответов: 540 |
Профиль | | #5 | Добавлено: 07.09.05 20:30 |
|
Уважаемый, HACKER:
Text1 = "раз один два"
pos = InStr(1, Text1, "один", 3) pos2 = InStr(pos, Text1, " ", 1) MsgBox Mid(Text1, pos, pos2 - pos) Только вот убераю из кода Text1.Text и выкидывает ошибку |
||
|
Номер ответа: 6 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #6 | Добавлено: 07.09.05 23:17 |
тю, так ты не уберай  ))))
З.Ы. А вот когда ты убераешь, ты взамен что-то ставиш?
З.Ы.Ы. Или всё же вывеска соответствует товару? )
|
||
Страница: 1 |