ReSQL.ru
     
powered by simpleCommunicator - 2.0.54     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / заныкавшиеся символы
23 сообщений из 23, страница 1 из 1
заныкавшиеся символы
    #37339836
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
BelowZero
Участник
нуно достать из техксбокса символ. например 3 символ из 5 строки. в моей инструкции для чайников описана функция Mid, но она работает ток с первой строкой. ах да, ещё подскажите плз, как узнать количество строк в текстбоксе(а если не трудно и количество символов, но эт необязательно). воть.. заранее спс P/S ***вдали от цивилизации, инет поминутный***
...
Рейтинг: 0 / 0
06.07.2011, 17:39
| Ответить | Цитировать | Написать  
заныкавшиеся символы
    #37339861
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
> Автор: BelowZero
> нуно достать из техксбокса символ. например 3 символ из 5 строки. в моей инструкции для чайников описана функция
> Mid, но она работает ток с первой строкой. ах да, ещё подскажите плз, как узнать количество строк в текстбоксе(а если
> не трудно и количество символов, но эт необязательно).

Split'ом дели строКУ на строки с разделителем vbCrLf и потом проверяй полученый массив на наличие пятой "строки" и если
она есть Mid'ом доставай 3-тий символ
или
InStr'ом ищи пятый разделитель строк(vbCrLf) отсчитывай от него третий символ и Mid'ом вытаскивай

> ах да, ещё подскажите плз, как узнать количество строк в текстбоксе

Строки в текстбоксе будут идти по символам новой строки - vbCrLf(Это если мне не изменяет память и у текстбокса
настроенно свойство для показа многострочного текста) подсчет количества этих символов и даст количество строк

> (а если не трудно и количество символов, но эт необязательно).

MsgBox Len(Text1.Text) - даст количество символов в текстбоксе

> заранее спс P/S ***вдали от цивилизации, инет поминутный***

Ничто не мешает набрать текст заранее, потом зайти на форум и вставить заранее набранный текст в форму нового сообщения
воть

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
06.07.2011, 17:50
| Ответить | Цитировать | Написать  
заныкавшиеся символы
    #37339877
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
BelowZero
Участник
Игорь Горбонос,
а главный вопрос?)
BelowZeroнуно достать из техксбокса символ. например 3 символ из 5 строки. в моей инструкции для чайников описана функция
> Mid, но она работает ток с первой строкой
Игорь ГорбоносНичто не мешает набрать текст заранее, потом зайти на форум и вставить заранее набранный текст в форму нового сообщения
воть


инет помегабайтный, но т.к. я каждый 10 сек жму F5 то он становится ещё и поминутным в каком-тос мысле) насчёт подсчёта символов да, спс, забыл про это. насчёт строк... как узнать количество vbCrLf?
...
Рейтинг: 0 / 0
06.07.2011, 17:56
| Ответить | Цитировать | Написать  
заныкавшиеся символы
    #37340144
Фотография mds_world
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
mds_world
Участник
BelowZeroнасчёт строк... как узнать количество vbCrLf?
Код: plaintext
(len(stroka)-len(replace(stroka, vbCrLf, "")))/ 2
...
Рейтинг: 0 / 0
06.07.2011, 20:48
| Ответить | Цитировать | Написать  
заныкавшиеся символы
    #37340154
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
BelowZero
Участник
mds_world,

спс, пока не проверял, но ,думаю, работаеть) осталось узнать, как найти к тексте
BelowZeroнапример 3 символ из 5 строки
...
Рейтинг: 0 / 0
06.07.2011, 21:08
| Ответить | Цитировать | Написать  
заныкавшиеся символы
    #37340156
timtim
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
timtim
Участник
BelowZeroно т.к. я каждый 10 сек жму F5 то он становится ещё и поминутным в каком-тос мысле)
Зачем частить?
...
Рейтинг: 0 / 0
06.07.2011, 21:12
| Ответить | Цитировать | Написать  
заныкавшиеся символы
    #37340170
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
BelowZero
Участник
timtimBelowZeroно т.к. я каждый 10 сек жму F5 то он становится ещё и поминутным в каком-тос мысле)
Зачем частить?
а вдруг кто нить ответит мне, а тут кгб налетает, форум прикрывает, ответы удаляет. что я потом делать буду...
...
Рейтинг: 0 / 0
06.07.2011, 21:26
| Ответить | Цитировать | Написать  
заныкавшиеся символы
    #37340177
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
BelowZeroИгорь Горбонос,
а главный вопрос?)
Ещё раз
Игорь Горбонос> Автор: BelowZero
> нуно достать из техксбокса символ. например 3 символ из 5 строки. в моей инструкции для чайников описана функция
> Mid, но она работает ток с первой строкой.

Split'ом дели строКУ на строки с разделителем vbCrLf и потом проверяй полученый массив на наличие пятой "строки" и если
она есть Mid'ом доставай 3-тий символ
или
InStr'ом ищи пятый разделитель строк(vbCrLf) отсчитывай от него третий символ и Mid'ом вытаскивай
...
Рейтинг: 0 / 0
06.07.2011, 21:30
| Ответить | Цитировать | Написать  
заныкавшиеся символы
    #37340180
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
BelowZeroа вдруг кто нить ответит мне, а тут кгб налетает, форум прикрывает, ответы удаляет. что я потом делать буду... переходи на NNTP. Всё будет у тебя :)
...
Рейтинг: 0 / 0
06.07.2011, 21:31
| Ответить | Цитировать | Написать  
заныкавшиеся символы
    #37340194
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
BelowZero
Участник
Игорь Горбонос,

Игорь Горбонос Split'ом дели строКУ на строки с разделителем vbCrLf и потом проверяй полученый массив на наличие пятой "строки" и если
она есть Mid'ом доставай 3-тий символ
не понятн сё равно как совместить номер строки и функцию Мид. не получается проводить работу например в 5 строке. эхъъ. попробую завтра на свежую голову
...
Рейтинг: 0 / 0
06.07.2011, 21:41
| Ответить | Цитировать | Написать  
заныкавшиеся символы
    #37340198
timtim
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
timtim
Участник
BelowZero,

Зря ты так!
...
Рейтинг: 0 / 0
06.07.2011, 21:46
| Ответить | Цитировать | Написать  
заныкавшиеся символы
    #37340293
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
BelowZeroне понятн сё равно как совместить номер строки и функцию Мид. не получается проводить работу например в 5 строке
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
dim v as variant
' Получаем "строки" текстбокса
v = Split(Me.Text1.Text, vbCrLf)
' Проверяем, что "строк" как минимум пять или больше 
If UBound(v) - LBound(v) >  4  then
' Проверяем, что длина пятой "строки" имеет как минимум три символа
  If Len(v( 5 (или  4 , не помню) ) >  2  then
' Показываем третий символ пятой строки
    MsgBox "третий символ пятой строки - " & Mid(v( 5 ) ,  3 ,  1 )
  end if
end if
Это как черновой вариант. Писал по памяти, сори за ошибки
...
Рейтинг: 0 / 0
06.07.2011, 23:33
| Ответить | Цитировать | Написать  
заныкавшиеся символы
    #37342150
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
BelowZero
Участник
Игорь Горбонос,

спс, то что нун) тока около часа пытаюсь понять, как получить первый символ последней строки... пробовал:

Код: plaintext
1.
2.
v = Split(Me.Text1.Text, vbCrLf)
poslstroka = UBound(v) - LBound(v)
text1.text = Mid(v(poslstroka) ,  1 ,  1 )
возвращает пустую строку. похоже, мне не хватает знаний правильной записи "переменной от переменной". подскажете?
...
Рейтинг: 0 / 0
07.07.2011, 21:40
| Ответить | Цитировать | Написать  
заныкавшиеся символы
    #37342192
Фотография mds_world
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
mds_world
Участник
BelowZeroкак получить первый символ последней строки...
Код: plaintext
1.
2.
v = Split(Me.Text1.Text, vbCrLf)
poslstroka = v(UBound(v))
text1.text = Left(v(poslstroka),  1 )
...
Рейтинг: 0 / 0
07.07.2011, 22:11
| Ответить | Цитировать | Написать  
заныкавшиеся символы
    #37342193
Фотография AndreTM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreTM
Участник
Вы бы разобрались, что происходит при Split , а также поняли смысл option base
Код: plaintext
1.
2.
v = Split(Me.Text1.Text, vbCrLf)
text1.text = Mid(v(UBound(v) ,  1  ,  1 )
' или text1.text = Left(v(UBound(v) ,  1 )
...
Рейтинг: 0 / 0
07.07.2011, 22:12
| Ответить | Цитировать | Написать  
заныкавшиеся символы
    #37342237
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
BelowZero
Участник
AndreTM,
mds_world,
пасяп, но прикол тут, походу, немного в другом. оказывается, работает и старый вариант, проблем с Split'ом и оптионбэйсом(впервые слышу эти слова) нет. просто последняя строка в моей проге была пустая))))))) а незаметно это было, несмотря на проверки, из-за того, что количество строк, выводим функцией, на самом деле на 1 меньше, чем реальное количество строк в тексте... воть. пойду дальше измываться над своим бейсиком.
...
Рейтинг: 0 / 0
07.07.2011, 22:45
| Ответить | Цитировать | Написать  
заныкавшиеся символы
    #37342358
Фотография AndreTM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreTM
Участник
Походу, вы так и не поняли, что вам посоветовали...
Ладно, рассмотрим ваш вариант:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
Пусть Option Base равен 0, по дефолту. Тогда нумерация элементов массивов идет с 0.
Пусть текстбокс содержит пять строк. Тогда Split() создает массив:
v(0)="Первая строка текста"
v(1)="Вторая строка текста"
v(2)="Третья строка текста"
v(3)="Четвертая строка текста"
v(4)="Пятая строка текста"
LBound(v) равен 0, UBound(v) равен 4,
poslstroka=4, v(poslstroka)="Пятая строка текста"

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
Пусть Option Base равен 1. Тогда нумерация элементов массивов идет с 1.
Пусть текстбокс содержит пять строк. Тогда Split() создает массив:
v(1)="Первая строка текста"
v(2)="Вторая строка текста"
v(3)="Третья строка текста"
v(4)="Четвертая строка текста"
v(5)="Пятая строка текста"
LBound(v) равен 1, UBound(v) равен 5,
poslstroka=4, v(poslstroka)="Четвертая строка текста"

Ваш вариант возвращает в poslstroka не номер элемента, а количество элементов массива, уменьшенное на единицу. И вообще, необходимости в переменной poslstroka просто нет (что и показано было вам в последующих постах)...
...
Рейтинг: 0 / 0
08.07.2011, 02:09
| Ответить | Цитировать | Написать  
заныкавшиеся символы
    #37343219
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
BelowZero
Участник
AndreTM,

у меня текст:
1блаблабла
2блаблабла
3блаблабла
***пустая строка***
при этом ubound(v) определяет 3 строки. вроде пока что логично. но затем, я проверял, 1 символ 3 строки приходит пустым, 1 символ предпоследней строки равен "3" 1 символ предпредпоследней строки равен "2". наверно начинает считать с нулевой строки, хотя оптионбэйс равен 1 в генерал. почему так я хз, но, чтобы найти 1 символ последней строки, я юзаю ubound(v) - 1, предпоследней ubound(v) - 2 и тд. пока что работает
...
Рейтинг: 0 / 0
08.07.2011, 13:31
| Ответить | Цитировать | Написать  
заныкавшиеся символы
    #37344383
Фотография AndreTM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreTM
Участник
А не судьба проверить, что вам в V() выдано split'ом?
А OPTION BASE больше нигде, кроме установок, не переопределено?
Отладчиком пользоваться не умеете? - что вам мешает поставить прерывание после Split() и посмотреть, что прописалось в массив?
...
Рейтинг: 0 / 0
09.07.2011, 01:22
| Ответить | Цитировать | Написать  
заныкавшиеся символы
    #37344489
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
BelowZero
Участник
AndreTM,

AndreTMА не судьба проверить, что вам в V() выдано split'ом?
проверил.такой текст
1строка
2строка
3строка
при оптион бейс 1 находит 3 строки. при этом
v(0) = "1строка"
v(1) = "2строка"
v(2) = "3строка"
v(3) = ""
почему так я хз, главное пока что работает
...
Рейтинг: 0 / 0
09.07.2011, 11:01
| Ответить | Цитировать | Написать  
заныкавшиеся символы
    #37344491
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
BelowZero
Участник
*
AndreTMА OPTION BASE больше нигде, кроме установок, не переопределено?
нет, не переопределено
AndreTMОтладчиком пользоваться не умеете?
не умею
...
Рейтинг: 0 / 0
09.07.2011, 11:03
| Ответить | Цитировать | Написать  
заныкавшиеся символы
    #37345321
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
BelowZeroнаходит 3 строки. при этом
v(0) = "1строка"
v(1) = "2строка"
v(2) = "3строка"
v(3) = ""
почему так я хз, главное пока что работает
До четырех считать умеешь?
Находит четыре строки, просто последняя пустая, но это не значит, что ее нет.
...
Рейтинг: 0 / 0
10.07.2011, 21:08
| Ответить | Цитировать | Написать  
заныкавшиеся символы
    #37345322
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
BelowZeroAndreTMОтладчиком пользоваться не умеете?
не умею Так вот начни с того, чтобы научиться. Постов твоих на форуме будет в 10 раз меньше. а проблемы будешь решать в 10 раз быстрее.
...
Рейтинг: 0 / 0
10.07.2011, 21:09
| Ответить | Цитировать | Написать  
23 сообщений из 23, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / заныкавшиеся символы
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=37344491&tid=2158567]:
 0ms
get settings:
 12ms
get forum list:
 13ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 38ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 51ms
get tp. blocked users:
 2ms
others: 404ms
total:  537ms
созд. / загр.: 537ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]