清晰；%清除所有變量
clc%清除屏幕
files = dir(' D:\ \ data \ \ ')；%讀取D:\data\目錄中的所有文件夾名稱，如文件夾20100101。
文件=文件(3:end)；
new file = ' D:\ \ new data '；
%文件重命名
對於i = 1: length(Files)%文件夾周期，即20100101-20100331。
OldName_1 = Files(i)。姓名；%讀取文件夾名稱
SubFiles = dir(strcat(' D:\ \ data \ \ '，Files(i)。名稱，' \\ '，' * . grib 2 ')；%讀取文件夾中的所有文件名，如gfs.t00z.pgrbf00.grib2
對於j = 1: length(子文件)%，重命名每個文件。
OldName_2 =子文件(j)。姓名；%讀取文件名
temp = str2num(舊名稱_2(6:7)) + str2num(舊名稱_ 2(15:16))；%取出文件名中的數字並添加。
NewName = strcat('AV '，OldName_1(3:8)，num2str(temp，' %02d ')，' . grib 2 ')；%新文件名
MyCommand = ['！ren '，' '，' D:\data\ '，OldName_1，' \ '，OldName_2，' '，NewName]；
eval(my command)；%替換文件名
copyfile(strcat('D:\data\ '，OldName_1，' \ '，NewName)，new file)；
結束
結束