碰到一个很棘手的问题：如何删除字符串中的空格，且只保留一个空格

Martinzhuchao · 发表于 2010-7-22 13:02

各位大师：

如下面这样的字符串：

A B C DE F

其中A和B间有a个空格，B和C间b个空格，C和D间有n个空格，D和E间没有空格，E和F间有m个空格（具体a,b, m ,n是多少，没有任何规律可循）

现在，我想在有空格的地方只保留一个空格，没空格的地方照旧，即变成如下字符串：

A B C DE F (字符间空格都只有一个）

请问用VB该如何达到上面的目的呢？

谢谢各位。

LangQueS · 发表于 2010-7-22 13:09

替换5个空格为1个；替换4个为1个；替换3个……

zljkd007 · 发表于 2010-7-22 13:13

公式可以=trim(a1)，VBA不懂。

Martinzhuchao · 发表于 2010-7-22 13:16

谢谢版主回复，但是，我并不知道其中的空格到底有多少个啊，也许有100个空格呢？又或者有500个空格（假设的话），总不至于要搞500条句子，先REPLACE 500个空格为1个，在REPLACE499个空格为1个............

有根简单的方法吗？

再次感谢您！

Martinzhuchao · 发表于 2010-7-22 13:18

原帖由 zljkd007 于 2010-7-22 13:13 发表
公式可以=trim(a1)，VBA不懂。

谢谢回复

这个只能去掉两头的空格，但对字符串中间的空格没办法，再说了，即便可以去掉中间的空格，也保留不了一个空格，全部字符都连在一起了。

[ 本帖最后由 Martinzhuchao 于 2010-7-24 08:09 编辑 ]

LangQueS · 发表于 2010-7-22 13:21

请发个附件上来吧

civl · 发表于 2010-7-22 13:22

读取单个字符
第一次循环：如果是空格则删除
第二次循环：如果不是空格则在其后加一个空格，最后手工删除最后一个空格（实际上不必要）

[ 本帖最后由 civl 于 2010-7-22 13:26 编辑 ]

zljkd007 · 发表于 2010-7-22 13:27

见附件，难道不是跟你要求的一样吗？

Martinzhuchao · 发表于 2010-7-22 13:32

原帖由 LangQueS 于 2010-7-22 13:21 发表
请发个附件上来吧

谢谢版主，一会发上来。

civl · 发表于 2010-7-22 13:34

Cells(1, 3).Formula = "=Trim(A1)"

A1是数据源 C1是效果

[ 本帖最后由 civl 于 2010-7-22 13:35 编辑 ]

		自动登录	找回密码
密码			免费注册

[求助] 碰到一个很棘手的问题：如何删除字符串中的空格，且只保留一个空格

回复 5楼 Martinzhuchao 的帖子