Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - .NET

Страница: 1 |

 

  Вопрос: Помогите новичку. Пожалуйста! Добавлено: 18.03.11 15:29  

Автор вопроса:  Андрюша
нужно написать программу..
(VB 6.0)

В текстовом окне задан многострочный текст(свойство Multiline=True). Слова отделяются друг от друга пробелами. Каждое предложение в тексте заканчивается отчкой. Выделения осуществлять используя свойства SelStart и SelLength.

*Последовательно выделять предложения с четным количеством слов.

Ответить

  Ответы Всего ответов: 14  

Номер ответа: 1
Автор ответа:
 AgentFire



ICQ: 192496851 

Вопросов: 75
Ответов: 3178
  Профиль | | #1 Добавлено: 18.03.11 15:47
А чем помочь тО? если за тебя написать, то 200 WMR и я это сделаю.

Ответить

Номер ответа: 2
Автор ответа:
 Андрюша



Вопросов: 1
Ответов: 1
  Профиль | | #2 Добавлено: 18.03.11 16:06
написал уже.

Ответить

Номер ответа: 3
Автор ответа:
 AgentFire



ICQ: 192496851 

Вопросов: 75
Ответов: 3178
  Профиль | | #3 Добавлено: 18.03.11 17:05
гж.

Ответить

Номер ответа: 4
Автор ответа:
 andrey



ICQ: 305986093 

Вопросов: 3
Ответов: 41
  Профиль | | #4 Добавлено: 18.03.11 17:13
AgentFire Что, за такие пустяки тоже деньги плотят?)))

Ответить

Номер ответа: 5
Автор ответа:
 andrey



ICQ: 305986093 

Вопросов: 3
Ответов: 41
  Профиль | | #5 Добавлено: 18.03.11 17:15
Может кому-то в будущем будет интересно.
  1. Public Class Form1
  2.     Dim Arr_Stroki(), Arr_Text() As String
  3.     Dim Start_Text(), Len_Text() As Short
  4.     Dim Vidil As Boolean
  5.     Dim a As Short
  6.     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  7.         TextBox1.Text = "В текстовом окне задан многострочный текст (свойство Multiline=True). Слова отделяются друг от друга пробелами. Каждое предложение в тексте заканчивается отчкой. Выделения осуществлять используя свойства SelStart и SelLength."
  8.     End Sub
  9.  
  10.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  11.         If Vidil = True Then
  12.             With TextBox1
  13.                 .Focus()
  14.                 .SelectionStart = Start_Text(a) : TextBox1.SelectionLength = Len_Text(a)
  15.                 .Refresh()
  16.             End With
  17.             a += 1
  18.             If a = Len_Text.Length Then a = 0 : Vidil = False : Return
  19.             Return
  20.         End If
  21.  
  22.         Arr_Stroki = Split(TextBox1.Text, ". ")
  23.         Dim f As Short = 1
  24.         For i = 0 To Arr_Stroki.Length - 1
  25.             If InStr(Split(Arr_Stroki(i), " ").Length / 2, ",") = 0 Then Array.Resize(Start_Text, f) : Array.Resize(Len_Text, f) : Start_Text(Start_Text.Length - 1) = InStr(TextBox1.Text, Arr_Stroki(i)) - 1 : Len_Text(Len_Text.Length - 1) = Arr_Stroki(i).Length : f += 1 : Vidil = True
  26.         Next
  27.     End Sub
  28. End Class

Ответить

Номер ответа: 6
Автор ответа:
 VbStarter



ICQ: 357911808 

Вопросов: 118
Ответов: 1340
  Web-сайт: moscowdevils.ru
 Профиль | | #6 		Добавлено: 18.03.11 17:19
нужно написать программу..
(VB 6.0)


.NET

!?

Ответить

Номер ответа: 7
Автор ответа:
 AgentFire



ICQ: 192496851 

Вопросов: 75
Ответов: 3178
  Профиль | | #7 Добавлено: 18.03.11 18:02
andrey пишет:
Может кому-то в будущем будет интересно
Жутковаато для дотнета :-o

Ответить

Номер ответа: 8
Автор ответа:
 andrey



ICQ: 305986093 

Вопросов: 3
Ответов: 41
  Профиль | | #8 Добавлено: 18.03.11 19:27
AgentFire
лишь бы, что-то писдануть?
Мне пох на твое мнение, касаемое методов кодинга, этот код работает, с каким угодно текстом. Согласно заданным условиям.
А представленные тобои советы в моем вопросе, не хера посуте, не решают проблему, так, одни выкрики!

Ответить

Номер ответа: 9
Автор ответа:
 VbStarter



ICQ: 357911808 

Вопросов: 118
Ответов: 1340
  Web-сайт: moscowdevils.ru
 Профиль | | #9 		Добавлено: 18.03.11 19:33
задОлбли эти дураЦкие древние грблИ.

Ответить

Номер ответа: 10
Автор ответа:
 AgentFire



ICQ: 192496851 

Вопросов: 75
Ответов: 3178
  Профиль | | #10 Добавлено: 18.03.11 20:36
andrey пишет:
А представленные тобои советы в моем вопросе, не хера посуте, не решают проблему, так, одни выкрики!

так и есть, ты че тка нервничаешь?)

Ответить

Номер ответа: 11
Автор ответа:
 AgentFire



ICQ: 192496851 

Вопросов: 75
Ответов: 3178
  Профиль | | #11 Добавлено: 18.03.11 20:37
Ты, кстать, дал код, который у него не пойдет. Это не дает тебе очков бонуса ссать кипятком)

Ответить

Номер ответа: 12
Автор ответа:
 andrey



ICQ: 305986093 

Вопросов: 3
Ответов: 41
  Профиль | | #12 Добавлено: 18.03.11 20:51
AgentFire
код работает на ура, а уж, как его будут оптимизировать под себя нуждающиеся, это их право, главное ответ есть, без пантов и прочей хрени.
Код был набросан на скорую руку, согласно:
1. разбить на массивы текст
2. выбрать нужные массивы согласно условию
3. показать результат
Как люди используют куски кода для себя, это уже меня не заботит.
какие очки, о чем ты?)) Я рад помочь человеку, не испытывая при этом, ни какой корысти. Вроде как для этого и существует этот форум!?

Ответить

Номер ответа: 13
Автор ответа:
 andrey



ICQ: 305986093 

Вопросов: 3
Ответов: 41
  Профиль | | #13 Добавлено: 18.03.11 20:57
Ну не пойдет, потому, что он малясь промахнулся и залез в нету ветку )), с вопросом о VB.6
Но т.к. он пишет, что сам сделал, я позволил себе разместить код для .Net, вот и усе!!

Ответить

Номер ответа: 14
Автор ответа:
 BG(Алексей)



Вопросов: 26
Ответов: 295
  Профиль | | #14 Добавлено: 18.03.11 23:56
Кто нибудь забанит его? Или будем и дальше слушать его бред?

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам