Рассылка закрыта
Вы можете найти рассылки сходной тематики в Каталоге рассылок.
Двухъядерный смартфон LG поступил в продажу
 |
Выпуск # 624
Двухъядерный смартфон LG поступил в продажу
Датская компания анонсировала 80-мегапиксельную фотоматрицу
RE: Как передать управление со страницы вызванной с помощью ajax, серверной странице вызвавшей данный ajax метод? после чего необходимо передать управление серверной части страницы default.aspx.cs для выполнения следующего кодаесли копать в этом направлении, то придется все делать руками. Т.е. страница AJAX должна возвращать данные из Session["currentMember"], либо в json, либо даже в html, которые потом нужно выводить на страницу в элемент типа div. Вообще, использовать Session в таком случае не нужно. (см. прикрепленный пример 1) А проще всего, если нет особых требований к проекту: если раздел сайта не будет индексироваться поисковиками, не потребуется делать ничего не ординарного, то можно использовать UpdatePanel. (см. прикрепленный пример 2) PS: Если понадобится ASP.NET AJAX Control Toolkit, то найти можно здесь. PS2: jQuery и ASP.NET AJAX Control Toolkit лучше не смешивать. jQuery - много ручной работы, максимальная гибкость, минимум геморроя, минимум мусора. Актуально использовать, если требуется максимальный контроль над приложением. ASP.NET AJAX Control Toolkit - минимум ручной работы, можно обойтись одним лишь серверным кодом, много мусора, минимум контроля, хотя контроль можно получить в комплекте с геморроем. Актуально использовать в места, где главное чтобы оно работало, а как - неважно. Например, в админках, во всяких корзинах, личных кабинетах пользователей и т.п.
My-Best-Torent
RE: Работа с текстом в RichTextBox (Visual Basic 6.0) Dim i As Integer Dim word As String For i = 0 To Len(RichTextBox1.Text) - 1 If Mid(RichTextBox1.Text, i, 1) = " " Then 'наткнулись на пробел, значит у нас есть слово 'в переменной word есть слово, можно проверить на какую букву оно начинается и заканчивается MsgBox(Left(word, 1)) 'начальная буква MsgBox(Right(word, 1)) 'конечная буква 'покрасить буквы, зная их координаты можно при помощи: 'RichTextBox1.SelStart 'RichTextBox1.SelLength 'RichTextBox1.SelColor 'RichTextBox1.SelBold 'после проверки, переменную нужно аннулировать, чтобы продолжить искать другие слова word = "" Else 'это не проблем, добавляем к слову word = word & Mid(RichTextBox1.Text, i, 1) End If Next i Dim normalAlpha As String, anomalAlpha As String
normalAlpha = "АБВГДЕЁ"
anomalAlpha = "QWERTYU"
Dim txt As String
txt = "АБВ"
Dim i As Integer, j As Integer
For i = 0 To Len(txt) - 1
For j = 0 To Len(normalAlpha) - 1 'листаем нормальный алфавит
'Mid(txt, i, 1) - текущий символ текста
'Mid(normalAlpha, j, 1) - символ алфавита
If Mid(txt, i, 1) = Mid(normalAlpha, j, 1) Then
'если текущий символ равен символу алфавита
'то можно его заменить
txt = Mid(anomalAlpha, j, 1)
Exit For 'выходим из цикла, т.к. мы уже нашли и заменили текущую букву
End If
Next j
Next iPS: Приведенные фрагменты кода на работоспособность не проверялись.
RE: Работа с текстом в RichTextBox (Visual Basic 6.0)
RE: Работа с текстом в RichTextBox (Visual Basic 6.0)
Google покупает интернет-компанию SayNow Google купила интернет-компанию SayNow, разрабатывающую программную платформу, позволяющую оснастить различные социальные приложения голосовыми функциями. До сих пор разработки SayNow использовали различными крупными порталами для группового обсуждения, для обслуживания конференц-звонков, трансляции на сайтах заранее записанных сообщений для пользователей, а также для голосового общения самих пользователей.
О поглощении со стороны Google сообщили в самой компании SayNow, тогда как Google пока не предоставляет комментариев по данному поводу. В заявлении SayNow говорится, что их команда разработчиков теперь объединит усилия с Google, в частности с группой разработчиков системы Google Voice.
Бот-сеть Bagle стала крупнейшей в мире, утверждает MessageLabs Согласно данным отчета компании MessageLabs, входящей в структуру корпорации Symantec, в январе 2011 года бот-сеть Bagle обошла бот-сеть Rustock по количеству рассылаемого спама. MessageLabs отмечает, что до этого Rustock была лидером на протяжении минимум полугода, но Bagle обошла ее по масштабам работы практически сразу же после появления. Прежде Rustock специализировалась на рассылке фармацевтического спама, но активность сети резко пошла на спад в период рождественских каникул и оставалась минимальной до 10 января, однако и после этого периода сеть уже не являлась безоговорочным лидером. По данным MessageLabs, в январе 2011 года на долю Rustock пришлось около 17,5% всего спам-потока, заблокированного серверами компании. В то же время сеть Bagle, резко активизировавшаяся в январе, сейчас рассылает около 25% спама в интернете.
RE: Работа с текстом в RichTextBox (Visual Basic 6.0) Вот с этим что-то не ясное, ошибку на нем выбивает:у меня нет VB 6.0 и я не могу проверить этот код. Все зависит от ошибки, которая происходит. Возможно нужно начинать считывание символов с единицы, а не с нуля. For i = 1 To Len(RichTextBox1.Text)
RE: Работа с текстом в RichTextBox (Visual Basic 6.0)
RE: Работа с текстом в RichTextBox (Visual Basic 6.0)
RE: Работа с текстом в RichTextBox (Visual Basic 6.0) а по поводу окраски букв, можно ли по подробней? Параметры какие нибуть задавать надо? Я имею введу: RichTextBox1.SelStartSel - это выделение, сокращение от Select, Selection RichTextBox1.SelStart - начало выделения RichTextBox1.SelLength - размер выделения (количество символов, которые нужно выбрать) RichTextBox1.SelColor - покрасить цвет шрифта выделения, нужно указывать код цвета, например красный - RGB(255, 0, 0) RichTextBox1.SelBold - сделать выделение жирным если True, в противном случае - False Например, в RichTextBox1 будет текст: Привет мир! чтобы выделить слово мир красным цветом, будет примерно такой код: RichTextBox1.Text = "Привет мир!" RichTextBox1.SelStart = 7 ' начало выделения с буквы "м". 7 - если отсчет начинается с нуля, если с 1, то 8. Как именно - не помню RichTextBox1.SelLength = 3 'выделяем три буквы RichTextBox1.SelColor = RGB(255, 0, 0)'красим в красный цвет RichTextBox1.SelBold = True 'делаем жирный шрифт RichTextBox1.SelLength = 0 'сброс выделения Да проблема в этом, вот только оно выдает буквы на которые начинаются и заканчиваются слова...Цикл по идеи должен пролистать все символы в тексте. Построение слов делается до встречи пробела - это для примера, количество символов нужно увеличить. Т.е. проверять не только пробел, но и переводы строк vbCrl, vbLf, запятые (,), точки (.), вопросы (?), восклицательные знаки (!) и т.п. If Mid(RichTextBox1.Text, i, 1) = " " Or Mid(RichTextBox1.Text, i, 1) = "." Or Mid(RichTextBox1.Text, i, 1) = "," Or Mid(RichTextBox1.Text, i, 1) = vbCr ... и тут другие символы для проверки Then Dim ch As String ch = Mid(RichTextBox1.Text, i, 1) If ch = " " Or ch = "." Or ch = "," Or ch = vbCr ... и тут другие символы для проверки Then Слово будет в переменной word. Проверить начальную и конечную буквы можно при помощи функций Left и Rigth. 'проверка с учетом регистра, если без регистра, то нужно привести регистр символов в единый вид 'If UCase(Left(word, 1)) = UCase(Right(word, 1)) Then If Left(word, 1) = Right(word, 1) Then 'первый и конечный символ слова совпадают, значит тут должен быть код покраски символов End If RichTextBox1.SelStart = i - Len(word) 'может понадобиться отнять еще единицу, или добавить, нужно смотреть что получится :) RichTextBox1.SelLength = 1 RichTextBox1.SelColor = RGB(255, 0, 0) RichTextBox1.SelBold = True RichTextBox1.SelStart = i - 1 'нужно смотреть, какой символ будет выделен RichTextBox1.SelLength = 1 RichTextBox1.SelColor = RGB(255, 0, 0) RichTextBox1.SelBold = True
Винт Серф: последние IP-адреса будут выделены через несколько недель Создатель протокола IP Винт Серф прогнозирует, что IP-адреса четвертой версии протокола, применяемого сейчас для интернет-адресации, иссякнут совсем скоро, возможно, что счет уже пошел на недели. В интервью австралийской газете Sydney Morning Herald он говорит, что в 70-х годах, когда IP-протокол лишь проектировался, 4,3 млрд интернет-адресов, доступных в его адресном пространстве, казались чем-то очень большим и вряд ли достижимым на практике.
В интервью Серф говорит, что в 70-х годах он и предположить не мог, что у глобальной сети будет такая популярность. "Тогда я смотрел на все это как на эксперимент, для которого 4,3 млрд адресов - это более чем достаточно", - говорит он.
Интернет-мошенники атакуют пользователей ICQ при помощи "Anti-virus 8" Распространители вредоносного программного обеспечения начали использовать систему мгновенных сообщений ICQ и популярный западный модный бренд для быстрого распространения поддельного антивирусного программного обеспечения. Об этом говорится в сообщении "Лаборатории Касперского".
На протяжении последних нескольких дней пользователи ICQ получали навязчивые сообщения в виде всплывающих окон от некоего Anti-virus 8, который по сути являлся еще одним рекламным трюком хакеров распространяющих вредоносные коды. В "Лаборатории" классифицируют новый случай как еще один пример программного обеспечения, шантажирующего пользователей, ведь после его установки пользователи получают сообщения о заражении компьютеров с требованием об уплате некой суммы для удаления хакерского софта.
RE: Работа с текстом в RichTextBox (Visual Basic 6.0)
Помогите пожалуста немогу решыть.
RE: Помогите пожалуста немогу решыть.
RE: Помогите пожалуста немогу решыть. Dim myRegExp As RegExp
Dim myMatches As MatchCollection
Set myRegExp = New RegExp
myRegExp.IgnoreCase = True
myRegExp.Global = True
myRegExp.Pattern = "[A-Za-z]+"
Set myMatches = myRegExp.Execute(subjectString)
MsgBox("Английских символов: " & myMatches.Count) 'тут не уверен, может быть и не myMatches.Count, а что-нибудь другое, может myMatches.Length или вообще UBound(myMatches)
myRegExp.Pattern = "[А-Яа-яЁё]+"
Set myMatches = myRegExp.Execute(subjectString)
MsgBox("Русских символов: " & myMatches.Count)
myRegExp.Pattern = "\d+"
Set myMatches = myRegExp.Execute(subjectString)
MsgBox("Цифр: " & myMatches.Count)Если без регулярных выражений, то можно просто пройтись циклом по всем символам текста, проверяя их, проще по коду ASCII. Примерно так: Dim rus As Integer, eng As Integer, num As Integer
Dim i As Integer
Dim txt As String
txt = "Привет мир! Hello world! 123"
For i = 1 To Len(txt)
Dim ch As String
ch = Mid(txt, i, 1)
If Asc(ch) >= 48 And Asc(ch) <= 57 Then 'символ является числом от 0 до 9
num = num + 1 'увеличиваем счетчик
'и так далее, для английских букв, от 65 до ... уже не помню какой там код, наверное 65 + (26 * 2), там еще где-то спец. символы были, нужно это учитывать
'и аналогично - русских
End If
Next i
RE: Помогите пожалуста немогу решыть.
RE: Работа с текстом в RichTextBox (Visual Basic 6.0) Private Sub Command3_Click()
Dim i As Integer
Dim word As String
Dim ch As String
For i = 1 To Len(RichTextBox1.Text) - 1
ch = Mid(RichTextBox1.Text, i, 1)
If Mid(RichTextBox1.Text, i, 1) = " " Or Mid(RichTextBox1.Text, i, 1) = "." Or Mid(RichTextBox1.Text, i, 1) = "," Or Mid(RichTextBox1.Text, i, 1) = vbCr Or Mid(RichTextBox1.Text, i, 1) = vbLf Then
word = ""
Else
word = word & Mid(RichTextBox1.Text, i, 1)
End If
If UCase(Left(word, 1)) = UCase(Right(word, 1)) Then
If Left(word, 1) = Right(word, 1) Then
RichTextBox1.SelStart = i - Len(word)
RichTextBox1.SelLength = 1
RichTextBox1.SelColor = RGB(255, 0, 0)
RichTextBox1.SelBold = True
RichTextBox1.SelStart = i - 1
RichTextBox1.SelLength = 1
RichTextBox1.SelColor = RGB(255, 0, 0)
RichTextBox1.SelBold = True
End If
End If
Next i
End Sub как бы так и выделяется первая буква любого слово....
RE: Работа с текстом в RichTextBox (Visual Basic 6.0)
RE: Работа с текстом в RichTextBox (Visual Basic 6.0) ch = Mid(RichTextBox1.Text, i, 1)
'вместо Mid(RichTextBox1.Text, i, 1) нужно писать ch, чтоб не грузить компьютер одними и теме же операциями
If ch = " " Or ch = "." Or ch = "," Or ch = vbCr Or ch = vbLf Then
'это условие логичней вставить сюда
'поскольку именно тут в переменной word будет целое слово
If UCase(Left(word, 1)) = UCase(Right(word, 1)) Then
'If Left(word, 1) = Right(word, 1) Then - это же по сути тоже самое, что и сточкой выше, только тут с учетом регистра
RichTextBox1.SelStart = i - Len(word)
RichTextBox1.SelLength = 1
RichTextBox1.SelColor = RGB(255, 0, 0)
RichTextBox1.SelBold = True
RichTextBox1.SelStart = i - 1
RichTextBox1.SelLength = 1
RichTextBox1.SelColor = RGB(255, 0, 0)
RichTextBox1.SelBold = True
'здесь можно добавить увеличение счетчика найденных совпадений символов
'например:
'intCount = intCount + 1
'но для этого нужно объявить переменную intCount за блоком цикла, там же где объявляются и переменные word, ch, i
'Dim intCount As Integer
'по завершению работы цикла, значение из переменно intCount можно вывести куда угодно, например в TextBox: Text1.Text = intCount
'End If
End If
'аннулируем значение переменной word, после проверки слова
word = ""
Else
word = word & ch 'вместо Mid(RichTextBox1.Text, i, 1), т.к. символ уже выбран в переменную ch
End If
RE: Работа с текстом в RichTextBox (Visual Basic 6.0)
RE: Вызов JavaScript функции для события серверного элемента ASP.NET(WebForms)
RE: Работа с текстом в RichTextBox (Visual Basic 6.0) То есть в том тексте должно быть выделено только буква "к" в слове "как"...если не выделяет, значит неверные координаты символа, вот в этом куске кода: 'навскидку, при проверке строки 'Привет как дела 'будет следующая картина '1 - П '2 - р '3 - и '4 - в '5 - е '6 - т '7 - пробел '8 - к '9 - а '10- к '11-пробел RichTextBox1.SelStart = i - Len(word) 'переменная i, после нахождения слова "как" должна иметь значение - 11 'длина слова "как" равна 3 символам, 11 - 3 = 8 RichTextBox1.SelLength = 1 ', т.е. выбирается с 8 по 9 символ, т.е. первая буква "к", это из-за того, что выбор начинается с нуля. RichTextBox1.SelColor = RGB(255, 0, 0) RichTextBox1.SelBold = True RichTextBox1.SelStart = i - 2 'если все что написано выше - истина, то поскольку i считает от 1, то нужно отнять не 1, а два, чтобы получить последний символ слова RichTextBox1.SelLength = 1 RichTextBox1.SelColor = RGB(255, 0, 0) RichTextBox1.SelBold = True
RE: Вызов JavaScript функции для события серверного элемента ASP.NET(WebForms)
RE: Работа с текстом в RichTextBox (Visual Basic 6.0)
RE: Как передать управление с ajax-страницы, серверной странице?
RE: Работа с текстом в RichTextBox (Visual Basic 6.0) Все что требуется это что бы не выделялась буква "П" і "д" в словах "Привет" і "дела"...в слове как все правильно. If ch = " " Or ch = "." Or ch = "," Or ch = vbCr Or ch = vbLf Then If UCase(Left(word, 1)) = UCase(Right(word, 1)) Then RichTextBox1.SelStart = i - Len(word) RichTextBox1.SelLength = 1 RichTextBox1.SelColor = RGB(255, 0, 0) RichTextBox1.SelBold = True RichTextBox1.SelStart = i - 1 RichTextBox1.SelLength = 1 RichTextBox1.SelColor = RGB(255, 0, 0) RichTextBox1.SelBold = True End If word = "" Else word = word & ch End If
RE: Как передать управление с ajax-страницы, серверной странице? Первый пример не подходит, т.к. нужно передать класс, который реализует интерфейс IEnumerable, на страницу default. Для того, что бы свойству dataSource, объекта DetailView присвоить именно экземпляр класса Name которого выбирается из select(списка).c jQuery, и в целом с AJAX, это невозможно. Разве что redirect делать, но тогда смысла от AJAX не будет никакого :) HTML, который генерирует DetailView, можно сделать руками, и даже лучше  Второй вариант не подходит, т.к. на форме у меня уже есть updatePanel на которомможно просто все закинуть в один UpdatePanel.
RE: Как передать управление с ajax-страницы, серверной странице?
RE: Работа с текстом в RichTextBox (Visual Basic 6.0)
RE: Как передать управление с ajax-страницы, серверной странице?
RE: Как передать управление с ajax-страницы, серверной странице? Вопрос. Для чего в таком случае нужны серверные элементы и вообще ASP.NET, если все приходиться делать руками?Многие стандартные контролы ASP .NET генерирует кучу не нужного кода, по сути мусора, которым сложно управлять. Из элементов работы с данными, пожалуй самый хороший контрол - Repeater, который можно использовать где угодно и как угодно, и не получить ничего лишнего. Что касается биндинга контрола из самописного кода ajax, то это все равно что пытаться скрестить собаку и кошку, теоретически конечно возможно (например создать экземпляр DetailView на сервере, передать данные, расковырять и получить html, которые этот контрол сгенерирует, и передать его на страницу), но фактически ничего хорошего (полноценно работающего) из этого не выйдет. Здесь нужно выбирать, кого разводить, собак или кошек, т.е. делать все руками, или использовать UpdatePanel и ASP.NET AJAX Control Toolkit. О плюсах и минусах я уже писал. Если можно, какой нибудь примерчик создания DetailView руками.я уже приводил пример (), как это делается руками. Можно формировать html и на стороне клиента, а с сервера передавать JSNO, это лучше, но для понимания будет сложнее, чем формировать html на сервере, как в приведенном примере.
RE: Работа с текстом в RichTextBox (Visual Basic 6.0)
RE: Как передать управление с ajax-страницы, серверной странице? И если писать руками, то насколько сложно потом будет реализовать редактирование, удаление, обновление и добавление?На 50% это зависит от уровня познаний JavaScript, а на остальные 50 - от знаний и понимания ASP .NET В данном случае, мне кажется, проще будет использовать UpdatePanel.
Пример использования RichTextBox
Поиск и подсветка слов в RichTextBox |
луста....
![[at]](http://kbyte.ru/Content/Themes/Native5x/Images/a.gif){kind=small}
kbyte.ru| В избранное | ||
