excel - 如何在 VBA 中将文件从 Dos 转换为 Unix

Question

我想使用 VBA excel 将文件夹中的所有文件转换为 dos 到 unix 格式。

我可以使用以下代码从驱动器中找到所有文件。

Sub list_all_files(myFilepath As String, filecounter() As Variant, counter1 As Integer)
    With Application.FileSearch
    .NewSearch
    .LookIn = myFilepath
    .filename = "*.*"
    counter = 0
        If .Execute(SortBy:=msoSortByLastModified, SortOrder:=msoSortOrderDescending) > 0 Then
        counter1 = .FoundFiles.Count
            For i1 = 1 To .FoundFiles.Count
                counter = counter + 1
                filecounter(counter) = .FoundFiles(i1)
            Next i1
        End If
    End With
End Sub

但是如何转换数组(文件)。我想将文件保存在同一路径上。

提前致谢。

Answer 1

您必须依次打开每个文件并对输入运行查找和替换操作:vbCrLf (DOS) 转到 vbLf (Unix)。然后，您必须将该更新的文件写回另一个文件......或者，您可以扫描每个文件，同时将其写回另一个文件，而不是按顺序执行此操作，但忽略所有回车符。

一个快速的谷歌找到了示例代码(例如，here)来解决这个问题。