| Вопрос: Переводчик | Добавлено: 16.11.06 14:13 |
Автор вопроса:  starik-xotabich | Web-сайт: www.mishadiana.euro.ru | ICQ: Joker (317-541-854) |
|
Дорогие господа (товарищи, друзья)
Старичок начал заниматься программирование и ему нужна ваша помощь!!! Пишу первый раз. Прошу о помощи как и многие другие. Вкрации опищу ситуацию. На форме находятся два текстовых поля и кнопка <перевода>. В первом поле находится текст и его следует перевести во второе поле, причем кажное слова надо пропустить через алгоритм перевода. У меня проблема, как читать слова в первом текстовом поле, по словам, друг за другом. Надеялся объяснить, если кто понял и может помочь, очень прошу. PS. Данная программа не будет распространяться в комерческих целях. Если получиться то я пущу ее в инет для общего пользования. Моя цель, создать переводчик, типа: SKIIN English Russian Translator |
| Ответы | Всего ответов: 8 |
|
Номер ответа: 1 Автор ответа: [root] Вопросов: 45 Ответов: 1212 |
Web-сайт: Профиль | | #1 | Добавлено: 16.11.06 14:18 |
|
Split
|
||
|
Номер ответа: 2 Автор ответа:  starik-xotabich ICQ: Joker (317-541-854) Вопросов: 1 Ответов: 3 |
Web-сайт: Профиль | | #2 | Добавлено: 16.11.06 15:49 |
| спасибо за скорость. посмотрю, постораюсь разобраться. | ||
|
Номер ответа: 3 Автор ответа: starik-xotabichICQ: Joker (317-541-854) Вопросов: 1 Ответов: 3 |
Web-сайт: Профиль | | #3 | Добавлено: 16.11.06 15:50 |
| root а по подробнее можно. как ею пользоваться? | ||
|
Номер ответа: 4 Автор ответа: [root]Вопросов: 45 Ответов: 1212 |
Web-сайт: Профиль | | #4 | Добавлено: 16.11.06 16:05 |
|
Option Explicit
Dim strA Private Sub Command1_Click() strA = Split(Text1, " " 
Text2 = strA(0) End Sub Private Sub Form_Load() Text1 = "Доброго время суток" Text2 = "" End Sub |
||
|
Номер ответа: 5 Автор ответа:  avdey ICQ: 219571279 Вопросов: 34 Ответов: 486 |
Профиль | | #5 | Добавлено: 16.11.06 16:38 |
| Хатабыч, ты в иностранных языках походу шаришь??? | ||
|
Номер ответа: 6 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #6 | Добавлено: 16.11.06 21:01 |
|
дополню root'a
Dim str() as String, i as Long str = Split(Text1, " "
For i = 0 to Ubound(str) msgbox str(i) next i |
||
|
Номер ответа: 7 Автор ответа: starik-xotabichICQ: Joker (317-541-854) Вопросов: 1 Ответов: 3 |
Web-сайт: Профиль | | #7 | Добавлено: 17.11.06 02:43 |
| Огромное спасибо братцы | ||
|
Номер ответа: 8 Автор ответа: [root]Вопросов: 45 Ответов: 1212 |
Web-сайт: Профиль | | #8 | Добавлено: 17.11.06 08:46 |
|
Пжалуста
|
||
Страница: 1 |