Question

VB 读取随机文件中的记录 如何去除字段的空白？

下面是个基本的例子。
自定义类型 type Test
aaa as string *30

.......

end type

dim atest as Test
atest.aaa="我是中国人"
open app.path & "\123.txt" for random as #1 len=len(atest)
put #1,1,atest

close #1
open app.path & "\123.txt" for random as #1 len=len(atest)
get #1,1,atest

close #1
debug.print Trim(atest.aaa) & 2
那么问题来了：
立即窗口中显示的是：“我是中国人 2”
也就是说Trim函数没有把atest.aaa的多余的空白去掉。

那么，请问该怎么从随机文件中读取到不包含空白的字符串——“我是中国人”？？

感谢！

Answer 1

debug.print Left$(atest.aaa, InStr(atest.aaa, vbNullChar) - 1) & 2

追问

Debug.Print Trim(Left$(atest.aaa, InStr(1, atest.aaa, vbNullChar, vbTextCompare) - 1)) & 2
这句试验成功了，可见：

后面补充的不仅有空格，还有vbNullChar

但，这是为什么呢？？？