我在 linux 上创建了一个文本文件，如果我在 Word pad 中打开它，文件会正常显示。但是，当我在记事本中打开它并尝试使用下面的代码将其加载到 excel 中时，它会显示为一行。
' Open the file
Open Filename For Input As #1
' Look for the Table Title
Do While Not (EOF(1) Or InStr(TextLine, TableTitle) > 0)
Line Input #1, TextLine
Loop
如何将其拆分为原始行？是否有行尾分隔符，vba 可以使用？
Linux 使用换行符( \n) 来表示新行，而不是 Windows 使用的回车+换行符( \r\n)，因此您不能使用Line input，而是：
Open Filename For Input As #1
'//load all
buff = Input$(LOF(1), #1)
Close #1
'//*either* replace all lf -> crlf
buff = replace$(buff, vbLf, vbCrLf)
msgbox buff
'//*or* line by line
dim lines() As String: lines = split(buff, vbLf)
for i = 0 To UBound(lines)
msgbox lines(i)
next
功能
Public Function GetLines(fpath$) As Variant
'REFERENCES:
'Microsoft Scripting Runtime // Scripting.FileSystemObject
'Microsoft VBScript Regular Expressions 5.5 // VBScript_RegExp_55.RegExp
Dim fso As New Scripting.FileSystemObject, RE As New VBScript_RegExp_55.RegExp
If fso.FileExists(fpath) = True Then
Dim mts As MatchCollection, mt As Match
Dim lines() As String
Dim content$: content = fso.OpenTextFile(fpath).ReadAll()
With RE
.Global = True
.Pattern = "[^\r\n]+" 'catch all characters except NewLines/Carraige Returns
If .test(content) = True Then
Set mts = .Execute(content)
ReDim lines(mts.Count - 1)
Dim pos&
For Each mt In mts
lines(pos) = mt.Value
pos = pos + 1
Next mt
Else
MsgBox "'" & Dir(fpath) & "' contains zero bytes!", vbExclamation
End If
End With
GetLines = lines
Else
MsgBox "File not found at:" & vbCrLf & Dir(fpath), vbCritical
End If
End Function
并且可以由 (from immediate window)调用
?GetLines("C:\BOOT.INI")(2)
和输出
default=multi(0)disk(0)rdisk(0)partition(1)\WINDOWS
希望这可以帮助。
使用 Windows“写字板”打开 linux 文本文件。保存文件。写字板将在保存文件时将 linux 换行符 (\n) 转换为回车+换行符 (\r\n)。无需编码。