getconfiginfo.m

来自「MATLAB语言下的(有源码):Mike Zero系列软件的前后处理 GE中岸线」· M 代码 · 共 23 行

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