以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]文本框编辑 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=126819) |
||||
-- 作者:天一生水 -- 发布时间:2018/10/29 16:48:00 -- [求助]文本框编辑 在如图的文本框中编辑一次,就会多出一个空行。 能不能避免? 谢谢!
|
||||
-- 作者:有点甜 -- 发布时间:2018/10/29 17:03:00 -- Dim txt As WinForm.TextBox = e.Form.Controls("TextBox1") 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 Dim i As Integer = e.sender.SelectionStart txt.text = str e.sender.SelectionStart = i systemready = True |