VB编程:去除文本框首尾空行-51_彭世瑜_新浪博客
2023-09-14 09:07:18 时间
程序代码
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)表示回车换行
相关文章
- 安全公司的博客
- 我的博客第一天
- java打印九九乘法表——CSDN博客
- Web2.0网站的路径依赖--探讨蚂蚁社区为什么要导入博客
- 学习博客
- 我的博客即将入驻“云栖社区”,诚邀技术同仁一同入驻。
- CSDN:荣幸获得国内第一大技术社区CSDN 2018博客之星名额!感谢!
- 个人博客中代码和数据集获取
- VB编程:IF语句判断成绩优良-8_彭世瑜_新浪博客
- VB编程:FileLen函数获取文件的大小-5_彭世瑜_新浪博客
- VB编程:将文本控件添加到集合Collection中-19_彭世瑜_新浪博客
- VB编程:DoEvents将控制权交给系统,防止无限循环-14_彭世瑜_新浪博客
- VB编程:Me关键字的使用&VB常用颜色代码-22_彭世瑜_新浪博客
- VB编程:数组中插入新的数组元素-26_彭世瑜_新浪博客
- VB编程:利用数组统计文字段落数-31_彭世瑜_新浪博客
- VB编程:利用数组随机抽取幸运观众-32_彭世瑜_新浪博客
- VB编程:获取对象私有域的地址-39_彭世瑜_新浪博客
- VB编程:掷骰子游戏-55_彭世瑜_新浪博客
- VB编程:巧用常量定义数组-37_彭世瑜_新浪博客
- VB编程:for循环输出杨辉三角-45_彭世瑜_新浪博客
- VB编程:利用指针实现数组的插入-43_彭世瑜_新浪博客
- VB编程:获取字符串中数字个数-50_彭世瑜_新浪博客
- VB编程:用Shell函数打开记事本-54_彭世瑜_新浪博客
- UC技术博客开放通知
- 博客专家 - 2022贡献榜与TOP100光荣榜【转】