Question

vb 字符串去空格

Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Private Sub Command1_Click()
Dim a As String * 255
GetComputerName a, 255
Print a
print len(a)
End Sub
我想把多余的字符删除怎么做
这个好像只可以在TEXT里使用的吧
就在窗体输出能用吗

Answer 1

Public Function ComputerName() As String
Dim Tmp As String
Tmp = Space(128)
GetComputerName Tmp, 128
Tmp = Trim(Tmp)
ComputerName = Left(Tmp, Len(Tmp) - 1)
End Function

Answer 2

好像有个tirm（）是取掉前后空格的