VB编程:去除文本框首尾空行-51

举报
彭世瑜 发表于 2021/08/14 00:33:57 2021/08/14
【摘要】 程序代码 Private Sub Command1_Click()     Dim j As Integer     Dim i(100) As String     Text2 = ""     For j = 1 To Len(Text...

image

程序代码

Private Sub Command1_Click()
    Dim j As Integer
    Dim i(100) As String
    Text2 = ""
    For j = 1 To Len(Text1)
        i(j) = Mid(Text1, j, 1)
        Text2 = Text2 & i(j) & Chr(13) & Chr(10)
    Next j
   
    '去除文本框首尾空行
    If Left(Text2, 2) = Chr(13) & Chr(10) Then
        Text2 = Right(Text2, Len(Text2) - 2)
    End If


    If Right(Text2, 2) = Chr(13) & Chr(10) Then
        Text2 = Left(Text2, Len(Text2) - 2)
    End If
End Sub

总结:

Chr(13) & Chr(10)表示回车换行

文章来源: pengshiyu.blog.csdn.net,作者:彭世瑜,版权归原作者所有,如需转载,请联系作者。

原文链接:pengshiyu.blog.csdn.net/article/details/81048946

【版权声明】本文为华为云社区用户转载文章,如果您发现本社区中有涉嫌抄袭的内容,欢迎发送邮件进行举报,并提供相关证据,一经查实,本社区将立刻删除涉嫌侵权内容,举报邮箱: cloudbbs@huaweicloud.com
  • 点赞
  • 收藏
  • 关注作者

评论(0

0/1000
抱歉,系统识别当前为高风险访问,暂不支持该操作

全部回复

上滑加载中

设置昵称

在此一键设置昵称,即可参与社区互动!

*长度不超过10个汉字或20个英文字符,设置后3个月内不可修改。

*长度不超过10个汉字或20个英文字符,设置后3个月内不可修改。