代码如下
Open App.Path & IIf(Len(App.Path) = 3, "", "\") & "user.dat" For Random As #1 Len = Len(accuser)
acctotal = LOF(1) / 10
acctotal = acctotal + 1
Debug.Print Len(accuser)
Put #1, acctotal, accuser
Close #1先把文本框中数据付给accuser,然后写入文件。英文没问题,中文就会出现记录长度错误,
debug.print结果是10. 为什么..
Open App.Path & IIf(Len(App.Path) = 3, "", "\") & "user.dat" For Random As #1 Len = Len(accuser)
acctotal = LOF(1) / 10
acctotal = acctotal + 1
Debug.Print Len(accuser)
Put #1, acctotal, accuser
Close #1先把文本框中数据付给accuser,然后写入文件。英文没问题,中文就会出现记录长度错误,
debug.print结果是10. 为什么..
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货