[求助]字符串数组 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

想替换字符串中的句号，末尾的句号除外，请蓝老师帮忙改一下，谢谢！

代码结果为"你好，你好，你好。"

'''

Dim str As String = "你好，你好。你好。"

.......

Dim lst As new List(Of String)

If lst.Count >= 1 Then

For i As Count = 0 To lst.Count-1

If i <> lst.Count -1 Then

lst(i).Replace("。","，")

End If

Output.Show(lst)

lst(i) = lst(i).TrimEnd("。").Replace("。","，") & "。"

1、这样没问题：

'''
Dim str As String = "在控件中每输入，或删除一个字符。都会触发TextChanged事件，"
str = str.TrimEnd("。").TrimEnd("，").TrimEnd("；").Replace("：","").Replace("；","，").Replace(",","，").Replace("、","，").Replace("。","，") & "。"
Output.Show（str）

2、文本框textchang代码，在文本框中编辑时为什么出现一些句号单独成了一段，也删不掉：

Dim txt As WinForm.TextBox = e.Form.Controls("TextBox01")
If txt.text.EndsWith(chr(10)) = False Then
    Dim ary() As String = txt.Text.Split(chr(13))
    Dim str As String = ""
    For Each s As String In ary

        s =s.TrimEnd("。").TrimEnd("，").TrimEnd("；").Replace("：","").Replace("；","，").Replace(",","，").Replace("、","，").Replace("。","，") & "。"
        If s <> chr(10) Then
            str &= "    " & s.trim & vbcrlf '行首空格
            str &= vbcrlf & ""
        End If
    Next
    systemready = False
    txt.text = str
    systemready = True
End If

'''
Dim txt As WinForm.TextBox = e.Form.Controls("TextBox2")
Dim ary() As String = txt.Text.replace(chr(10), "").Split(chr(13))
Dim str As String = ""
For Each s As String In ary
    If s.trim > "" Then
        s =s.TrimEnd("。").TrimEnd("，").TrimEnd("；").Replace("：","").Replace("；","，").Replace(",","，").Replace("、","，").Replace("。","，") & "。"
    End If

    str &= "    " & s.trim & vbcrlf '行首空格
Next
systemready = False
txt.text = str
systemready = True

主题：[求助]字符串数组