Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > VB6 > показать строчки в Text

Автор: Dastin 4.1.2007, 20:33

Всем доброго дня. Такой вопрос. Есть два текстового поля Text1 и Text2 и кнопка Command1. Мне нужно прочитать строчки под номером 3 и 4 и показать в одном из полей. Я здесь ничего не нашёл к сожалению. Мог бы кто нибудь мне написать как это сделать?

Автор: BorisVorontsov 4.1.2007, 22:42

Откуда нужно прочитать строчки?

Автор: W4FhLF 5.1.2007, 10:35

Код


Private Sub Command1_Click()
    arr = Split(Text1.Text, vbCrLf)
    If UBound(arr) >= 3 Then Text2.Text = arr(2) & vbCrLf & arr(3)
End Sub

Автор: Dastin 5.1.2007, 13:09

Цитата(W4FhLF @ 5.1.2007, 10:35)

Код


Private Sub Command1_Click()
    arr = Split(Text1.Text, vbCrLf)
    If UBound(arr) >= 3 Then Text2.Text = arr(2) & vbCrLf & arr(3)
End Sub

W4FhLF, Спасибо! Вот только он показывает если есть перенос..., а если текст сплошняком идёт и не имеет переноса? Получается при этом он эти строки вообще не находит или показывает ещё к этим, другие снизу... Как сделать чтобы не зависило от этого?

Автор: Akina 6.1.2007, 15:13

Dastin, Что (по твоему разумению) есть строка?

Автор: Dastin 6.1.2007, 16:18

Цитата(Akina @ 6.1.2007, 15:13)

Dastin, Что (по твоему разумению) есть строка?

Вообще то строка, по моему разумению, это то что начинается с левого края текстового или другого поля и заканчивается справа. Желательно чтоб это не зависило от переноса- ||... ;) Мне именно такой код нужен smile

Автор: cardinal 6.1.2007, 19:00

Dastin, выкладывай код с примером текста, а то так долго можно обсуждать...

Автор: Dastin 6.1.2007, 19:49

Цитата(cardinal @ 6.1.2007, 19:00)

Dastin, выкладывай код с примером текста, а то так долго можно обсуждать...

Текст с переносом на каждую новую строчку текста:

Есть у меня друг,
профессиональный
музыкант, баянист.
Для того чтобы
сыграть не очень
сложную мелодию,
ему не обязательно
ее разучивать —
достаточно лишь
прослушать, и он
может ее повторить.
Он даже ради шутки
переигрывает на баяне
разные современные
мелодии, «бумеры» и
«бригады».

Вот пример текста где нет переносов, если не нажимать Enter во время введения. Этот текст будет показан не верно или вовсе не показан. А это мне как раз и нужно увидеть... :

Есть у меня друг, профессиональный музыкант, баянист. Для того чтобы сыграть не очень сложную мелодию, ему не обязательно ее разучивать — достаточно лишь прослушать, и он может ее повторить. Он даже ради шутки переигрывает на баяне разные современные мелодии, «бумеры» и «бригады». Он говорит, что это не сложно, так как в отличие от классики современные мелодии намеренно упрощены для того, чтобы легче воспринимались. Вот эту способность я считаю одним из признаков профессионализма. Пример человека, который добился успеха в том деле, которым занимается.

Надеюсь теперь поняли что я имел ввиду... smile

Автор: cardinal 6.1.2007, 21:02

А как ты хочешь текст без переносов делить по строкам, по длине? По словам? По запятым?

Автор: Dastin 6.1.2007, 23:21

Цитата(cardinal @ 6.1.2007, 21:02)

А как ты хочешь текст без переносов делить по строкам, по длине? По словам? По запятым?

А зачем что- то делить в тексте, когда нужно показать требуемую строчку, видную уже конкретно в поле? Она можно сказать, уже разложена сама текстовым полем на строки. Вот мне это как раз и нужно суметь. smile

Автор: Akina 6.1.2007, 23:33

API (TextWidth конкретно) тебе в руки - и обрабатывай строку свою по словам. Кстати, поиск по форуму поможет - вопрос обсуждался.

PS. Запомни - то что тебе надо, НЕ СТРОКИ.

Автор: Black_Star 8.1.2007, 14:03

Dastin, похожая тема http://forum.sources.ru/index.php?showtopic=90786

Автор: cardinal 9.1.2007, 01:26

Ну и тут глянь...
http://forum.vingrad.ru/topic-21013/hl/sendmessage%2Cand%2Cand%2Cand%2Ctextbox/index.html