如何提取在richtextbox中的句子

Question

如何在richtextbox控件中提取一个一个的句子？

Answer 1

取得richtextbox的text后， 按"。"分割就可以了
dim a ,i
a=split(RichTextBox1.Text,"。")
for i= 0 to ubound(a)
print a(i)
next 

Answer 2

dim a ,i
a=split(replace(REPLACE(RichTextBox1.Text,"?","。"),"!","。"),"。")
for i= 0 to ubound(a)
print a(i)
next

Answer 3

Option Explicit
Dim sep() As String
Const repTemp As String = "##" '找个肯定不会在text里出现的Private Sub cmdMake_Click()
    Dim strTest As String
    Dim i As Integer
    Dim a
    iniSep
    strTest = RichTextBox1.Text  
    For i = 0 To UBound(sep)
        strTest = Replace(strTest, sep(i), sep(i) & repTemp)
    Next
    a = Split(strTest, repTemp)
    For i = 0 To UBound(a)
        Print a(i)
    Next
End Sub
Private Sub iniSep() '这里可以添加可能的句子结尾
    ReDim sep(2)
    sep(0) = "?"
    sep(1) = "!"
    sep(2) = "。"
End Sub

Answer 4

http://www.cnpopsoft.com/article.asp?id=18