定长string的处理？

Question

用place(str,chr(?),'')
不好意思，空格的值忘了

Answer 1

这种函数一般都会返回值的长度,用left函数就可轻易解决Private Const MAX_COMPUTERNAME_LENGTH As Long = 31
Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As LongPrivate Sub Form_Load()
    Dim dwLen As Long
    Dim strString As String
    'Create a buffer
    dwLen = MAX_COMPUTERNAME_LENGTH + 1
    strString = String(dwLen, "X")
    'Get the computer name
    GetComputerName strString, dwLen
    'get only the actual data
    strString = Left(strString, dwLen)
    'Show the computer name
    MsgBox strString
End Sub

Answer 2

可以用Chr(0)来判断拿上面的做例子：Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As LongDim sBuffer As String * 256
Dim lRet As LonglRet = GetComputerName(sBuffer, Len(sBuffer))msgBox Left(sBuffer, Instr(sBuffer, Chr(0)) - 1)lRet = GetComputerName(
  

Answer 3

对不起，有点问题，再贴一次可以用Chr(0)来判断拿上面的做例子：Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As LongDim sBuffer As String * 256
Dim lRet As LonglRet = GetComputerName(sBuffer, Len(sBuffer))msgBox Left(sBuffer, Instr(sBuffer, Chr(0)) - 1)