如何在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)。然后，您必须将更新后的文件写回另一个文件……或者，不按顺序执行此操作，您可以扫描每个文件，同时将其写回另一个文件，但忽略所有回车。

一个快速谷歌找到的示例代码(例如，在这里)来做这个技巧