VB 去除字符串中的空格
答案:7 悬赏:40 手机版
解决时间 2021-08-15 06:33
- 提问者网友：焚苦与心
- 2021-08-14 12:15
求去除字符串中空格的代码
最佳答案
- 五星知识达人网友：你可爱的野爹
- 2021-08-14 13:29
'此函数KillSpace用以除去字符串中的空格，请将此函数粘贴到代码窗口空白处。（不在任何Sub过程里）
Function KillSpace(Expression)
Dim tmpS
For i = 1 To Len(Expression)
tmpT = Mid(Expression, i, 1)
If tmpT <> " " Then tmpS = tmpS & tmpT
Next i
KillSpace = tmpS
End Function
'在某个过程里调用此函数，例如：
Private Sub Command1_Click()
Text1.Text=KillSpace("7 591 6512 1458 050")
End Sub
'这样在Text1里就显示：759165121458050
全部回答
- 1楼网友：零点过十分
- 2021-08-14 17:37
最好的方法是：
Dim a As String a = " 123 456 789 " Do If InStr(a, Space(1)) Then a = Replace(a, Space(1), "") Else Exit Do End If Loop
运行后 a="123456789"
- 2楼网友：话散在刀尖上
- 2021-08-14 17:28
令a=你需要去除空格的字符串
dim b(len(a)) as string
for i=1 to len(a)
b(i)=mid(a,i,1)
if b(i)<>" " then
a=a+b(i)
end if
print a
a就是去除空格后的字符串
- 3楼网友：举杯邀酒敬孤独
- 2021-08-14 16:52
a=" a b "
trim(a)
- 4楼网友：爱难随人意
- 2021-08-14 15:55
TRAM()
- 5楼网友：北方的南先生
- 2021-08-14 15:28
类似 dim a as string a=“ a b” 然后你可以调用a.trim()就是去掉空格。
- 6楼网友：痴妹与他
- 2021-08-14 14:12
'重新发一次:
'这样,可去除空格
Private Sub Command1_Click()
dim a as string,b as string
a="1234 5678"
for i=1 to len(a)
if mid(a,i,1)<>" " then
b=b & mid(a,i,1)
end if
next i
print "去除空格前: " & a
print "去除空格后: " & b
end sub
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯