修剪VBA中字符串中的空字符

Question

我正在调用Win32 API函数并返回一个用空字符填充的字符串. Trim$()不会删除它们.是否有更简单的解决方案,然后一次删除一个字符？

Answer 1

如果它只是填充到右边,你可以使用这样的东西:

function ntrim(byval theString as string) as string
  dim iPos as long
  iPos = instr(theString, chr$(0))
  if iPos > 0 then theString = left$(theString, iPos - 1)
  ntrim = theString
end function