Как.....

[Max!]

1)Есть текстбокс , как дапустим слово(отдельно от всего текста) подчеркнуть !
2)В текстбоксе1 есть много слов в столбик , есть 2рой текст бокс где вводим какойто текст жмёшь на кнопку и он выписывает слова из 2ого текстбокса совпавшие с 1ым в 3ий !

Собственно как это реализовать ?

[Ennor]

1. С текстбоксом - никак. Нужен RTB.
2. Очевидно, перебором... Бьешь содержимое второго текста на слова и каждое по отдельности ищешь в первом. Нашел - дописываешь в третий.

[Max!]

2)Можна кодам а то чёта у меня неполучается написать !

[kif]

dim a() as string
dim i as integer

a()=split(text2,vbcrlf,,vbBinaryCompare)
for i=0 to ubound(a())
if instr(1,a(i),text1,vbBinaryCompare)>0 then
text3=text3 & a(i) & vbcrlf
next

наверное так/

[kif]

ошибся, поменя везде text1 на text2 и наоборот

[Max!]

Нет нето ! Впринципе задача такава есть текстбокс 1 кде вводтм текст , втарой где в столбик хронятся слова например

азбука
оба

сомневаться
сомнительный

сомнение
путание

порядок слов обезателен , далее нажимаем на кнопку и прога ищет совпали-ли слова с вторым из первого , А ЕслИ совпали (Например совпало первое слово "азбука" а второе "сомнение" то прога Должна выписать в третий текстбокс слово что находится ниже "азбуки" , это "оба" под "сомнением" , "путание" ) но при этом сохроняя синтакс текста например - "азбука они были одинаковы" после нажатия на кнопку - "оба они были одинаковы" (результат в 3им текстбоксе) !!!

Help ! Plz !

[Max!]

Help PLZ !!!!!

[Max!]

Что некто незнает ??? Неверю !!!

[Ruslan Demidow]

Что некто незнает ??? Неверю !!!

Ну ты и ТЗ задал... Ж8-0
Возьми и продумай алгоритм. Хотя бы последовательность действий программы.
Когда хорошо продумаешь - решение само придёт. Даже может быть не в одном варианте.

[Max!]

Ну еслиб я так легко это решил я бы нестал наверное на форум тему пастить , как ты думаеш ? (пораздумав логически)

[Max!]

У кого ещё какие варианты есть ?

[Igor_123]

Попробуй здесь http://rsdn.ru/Info/Howtoask.xml
Думаю поможет

[Max!]

Igor_123 я понемаю что ума у вас очень много , так вот объясняю популярно если ты думал что это будет смешно , ты глубако ошибался !!!

[Sedge]

Igor_123 я понемаю что ума у вас очень много , так вот объясняю популярно если ты думал что это будет смешно , ты глубако ошибался !!!

Хм. Насколько я понял, никто тебя обидеть не хотел. Вопрос действительно задан, ну, мягко говоря, не совсем понятно. Мне, допкустим, понадобилось минут десять для того чтобы въехать в смысл...

порядок слов обезателен , далее нажимаем на кнопку и прога ищет совпали-ли слова с вторым из первого , А ЕслИ совпали (Например совпало первое слово "азбука" а второе "сомнение" то прога Должна выписать в третий текстбокс слово что находится ниже "азбуки" , это "оба" под "сомнением" , "путание" ) но при этом сохроняя синтакс текста например - "азбука они были одинаковы" после нажатия на кнопку - "оба они были одинаковы" (результат в 3им текстбоксе) !!!

А где проблема-то? Либо она закопана так глубоко, что я ее не вижу, либо ее нет совсем. Если первое, то тогда уточни, что тебе надо.
И так, насколько я понял, нужно:
1. Ввести произвольный текст (sText) в поле txtText.
2. Ввести группу из двух слов (sText2Find, sText2Replace) в поле txtText2Find.
3. Если sText2Find входит в sText, то заменить его на sText2Replace и вывести результат в txtResult.
Правильно?
Собственно:

Код: Выделить всё

Private Sub Command1_Click()
'
On Error GoTo eRes

'//////////////////////////////////////////////////////////////////////////////////////
  Dim vTxtArray() As String
'//////////////////////////////////////////////////////////////////////////////////////

vTxtArray = Split(txtText2Find.Text, vbCrLf, , vbTextCompare)
If InStr(1, txtText.Text, vTxtArray(0), vbTextCompare) > 0 Then
  txtResult.Text = Replace(txtText.Text, vTxtArray(0), vTxtArray(1), , , vbTextCompare)
Else
  txtResult.Text = "NOTHING!!!"
End If

Exit Sub
eRes:
  MsgBox Err.Description
  Resume Next
End Sub


[Igor_123]

Если-бы, я хотел посмеятся, я прочитал-бы анекдот.
А так ты не увидел

Авторы: Eric Steven Raymond
Rick Moen
Перевод: Валерий Кравчук
Источники: How To Ask Questions The Smart Way
Оригинал русского перевода
Опубликовано: 17.10.2002
Исправлено: 11.08.2004
Версия текста: 2.4

Не думайте, что вам должны ответить. Вам никто ничего не должен; вы же, в конечном счете, не платили за эти услуги. Вы получите ответ, если заслужите его, задавая существенный, интересный и наводящий на размышления вопрос — вопрос, неявно дающий сообществу новый опыт, а не просто пассивно требующий от других поделиться знаниями.

С другой стороны, неплохо сразу ясно дать понять, что вы можете и хотите помочь в процессе выработки решения. На вопросы типа "Может ли кто-то подсказать?", "Что не учтено в моем примере?" и "А нет ли сайта, который стоит на эту тему посмотреть?" более вероятно будет получен ответ, чем на требование прислать точную последовательность действий для решения проблемы, поскольку вы явно показали, что решите проблему сами, если кто-то укажет вам правильное направление действий.

и ещё

Вопросы, которые задавать не надо
Вот ряд классических глупых вопросов и о чем думают хакеры, когда на них не отвечают.

Вопрос: Моя {программа, конфигурация, мой оператор SQL} не работает
Ответ: Это вообще не вопрос, и я не собираюсь задавать еще десяток наводящих вопросов, чтобы выяснить, в чем на самом деле состоит ваша проблема — у меня есть дела и поинтереснее. Когда я вижу подобные вопросы, то обычно посылаю один из следующих ответов:Вам к этому больше нечего добавить?Ой, это очень плохо. Надеюсь, вы уже это исправили.И какое это имеет отношение лично ко мне?

Когда задаете вопрос, укажите с самого начала, что вы все это уже сделали; это поможет понять, что вы не какой-нибудь лентяй, транжирящий чужое время. Еще лучше, покажите, что вы узнали в результате своих поисков. Нам нравится отвечать людям, продемонстрировавшим свою способность воспринимать ответы.

И ещё хорошо сидеть на выделенке и иметь возможность просматривать многие сообщения на форуме, а при 18Кб/с на модеме и посекундной тарификации на телефоне, без обратного звонка - этого уже не сделаеш!

Тебе несколько раз показывали чем тебе надо занятся

Ну ты и ТЗ задал... Ж8-0
Возьми и продумай алгоритм. Хотя бы последовательность действий программы.
Когда хорошо продумаешь - решение само придёт. Даже может быть не в одном варианте.

Добавлено: 04.11.2004 (Чт) 13:30 Заголовок сообщения:

--------------------------------------------------------------------------------

dim a() as string
dim i as integer

a()=split(text2,vbcrlf,,vbBinaryCompare)
for i=0 to ubound(a())
if instr(1,a(i),text1,vbBinaryCompare)>0 then
text3=text3 & a(i) & vbcrlf
next

1. С текстбоксом - никак. Нужен RTB.
2. Очевидно, перебором... Бьешь содержимое второго текста на слова и каждое по отдельности ищешь в первом. Нашел - дописываешь в третий.

Ноль внимания, подай на блюдечке готовый код и что-бы ещё и с прискоком
Да недавно спрашивали по работе с мсжбоксом, так автор после ответов ещё и напомнил как заголовок менять в msgbox (молодец)
А от тебя ничего кроме Как... Хелп ми Памаготе помираю - на здоровье, главное что-бы не во вред!

Примеры того что ты просил можно найти в Инете, на этом же сайте подумав даже с помощью справки к ВБА из Офиса и ГОЛОВЫ вместо этого

Igor_123 я понемаю что ума у вас очень много , так вот объясняю популярно если ты думал что это будет смешно , ты глубако ошибался !!!

Учись! и Удачь в програмировании

[Sedge]

А ведь действительно, под классические симптомы все подпадает
Надо бы эту ссылку, о там как правильно вопросы задавать, в FAQ...

[t4lli]

А где проблема-то? Либо она закопана так глубоко, что я ее не вижу, либо ее нет совсем. Если первое, то тогда уточни, что тебе надо.
И так, насколько я понял, нужно:
1. Ввести произвольный текст (sText) в поле txtText.
2. Ввести группу из двух слов (sText2Find, sText2Replace) в поле txtText2Find.
3. Если sText2Find входит в sText, то заменить его на sText2Replace и вывести результат в txtResult.
Правильно?
Собственно:
Код:

Private Sub Command1_Click()
'
On Error GoTo eRes

'//////////////////////////////////////////////////////////////////////////////////////
Dim vTxtArray() As String
'//////////////////////////////////////////////////////////////////////////////////////

vTxtArray = Split(txtText2Find.Text, vbCrLf, , vbTextCompare)
If InStr(1, txtText.Text, vTxtArray(0), vbTextCompare) > 0 Then
txtResult.Text = Replace(txtText.Text, vTxtArray(0), vTxtArray(1), , , vbTextCompare)
Else
txtResult.Text = "NOTHING!!!"
End If

Exit Sub
eRes:
MsgBox Err.Description
Resume Next
End Sub

Ещё вопросик к теме , если в поле txtText2Find дапустим не два слова а много слов очень много , то как по этоиу метаду все проверить Извеняюсь за такоq воgрос я просто несилён в VB Чайник !

[Sedge]

Как вариант. Парсить весь текст, отсекая пустые строки, в массив, затем 0-й и четные элементы использовать для поиска, а нечетные - для замены.

[t4lli]

А можно кодам ! Я Чайник !

[t4lli]

Я пробовал , експерементировал но чёто невыходит !

[Ennor]

Поиск в строке - InStr()
Разбиение строки на массив - Split()
Сведение массива строк в одну строку - Join()

[t4lli]

А по русски и помедленнее

[GSerg]

Имя ему сменили зачем-то...

[Igor_123]

Значит будем бороться, за интересных собеседников!!!

Max! и t4lli где искать информацию:
В MSDN, если нет MSDN, то наверняка есть офис в котором есть справка. Запускаеш Ексель(больше привык), там Alt+F11 и попадаеш в среду VBA. С VB они немного разные, но ничего жить можно, некоторые так и живут . Там пишете названия тех функций, которые Вам сказали становитесь на интересующее название и нажимаете F1. И читаем, правда информация на английском, но есть ПРОМТ, Лингва, Сократ и много других программ-переводчиков.

Если неплохо с интернетом, в Google поиск по названиям функций, будет много примеров с коментариями на русском.

Есть много сайтов посвященных програмированию на VB
www.firststep.ru - например(или www.firststeps.ru)

Можно пойти в магазин или на книжный рынок и там что-нибудь купить(так хочется )

И самое главное если программист в 9 утра на работе, значит он там ночевал!
Я не призываю дословно выполнять примету, но знание приходит с количеством написанных программ, которые не обязательно должны быть заменителем офиса, или содержать около сотни классов.

Вобщем когда появятся вопросы по существу - будем рады помочь!

[alibek]

Igor_123, я долго думал, очень долго думал. Очень, очень долго думал. По всем признакам, _это_ -- это бот. Вот с тех пор я его посты всегда пропускаю

[Sedge]

2alibek Не. Во всем виноват проклятый Стрим с его скидками для школьников

[Igor_123]

2 Sedge а кто(что) такой(такое) Стрим

alibek! я тоже стараюсь делать так, но зацепило.
а подпись у тебя прикольная.
Вот выдержка из конференции по InterBase/FireBird/Yaffil
//--------------------------------------------------------------------
> > из реального проекта.
> > Один деятель написал в модуле стандартных функций:
> > -----------------------
> > { Функция преобразования True/False }
> > function InvertBoolean(Value: Boolean):Boolean;
> > begin
> > if Value then Result := False
> > else Result := True;
> > end;
> > -----------------------
> >
> > И нещадно пользовал сию функцию.
> > Кстати проект успешно внедрен и работает. Вымарывать за ним это чудо
было
> > мне
> > влом.
> >
> Не подозревал что есть такое слово "not" ?
//-------------------------------------------------------
Нужно добавить еще такую функцию: НУ_УЖ_NOT(x) = FALSE;
Таблица истинности:

НУ_УЖ_NOT(FALSE) = FALSE
НУ_УЖ_NOT(TRUE) = FALSE

Смысл - всегда гарантированно возвращает false от логического условия.
(Конъюнкцию с false в качестве альтернативы не предлагать!)

Для чего така функция?

женский вопрос-утверждение: Ты меня не любишь?
Варианты:
1. _Да_, не люблю.
2. _Нет_, не люблю.

Вот тут-то и понадобиться данная функция....
//-------------------------------------------------------
Тогда нужна еще одна функция для ответа на чисто мужской вопрос: "пить
будешь?"
//-------------------------------------------------------
тут труе фалсе не подойтет.

Единственно правильный ответ: а есть?
//-------------------------------------------------------
Единственно правильный ответ ДА.
А ежели нету - найти не проблема...
//-------------------------------------------------------
нет, ты видимо не уловил все таки сам настрой фразы
при предложении уже предполагается что или есть или найдем.
при ответе тоже что "да", но другими словами.

//-------------------------------------------------------
Это уже не двузначная логика... Рискуешь нарваться на NULL BEER войну )))

//-------------------------------------------------------
NULL BEER - это безалкогольное, что ли?

//-------------------------------------------------------
TO_BEER OR NOT TO_BEER = ХЗ

//-------------------------------------------------------
TWO BEER OR NOT TWO BEER?

//-------------------------------------------------------
НУ НАЧАЛОСЬ!

BEER = 0 это безалкогольное.

NULL BEER - ПИВА НЕТ!!!!


//-------------------------------------------------------
Ну да, что же тогда вернет select * from bars where beer is not null?
Бары в которых есть пиво? А что это за бар в котором нет пива?

//-------------------------------------------------------
NULL BEER - это когда уже не можешь определить, пил ты его или нет

//-------------------------------------------------------
Кажись это будет так: Human_State(BEER) IS NULL;
А BEER IS NULL - все же "ПИВА НЕТ"!
))

Опять NULL-война пошла...

//-------------------------------------------------------
??>> Единственно правильный ответ ДА.
??>> А ежели нету - найти не проблема...

PY> нет, ты видимо не уловил все таки сам настрой фразы
PY> при предложении уже предполагается что или есть или найдем.
PY> при ответе тоже что "да", но другими словами.

Думаю, определение из Оракла подойдет: deterministic function, которая в
любом случае вернет значение "НАЛИВАЙ!"

[Max!]

Muhhahahahaah whaaaahahahhahahah uhahahahahahah ! Ну игор ты дал , долга я смеялся , 3 раза со стула падал !!!!!!!

GSerg

Имя ему сменили зачем-то...

Мне имя некто неменял !!!

Sedge

А где проблема-то? Либо она закопана так глубоко, что я ее не вижу, либо ее нет совсем. Если первое, то тогда уточни, что тебе надо.
И так, насколько я понял, нужно:
1. Ввести произвольный текст (sText) в поле txtText.
2. Ввести группу из двух слов (sText2Find, sText2Replace) в поле txtText2Find.
3. Если sText2Find входит в sText, то заменить его на sText2Replace и вывести результат в txtResult.
Правильно?
Собственно:
Код:

Private Sub Command1_Click()
'
On Error GoTo eRes

'//////////////////////////////////////////////////////////////////////////////////////
Dim vTxtArray() As String
'//////////////////////////////////////////////////////////////////////////////////////

vTxtArray = Split(txtText2Find.Text, vbCrLf, , vbTextCompare)
If InStr(1, txtText.Text, vTxtArray(0), vbTextCompare) > 0 Then
txtResult.Text = Replace(txtText.Text, vTxtArray(0), vTxtArray(1), , , vbTextCompare)
Else
txtResult.Text = "NOTHING!!!"
End If

Exit Sub
eRes:
MsgBox Err.Description
Resume Next
End Sub

Огромное приогромное спосибо !!!!
Всё работает !!!

Подчёркиваю свой слова

Max!

Igor_123 я понемаю что ума у вас очень много , так вот объясняю популярно если ты думал что это будет смешно , ты глубако ошибался !!! icon_twisted.gif icon_twisted.gif icon_twisted.gif icon_lol.gif

далее....

Если-бы, я хотел посмеятся, я прочитал-бы анекдот.
А так ты не увидел
Цитата:
Авторы: Eric Steven Raymond
Rick Moen
Перевод: Валерий Кравчук
Источники: How To Ask Questions The Smart Way
Оригинал русского перевода
Опубликовано: 17.10.2002
Исправлено: 11.08.2004
Версия текста: 2.4

Не думайте, что вам должны ответить. Вам никто ничего не должен; вы же, в конечном счете, не платили за эти услуги. Вы получите ответ, если заслужите его, задавая существенный, интересный и наводящий на размышления вопрос — вопрос, неявно дающий сообществу новый опыт, а не просто пассивно требующий от других поделиться знаниями.

С другой стороны, неплохо сразу ясно дать понять, что вы можете и хотите помочь в процессе выработки решения. На вопросы типа "Может ли кто-то подсказать?", "Что не учтено в моем примере?" и "А нет ли сайта, который стоит на эту тему посмотреть?" более вероятно будет получен ответ, чем на требование прислать точную последовательность действий для решения проблемы, поскольку вы явно показали, что решите проблему сами, если кто-то укажет вам правильное направление действий.

и ещё
Цитата:
Вопросы, которые задавать не надо
Вот ряд классических глупых вопросов и о чем думают хакеры, когда на них не отвечают.

Вопрос: Моя {программа, конфигурация, мой оператор SQL} не работает
Ответ: Это вообще не вопрос, и я не собираюсь задавать еще десяток наводящих вопросов, чтобы выяснить, в чем на самом деле состоит ваша проблема — у меня есть дела и поинтереснее. Когда я вижу подобные вопросы, то обычно посылаю один из следующих ответов:Вам к этому больше нечего добавить?Ой, это очень плохо. Надеюсь, вы уже это исправили.И какое это имеет отношение лично ко мне?

Когда задаете вопрос, укажите с самого начала, что вы все это уже сделали; это поможет понять, что вы не какой-нибудь лентяй, транжирящий чужое время. Еще лучше, покажите, что вы узнали в результате своих поисков. Нам нравится отвечать людям, продемонстрировавшим свою способность воспринимать ответы.

И ещё хорошо сидеть на выделенке и иметь возможность просматривать многие сообщения на форуме, а при 18Кб/с на модеме и посекундной тарификации на телефоне, без обратного звонка - этого уже не сделаеш!

Тебе несколько раз показывали чем тебе надо занятся
Цитата:
Ну ты и ТЗ задал... Ж8-0
Возьми и продумай алгоритм. Хотя бы последовательность действий программы.
Когда хорошо продумаешь - решение само придёт. Даже может быть не в одном варианте.
Цитата:
Добавлено: 04.11.2004 (Чт) 13:30 Заголовок сообщения:

--------------------------------------------------------------------------------

dim a() as string
dim i as integer

a()=split(text2,vbcrlf,,vbBinaryCompare)
for i=0 to ubound(a())
if instr(1,a(i),text1,vbBinaryCompare)>0 then
text3=text3 & a(i) & vbcrlf
next


Цитата:
1. С текстбоксом - никак. Нужен RTB.
2. Очевидно, перебором... Бьешь содержимое второго текста на слова и каждое по отдельности ищешь в первом. Нашел - дописываешь в третий.

Ноль внимания, подай на блюдечке готовый код и что-бы ещё и с прискоком
Да недавно спрашивали по работе с мсжбоксом, так автор после ответов ещё и напомнил как заголовок менять в msgbox (молодец)
А от тебя ничего кроме Как... Хелп ми Памаготе помираю - на здоровье, главное что-бы не во вред!

Примеры того что ты просил можно найти в Инете, на этом же сайте подумав даже с помощью справки к ВБА из Офиса и ГОЛОВЫ вместо этого
Цитата:
Igor_123 я понемаю что ума у вас очень много , так вот объясняю популярно если ты думал что это будет смешно , ты глубако ошибался !!!


Учись! и Удачь в програмировании icon_wink.gif

И предыдущая сылка ....

Было смешно очень действительно !!!!!

Кстати Igor_123 учту на будущие !

Всё всем спасибо !!!!

[t4lli]

Этот код каторый дал Sedge берёт толко первое слова и заменяет на втарое ниже , предпаложим что нам надо чтобы прога

1) Брола 1но слово из текста (из текстового поля где вводим текст) дальше проверяла есть ли такое в текстовом поле где содержаца слова в столбик точнее в катором будем искать (проверку я сделал)
2) Если слово найдено то переходим на слово ниже (Слово может быть не в начале а гденибуть в середине текстового поля в катором ищем) , далее выписываем его в текстовое поле как результат (всего на форме 3 текст поля) , в третий для результатов!!!!
3) Если такое слово не найдено в текстовом поле в катором ищем то берём следущие слово в текстовом поле где сам текст и анализируем точно тагже как в пункте 1, 2 !!!!! (И так по одному слову любой текст ведённый пользователем в текстовом поле где сам текст)

Желательно кодам !


Ну вроде высказался , учитывая наставления Igorа по поводу сообщений Макса !
Надеюсь на ваще понимание и терпение !
С уважением t4lli

[t4lli]