字符问题？？？？

Question

写一个Fucntion，我这里有一个，给你修改一下
Function ReplaceBadWord(InputS As String) As String
    Dim jsqte As Integer, TempS As String
    if trim(Inputs)="" then exit function     For jsqte = 1 To Len(InputS)
        If Mid(InputS, jsqte, 1)) <>" " Then
            TempS = TempS + Mid(InputS, jsqte, 1)
        End If
    Next jsqte
    ReplaceBadWord = TempS
End FunctionOk!

Answer 1

空格在两头的话直接用 Trim()函数

Answer 2

agree with crazymens(疯子)　

Answer 3

AAAAA!!!!YourStr=Replace(YourStr,Space(1),VbNullString)为什么不能这样做呢？？？？？

Answer 4

楼上的方法当然可以，我这个东西本来不是用于去掉空隔的，里面可以进行很多的处理，给他的是一个简化的Version.

Answer 5

kao~最简单的办法就是Trim。。

Answer 6

只是右端有空格吗 rtrim$(str1)

Answer 7

如果"fff  "后面的是空格那用trim函数即可
如果"fff  "后面的是VBnullstring 则trim无效,用
left("fff   ",instr("fff   ",VBnullstring))

Answer 8

Bardo(巴顿)　(2001-12-30 18:41:43)  得0分 
AAAAA!!!!YourStr=Replace(YourStr,Space(1),VbNullString)为什么不能这样做呢？？？？？我一直这样用！！！！！