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

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呢？ 问题点数：20、回复次数：6Top

1 楼Modest（塞北雪貂)·(偶最欣赏楼主的分）回复于 2006-03-04 10:47:43 得分 8

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

2 楼christion3（黑翼堕天使）回复于 2006-03-04 10:59:41 得分 2

replace函数Top

3 楼heyinglin（）回复于 2006-03-04 12:19:59 得分 2

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

4 楼yingxiangchen（Ivan）回复于 2006-03-04 12:31:14 得分 2

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   SubTop

5 楼hdhai9451（☆新人类☆）回复于 2006-03-04 13:34:12 得分 6

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

6 楼letian_now（乐天）回复于 2006-03-04 14:31:33 得分 0

呵呵，谢谢各位。Top

相关问题

• sysdir
• keu
• getsystemdirectory
• space
• caption
• trim
• abc
• byval
• label
• replace

• 帖主：letian_now
• Modest
• christion3
• heyinglin
• yingxiangchen
• hdhai9451

• Visual Basic类图书
• Visual Basic类源码下载