从品牌网站建设到网络营销策划,从策略到执行的一站式服务
如果只是末尾的空行,直接用Trim方法就可以了
为平遥等地区用户提供了全套网页设计制作服务,及平遥网站建设行业解决方案。主营业务为做网站、网站设计、平遥网站设计,以传统方式定制建设网站,并提供域名空间备案等一条龙服务,秉承以专业、用心的态度为用户提供真诚的服务。我们深信只要达到每一位用户的要求,就会得到认可,从而选择与我们长期合作。这样,我们也可以走得更远!
Dim str As String = My.Computer.FileSystem.ReadAllText("d:\text.txt").Trim
'上面的d:\text.txt文件中末尾有很多空行,用了Trim方法后就把后面的空行都去除了
MsgBox(str)'这里可以看到
Private Sub Command1_Click()
arr = Split(Text1, vbCrLf)
For i = 0 To UBound(arr)
If Trim(Replace(arr(i), " ", "")) "" Then ss = ss vbCrLf arr(i)
Next
Text1 = Mid(ss, 3)
End Sub
有些空格咋占好几个字节:那是全角空格,占俩字节,如同汉字,把它Replace掉即可。
思路与方法:
1,一行为读取单位,读取并保存到数组。
2,逆序循环,可以获得末尾空白行数。
3,以行为写单位,写入到文件。
成都网站建设公司地址:成都市青羊区太升南路288号锦天国际A座10层 建设咨询028-86922220
成都快上网科技有限公司-四川网站建设设计公司 | 蜀ICP备19037934号 Copyright 2020,ALL Rights Reserved cdkjz.cn | 成都网站建设 | © Copyright 2020版权所有.
专家团队为您提供成都网站建设,成都网站设计,成都品牌网站设计,成都营销型网站制作等服务,成都建网站就找快上网! | 成都网站建设哪家好? | 网站建设地图