|
'''
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
|
加好友 
发短信
Post By：2018/9/4 12:22:00 [显示全部帖子]
