文本文件读取处理
Dim contentArr() as string
Erase contentArr()
Open filePath For Input As #1
contentArr = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbCrLf)
Close #1
n = UBound(contentArr)
for i = 0 to n
Next
读取LF换行文本,只需把vbCrLf换成vbLf
文本文件读取处理
Dim contentArr() as string
Erase contentArr()
Open filePath For Input As #1
contentArr = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbCrLf)
Close #1
n = UBound(contentArr)
for i = 0 to n
Next
读取LF换行文本,只需把vbCrLf换成vbLf