主题：读取光标在的行

 上一行和下一行，是否有回车等分割符号标记？

 

 上传实例说明问题。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:读取当行.table

Dim txt As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim eidx As Integer = txt.text.Length - 1
Dim sidx As Integer = 0
Dim count As Integer = 1
Dim temp As Integer = 0
For i As Integer = vars("SelectedStart") To 0 Step -1
    If Asc(txt.text(i)) = 13 Then
        temp += 1
        If temp > count Then
            sidx = i
            Exit For
        ElseIf temp = count Then
            eidx = i
        End If
    End If
   
Next

Dim str As String = txt.Text.SubString(sidx, eidx-sidx)
msgbox(str)
Dim sp As New DotNetSpeech.SpVoice()
sp.Speak(str, DotNetSpeech.SpeechVoiceSpeakFlags.SVSFDefault)

 不明白你的意思，无论是什么，都能读取的。弹出msgbox(str)看是否正确。

改一改

 

Dim txt As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim eidx As Integer = txt.text.Length - 1
Dim sidx As Integer = 0
For i As Integer = vars("SelectedText") To txt.text.Length - 1
    If Asc(txt.text(i)) = 13 Then
        eidx = i
        Exit For
    End If
Next
For i As Integer = vars("SelectedText")-1 To 0 Step -1
    If Asc(txt.text(i)) = 13 Then
        sidx = i
        Exit For
    End If
Next
msgbox(eidx)
msgbox(sidx)
'For i As Integer = 0 To txt.text.Length - 1
    'output.show(txt.text(i) & Asc(txt.text(i)))
'Next
Dim str As String = txt.Text.SubString(sidx, eidx-sidx)
msgbox(str)
Dim sp As New DotNetSpeech.SpVoice()
sp.Speak(str, DotNetSpeech.SpeechVoiceSpeakFlags.SVSFDefault)