%%?功能：提取鐵力的氣象數據并輸出為txt
%編寫：julming
%時間：2018/4/22
%說明：本程序是從氣象數據共享服務網下載氣象數據后，將數據放在同一個文件中，然后根據區站號提取所需要的數據
%?EVP?蒸發；?GST?0cm地溫；?PRE?氣壓；??RHU?相對溫度；?SSD?日照；?TEM氣溫；?WIN?風速風向

%%?計算并輸出文件
clear
clc
%‘C:\Users\Administrator\Desktop\PRE\*.TXT‘
%‘E:\ET_datafusion\QXSJ\EVP‘
file=dir（‘E:\ET_datafusion\QXSJ\EVP\*.TXT‘）;
filepath=‘E:\ET_datafusion\QXSJ\EVP\‘
dataab=[]
for?n=1:length（file）
	filerad=[filepathfile（n）.name]
????data=textread（filerad）
????%尋找數組中滿足條件的元素
????[xy]=find（