getconfiginfo.m

MATLAB语言下的(有源码):Mike Zero系列软件的前后处理 GE中岸线与MIKE岸线相互转换 Mapinfo与MIKE中数据相互转换.(对学习MIKE与学习MATLAB编程人皆有帮助,且有说

function [UserStr_1,UserStr_2]=GetConfigInfo(FileName_Config)
%配置上次使用过的目录
UserStr_1='';
UserStr_2='';
Fid_Cfg=fopen(FileName_Config,'r');
if Fid_Cfg~=-1
    while feof(Fid_Cfg)~=1
        CurrentStr=fgetl(Fid_Cfg);
        Tag_UserStr_1=findstr(CurrentStr,'UserPath_Open=');
        Tag_UserStr_2=findstr(CurrentStr,'UserFile=');
        if length(Tag_UserStr_1)>0
            UserStr_1=CurrentStr((Tag_UserStr_1+14):length(CurrentStr));
            if strcmp(UserStr_1(length(UserStr_1)),'\')~=1
                UserStr_1(length(UserStr_1)+1)='\';
            end
        elseif length(Tag_UserStr_2)>0
            UserStr_2=CurrentStr((Tag_UserStr_2+9):length(CurrentStr));
        end
    end
    fclose(Fid_Cfg);
else
    msgbox(strcat('配置文件:',FileName_Config,'缺失！'));
end