怎么知道RichTextBox中文本的行数？

[henry520]

我用RichTextBox控件读取一个文件中的所以内容，文件内容都是以回车换行的，所以我想以行为单位读取数据，请问在RichTextBox中是否可实现读取每行的数据？用什么方法能知道有多行呢？？？

[chendjin]

Private Sub Command1_Click()
Dim s As String
Dim pos As Long
Dim textboxlinecount As Integer

textboxlinecount = 0
pos = 1
s = RichTextBox1.Text
Do
textboxlinecount = textboxlinecount + 1
pos = InStr(pos, s, vbCrLf) '找到第一个vbcrlf(分行符号）
If pos > 0 Then pos = pos + 2 '跳过vbcrlf
Loop Until pos = 0 '直到没有分行符号为止
Msgbox "共有" + Str(textboxlinecount) + " 行"
End Sub

[chendjin]

方法2:
Private Sub Command1_Click()
Dim ls_Content() As String
Dim LogCount As Long
Dim i As Long

ls_Content = Split(Text1.Text, vbCrLf)
LogCount = UBound(ls_Content, 1) - 1'得到总行数

For i = 0 To LogCount
Debug.Print ls_Content(i)'分别得到每一行
Next i
End Sub

[henry520]

谢谢~~~~~~~~~~ 问题解决 结贴~~~~~~~~~~~~~~~~！

[rainstormmaster]

//我用RichTextBox控件读取一个文件中的所以内容，文件内容都是以回车换行的，所以我想以行为单位读取数据，请问在RichTextBox中是否可实现读取每行的数据？用什么方法能知道有多行呢？？？

注意：RichTextBox中文本的行数（会随RichTextBox的宽度变化而变化）和文本文件的行数没有什么直接的关系，你要的是哪个行数？

[云中客]

UP

[ChiliHot]

利用 API 提供 RichTextBox 支持行列显示与定位功能
http://www.spicy-girl.net/forum/thread_show.asp?forum_id=f062936a96d3c8bd&thread_id=637ab381e8be5f83&page_pos=1

如何滚动RichTextBox和得到被选中文本的行数

http://www.spicy-girl.net/forum/thread_show.asp?forum_id=f062936a96d3c8bd&thread_id=7b92f5d98d3c79b1&page_pos=2