1,451
社区成员
发帖
与我相关
我的任务
分享如何用循环的把RichTextBox一段落一个段落的把文本取出。
如何知道RichTextBox中有几个段落，然后用循环一段一段的取出文本？
...全文
请发表友善的回复…
发表回复
shanlisong 2005-11-10
- 打赏
- 举报
无人问津？？
faysky2 2005-11-10
- 打赏
- 举报
northwolves(狼行天下) 正解，RichTextBox中的段落是以vbCrLf来分隔的，用 Split函数把RichTextBox以vbCrlf来分隔就得到各个段落的内容了
shanlisong 2005-11-10
- 打赏
- 举报
TO:northwolves(狼行天下)谢谢，给分
northwolves 2005-11-10
- 打赏
- 举报
Private Sub Command1_Click()
Dim s() As String, i As Long
s = Split(RichTextBox1.Text, vbCrLf)
For i = 0 To UBound(s)
Debug.Print "第" & i + 1 & "段：" & vbCrLf & "-------------------------" & vbCrLf & s(i)
Next
End Sub
Dim s() As String, i As Long
s = Split(RichTextBox1.Text, vbCrLf)
For i = 0 To UBound(s)
Debug.Print "第" & i + 1 & "段：" & vbCrLf & "-------------------------" & vbCrLf & s(i)
Next
End Sub
