从品牌网站建设到网络营销策划,从策略到执行的一站式服务
你是要把连续多个空格,变换成只需要一个空格,那么:
成都创新互联专业为企业提供沁县网站建设、沁县做网站、沁县网站设计、沁县网站制作等企业网站建设、网页设计与制作、沁县企业网站模板建站服务,十载沁县做网站经验,不只是建网站,更提供有价值的思路和整体网络服务。
do while Instr(tStr," ")0
tStr = Replace(tStr, " ", " ") '用一个空格,替换2个空格
loop
思路与方法:
1,一行为读取单位,读取并保存到数组。
2,逆序循环,可以获得末尾空白行数。
3,以行为写单位,写入到文件。
如果只是末尾的空行,直接用Trim方法就可以了
Dim str As String = My.Computer.FileSystem.ReadAllText("d:\text.txt").Trim
'上面的d:\text.txt文件中末尾有很多空行,用了Trim方法后就把后面的空行都去除了
MsgBox(str)'这里可以看到
成都网站建设公司地址:成都市青羊区太升南路288号锦天国际A座10层 建设咨询028-86922220
成都快上网科技有限公司-四川网站建设设计公司 | 蜀ICP备19037934号 Copyright 2020,ALL Rights Reserved cdkjz.cn | 成都网站建设 | © Copyright 2020版权所有.
专家团队为您提供成都网站建设,成都网站设计,成都品牌网站设计,成都营销型网站制作等服务,成都建网站就找快上网! | 成都网站建设哪家好? | 网站建设地图