clear aa = "asdfsd" + Chr(13) + Chr(10) + "asdfds" + Chr(13) + Chr(10)+ Chr(13) + Chr(10) ?aa Do While Right(aa,2) == Chr(13) + Chr(10) aa = Left(aa,Len(aa) - 2) Enddo ? aa
*--- TEXT1.RIGHTCLICK EVENT THISFORM.EDIT1.Value=CHRTRAN(ALLTRIM(THISFORM.TEXT1.VALUE),[-],CHR(13)+CHR(10)) *--- 注:字符串间一定要有分隔符,本例中分隔符为[-]。