只需使用这串代码。。privatesubtext1_uclick（）i=text1。selstartj=idoifi=0theme=1ift=0然后“如果找不到行尾，ifmid（text1。text，i，1）=chr（13）theme=1“查找行的结尾，i=i-1endififmid（text1）。text，j，1）=chr（13），然后=1“如果j=len（text1），则查找行的开头。text）然后=1j=j1endifloopwhile（t=0或=0）text1。selstart=i文本1。sellength=j-i-1端接头
