如何将空格去掉?

mywangqian007 2003-10-17 10:17:13
请问高手:我有一行数据,各字段都是用一个空格隔开的,请问如何把空格全部去掉?
如将:“aaa bbb ccc ddd“ 转换成“aaabbbcccddd“
...全文
130 12 打赏 收藏 转发到动态 举报
写回复
用AI写文章
12 条回复
切换为时间正序
请发表友善的回复…
发表回复
yjch 2003-10-18
  • 打赏
  • 举报
回复
Public Function trim_all(strallstring)
Dim b(65535), d(65535), str As String
Dim i As Long
Dim step As Long
step = Len(strallstring)
For i = 1 To step
b(i) = Mid(strallstring, i, 1)
Next
For i = 1 To step
If b(i) <> " " Then
d(i) = b(i)
str = str & d(i)
End If
Next
trim_all = str
End Function
我写了一个类似于"Trim,Rtrm,Ltrim"的函数。他的调用如下例:
Private Sub Command1_Click()
a = " ffvvv fff ffv"
Print trim_all(a)
End Sub
yedapeng 2003-10-17
  • 打赏
  • 举报
回复
用trim函数也可以啊
demo001 2003-10-17
  • 打赏
  • 举报
回复
不好意思,我那个循环多余了。

前几天有个类似的问题拿过来的,那里要用循环,这里空格全部去掉不需要加循环
Jackile 2003-10-17
  • 打赏
  • 举报
回复
用Replace即可!Replace("aaa bbb ccc ddd","想要被替换掉的字符","想要替换成的字符")
zjcxc 2003-10-17
  • 打赏
  • 举报
回复
'即使有多个空格相临也可以只用一句
msgbox replace("aaa bbb ccc ddd"," ","")
zjcxc 2003-10-17
  • 打赏
  • 举报
回复
用replace就行了.

msgbox replace("aaa bbb ccc ddd"," ","")
demo001 2003-10-17
  • 打赏
  • 举报
回复
dim strA as string

strA="aaa bbb ccc ddd"

do while instr(strA," ")>0
strA=replace(strA," ","")
loop
射天狼 2003-10-17
  • 打赏
  • 举报
回复
Dim s As String

s = "aaa bbb ccc ddd"
s = Replace(s, " ", "")
abc10 2003-10-17
  • 打赏
  • 举报
回复
Function DelspaceStr(str As String) As String '去掉空格
Dim I As Integer
For I = 1 To Len(str)
If Mid(str, I, 1) <> " " Then DelspaceStr = DelspaceStr + Mid(str, I, 1)
Next
End Function
调用:
dim aaa as string
aaa="aaa bbb ccc ddd"
aaa=DelspaceStr(aaa)
wangchong 2003-10-17
  • 打赏
  • 举报
回复
Replace("aaa bbb ccc ddd, " ", "")
Gulang68 2003-10-17
  • 打赏
  • 举报
回复
replace("aaa bbb ccc ddd"," ","")
Reminisce 2003-10-17
  • 打赏
  • 举报
回复
?????trim()可以吗???一个个字符遍历出来,然后对每一个字符进行trim()?呵呵

7,759

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧