如何在richtextbox中转到某行

talent00168

如果你的回车都是硬回车，可以考虑使用正则表达式对象简化操作。

我编的程序的目的是删除空行以及含有空格的空行：
Private Sub Command1_Click()
Dim temp As String, s() As String, i As Long
temp = RichTextBox1.Text
s = Split(temp, vbCrLf)
For i = 0 To UBound(s)
If Len(Trim(s(i))) = 0 Then s(i) = ""
Next
temp = Join(s, vbCrLf)
While InStr(temp, vbCrLf & vbCrLf) > 0
temp = Replace(temp, vbCrLf & vbCrLf, vbCrLf)
Wend
RichTextBox1.Text = temp
End Sub

emptyname

talent00168 你好，上面的代码会不会把richtextbox里面的文本格式删除掉？好像会把richtextbox里面的文本格式删除掉

talent00168

如果都是硬回车，可以这样定位：
Private Sub Command1_Click()
Randomize
Dim n As Long, s() As String
n = CLng(InputBox("光标指到第几行", "info", Int(Rnd * 100))) - 1
s = Split(RichTextBox1.Text, vbCrLf)
ReDim Preserve s(n - 1)
n = Len(Join(s, vbCrLf)) + Len(vbCrLf)
RichTextBox1.SetFocus
RichTextBox1.SelStart = n
End Sub

emptyname

talent00168 你好  谢谢你可以定位了  真是谢谢你 高手就是不一样