RichTextBox

[sQx]

Как получить строку
Как удалить строку

[TRUST]

По-моему это делается SendMessage с какой-то константой.
А вообще можно Mid'ом брать текст от vbCrLf под номером (номерстроки-1) до vbCrLf под номером (номерстроки).
Сырцов нет. Увы:(.

[mad_Max]

Получение строки

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

Function GetLine(lineIndex as integer) as string
dim intStart as integer
dim intLen as integer
dim curLine as integer
if lineIndex=1 then intStart = 1
curLine=1
For i=1 to len(richtextbox.text)-1
if mid(richtextbox,i,2)=vbCrlf then curLine=curLine+1
if curLine>=lineIndex then
  if intStart=0 then
  intStart = i+2
  else
  intLen=i-intStart
  GetLine=mid(richtextbox.text, intStart, intLen)
  exit function
  end if
end if
Next i
if intStart <>0 then GetLine = mid(richtextbox.text, intStart)
End Function

Удаление строки аналогично.