pb_change.m

这是机械工业张德丰《MATLAB与外部程序接口编程》随书源码

%修改电话簿
function pb_change(pb_htable, name)
entry=pb_htable.get(pb_keyfilter (name));
if isempty(entry)
    disp(sprintf('The name %s is not in the phone book', name));
    return;
else
    pb_display(entry);
    r=input('Replace phone numbers in this entry (y/n)?', 's');
    if r ~='y';
        return;
    end;
end;
disp 'Type in the new phone number(s), one per line.'
disp 'To complete the entry, type an extra Enter.'
disp (sprintf(':: %s', name));
entry =[name '^'];
while 1
    line = input('::', 's');
    if isempty(line)
        break;
    else
        entry=[entry line '^'];
    end;
end;
pb_htable.put(pb_keyfilter(name), entry);
disp ''
disp (sprintf('The entry for %s has been changed ', name));