Removing the top rows of a csv file

Question

MATLAB90 2021-2-17

0
链接

此问题的直接链接

https://ww2.mathworks.cn/matlabcentral/answers/748492-removing-the-top-rows-of-a-csv-file

评论： Harsimran Singh 2021-5-3

test.csv.zip

I have a folder with multiple .csv files, similar to the one attached here. I am trying to remove the top rows of this csv file (everything until the row with Time and Trace). I need a script to run through the folder, delete all the top row portion of the files and resave them. Could you please help me with that? Thank you.

1 个评论
显示 -1更早的评论隐藏 -1更早的评论

Harsimran Singh 2021-5-3

use this link, it works perfectly for me:

https://www.mrexcel.com/board/threads/delete-first-2-rows-of-each-csv-file-in-a-folder-1-000-csv-files.890203/

Option Explicit

Sub FixCsvFiles()

Dim SelectFolder As String

Dim csvFiles As Variant

Dim csvWb As Workbook

Dim x As Integer

'browse for folder with csv files

On Error GoTo FixCsvFiles_Error

SelectFolder = GetFolder("c:\")

Application.ScreenUpdating = False

'Check user did not cancel folder selection

If SelectFolder = "" Then

MsgBox "No Folder Selected - Cannot continue", vbCritical

End

End If

SelectFolder = SelectFolder & "\"

csvFiles = Dir(SelectFolder & "*.csv")

Do While csvFiles <> ""

Set csvWb = Workbooks.Open(SelectFolder & csvFiles)

Rows("1:2").Delete

x = x + 1

csvWb.Close True

csvFiles = Dir

Loop

Application.ScreenUpdating = True

MsgBox "A total of " & CStr(x) & " files processed", vbInformation

On Error GoTo 0

Exit Sub

FixCsvFiles_Error:

MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure FixCsvFiles of Module2"

End Sub

Function GetFolder(strPath As String) As String

Dim fldr As FileDialog

Dim sItem As String

Set fldr = Application.FileDialog(msoFileDialogFolderPicker)

With fldr

.Title = "BROWSE TO FOLDER LOCATION WITH CSV FILES"

.AllowMultiSelect = False

.InitialFileName = strPath

If .Show <> -1 Then GoTo NextCode

sItem = .SelectedItems(1)

End With

NextCode:

GetFolder = sItem

Set fldr = Nothing

End Function

请先登录，再进行评论。

请先登录，再回答此问题。

Answer 1

Jan 2021-2-18

0
链接

此回答的直接链接

https://ww2.mathworks.cn/matlabcentral/answers/748492-removing-the-top-rows-of-a-csv-file#answer_626682

编辑：Jan 2021-2-25

在 MATLAB Online 中打开

Folder   = 'D:\Your\Folder'; 
FileList = dir(fullfile(Folder, '*.csv'));
for iFile = 1:numel(FileList)
    File = fullfile(Folder, FileList(iFile).name);
    
    % Read the file:
    FID  = fopen(File, 'r');
    if FID < 0
        error('Cannot open file: %s', File);
    end
    C = fread(FID, [1, inf], '*char');  % [EDITED] inf -> [1, inf]
    fclose(FID);
    index = strfind(C, 'Time (s)');
    
    if numel(index) ~= 1    
        error('Key not found in file: %s', File);
    end
    
    % Write cropped contents:
    FID  = fopen(File, 'w');
    if FID < 0
        error('Cannot open file: %s', File);
    end
    fwrite(FID, C(index:numel(C)), '*char');
    fclose(FID);
end

Create a backup at first or write to a new folder:

InFolder  = 'D:\Your\Folder';
FileList  = dir(fullfile(InFolder, '*.csv'));
OutFolder = 'D:\Your\FolderModified';
mkdir(OutFolder);
for iFile = 1:numel(FileList)
    InFile = fullfile(InFolder, FileList(iFile).name);
     ...
    OutFile = fullfile(OutFolder, FileList(iFile).name);
     ...
end