用vb open filePathName For Random As #1 Len 打开文本文件里面如有中文的话,会加上乱码
Private Type myRecord
BUHIN_ID As String * 5
BUHIN_MEISYO As String * 40
BUHIN_BURANDO As String * 20
End Type
Open filePathName For Random As #1 Len = Len(tempRecord)
totalRecords = LOF(1) / Len(tempRecord)
ReDim records(totalRecords) As myRecord
For i = 0 To totalRecords
Get #1, , records(i)
Next
Close #1
然后发现records(i).BUHIN_MEISYO records(i).BUHIN_BURANDO会在最尾部加上乱码,如果是字母就不会