TextBox - Быть или не быть ?

[alleonid]

Ув. участники!
Имею вопросы.

1) Можно ли в текстах переменных использовать нижний и верхний индексы? Если да, то как записать "K10" , где 10 – индекс?

2) В элементе TextBox имеется текст, "разорванный" пустыми строчками – как показано ниже.
…
этомойтекст этомойтекст этомойтекст
этомойтекст этомойтекст

этомойтекст этомойтекст этомойтекст
этомойтекст



этомойтекст этомойтекст

…

Нужно написать процедуру, эти строчки удаляющую, типа, чтобы было:
…
этомойтекст этомойтекст этомойтекст
этомойтекст этомойтекст
этомойтекст этомойтекст этомойтекст
этомойтекст
этомойтекст этомойтекст
…

Ну, понятно что цикл, да вот неясно, как к примеру идентифицировать пустую строку If … - что иф? И потом Then – и что зен? - как ее, пустую строчку удалить, чтобы ее небыло? И последнее – число строчек в TextBox как посчитать?

[GSerg]

Ы...

Для индексов бери richtextbox.
Для замены пустых строк - replace(text, vbnewline & vbnewline, vbnewline), пока не перестанет изменяться.

[alleonid]

Спасибо, спасибо, сэр.
Но со скидкой на мою природную тупость не могли бы Вы пояснить
1) Что такое richtextbox? Это элемент которого нет в стандартном наборе, или какая то опция обычного TextBox?
2) И вот это replace(text, vbnewline & vbnewline, vbnewline) - не могли бы чуточку поподробнее?

Для индексов бери richtextbox.
Для замены пустых строк - replace(text, vbnewline & vbnewline, vbnewline), пока не перестанет изменяться.

[alleonid]

Да, вот, еще один вопрос.
В VBA и других подобных языках я частенько для узнавания тех или иных команд использую запись интерактивных действий (включаю запись макроса, что то делаю, потом разбираюсь с записанным кодом).
Можно ли в VB практиковать нечно подобное? К примеру, запускать Run = >Start и выпонять некие действия методом тыка, а потом смотреть что этим действиям соответствует?

[alleonid]

RichTextBox я добавил.
Вопрос - при написании программы с использованием данного элемента нужно ли впоследствии что то куда то добавлять для работы под другим Windows или нет? То есть будет ли программа самодостаточной, или у какого либо другого ползователя она может отказаться работать?

[Amed]

1. В VB нет системы макросов. Методом тыка не получится, нужно лезть в MSDN
2. Насчет Replace:

Find and replace a substring within a string

, поэтому надо написать нечто вроде этого:

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

Dim OldText as string, NewText as string

newtext=richtextbox1.text

do
oldtext=newtext
newtext=replace(oldtext,vbnewline & vbnewline,vbnewline)
loop while oldtext<>newtext

richtextbox1.text=newtext


3. Microsoft Rich Textbox - компонент от Microsoft, входящий в стандартную поставку поэтому конкретно его не надо распространять с приложением. Его может не быть разве что в древних версиях (Win95?).

[alleonid]

Где можно найти информацию по командам richtextbox (в интернете).
Как к примеру выглядит нижний или верхний индекс?

[alleonid]

А между прочим, куда что пихать то?

[Amed]

Private Sub Command1_Click()
Dim OldText As String, NewText As String

NewText = Text1.Text

Do
OldText = NewText
NewText = Replace(OldText, vbNewLine & vbNewLine, vbNewLine)
Loop While OldText <> NewText

Text1.Text = NewText

End Sub

Private Sub Form_Load()
Dim StrX As String

StrX = "это текст который нужно модернизировать" & vbCrLf & _
"гребаные пробелы нужно просто уплотнить" & vbCrLf & _
"" & vbCrLf & _
"" & vbCrLf & _
"" & vbCrLf & _
"это - образец произвольного текста, который нужно уплотнить" & vbCrLf & _
"" & vbCrLf & _
"" & vbCrLf & _
"гребаные пробелы нужно просто уплотнить" & vbCrLf & _
"гребаные пробелы нужно просто уплотнить" & vbCrLf & _
"" & vbCrLf & _
"это - образец произвольного текста, который нужно уплотнить" & vbCrLf & _
""

Text1.Text = StrX

End Sub

[alleonid]

Сенкс Amed, смышленыш.
Ты крут!

[max-aziat]

тота он же бауманец

[alibek]

Amed, лучше не текст, а длину текста.

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

Do Until L = Len(Text)
L = Len(Text)
Text = Replace(...)
Loop

[CodeName33]

Amed

Microsoft Rich Textbox - компонент от Microsoft, входящий в стандартную поставку поэтому конкретно его не надо распространять с приложением. Его может не быть разве что в древних версиях (Win95?).

Неа, в 98 его тоже нет (в смысле DLL есть, OCX'а нет, если только через API его создавать...)

[Amed]

alibek, верно

CodeName33, не спорю. 98-й видел последний раз года 4 назад.
Именно его я к древним версиям и приписал.