我该怎么去掉字符串里的space

[letian_now]

Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Private Sub Form_Load()
Dim Sysdir As String, x As Long, x4 As Long
Sysdir = Space(20)
x = GetSystemDirectory(Sysdir, 20)
x4 = Len(Sysdir)
Label2.Caption = x4
Label1.Caption = "keu" & Trim(Sysdir) & "\abc"
End Sub

结果显示:keuC:\WINDOWS\SYSTEM
而\abc却没有显示？
使用TRIM(SYSDIR)函数也没用

我该怎么去掉字符串里的space呢？

[Andy__Huang]

大家都說了，我來看看樓主...

[letian_now]

呵呵，谢谢各位。

[迈克揉索芙特]

Label1.Caption = Replace("keu" & Trim(Sysdir) & "\abc",chr(0),vbnullstring)

[christion3]

replace函数

[heyinglin]

dim str as string
str=" 张 三 "
str=replace(str,space(1),space(0))
debug.print str '结果为：张三

[yingxiangchen]

Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Private Sub Form_Load()
Dim Sysdir As String, x As Long, x4 As Long
Sysdir = Space(20)
x = GetSystemDirectory(Sysdir, 20)
x4 = Len(Sysdir)
Label2.Caption = x4
Label1.Caption = Replace("keu" & Trim(Sysdir) & "\abc", Chr(0), vbNullString)
End Sub