zerodstring.m

来自「toolbox of BVQX, This is the access betw」· M 代码 · 共 40 行

function zstring = zerodstring(zstring, zlength)
% zerodstring  - fill a string with zero chars and fix length
%
% FORMAT:       zstring = zerodstring(zstring, zlength)
%
% Input fields:
%
%       zstring     string to be zero-char filled
%       zlength     fixed string length
%
% Output fields:
%
%       zstring     zero-char filled string

% Version:  v0.5c
% Build:    6120415
% Date:     Dec-04 2006, 3:15 PM CET
% Author:   Jochen Weber, Brain Innovation, B.V., Maastricht, NL
% URL/Info: http://wiki.brainvoyager.com/BVQXtools

% argument check
if nargin < 2 || ...
   ~ischar(zstring) || ...
   ~isa(zlength, 'double') || ...
    numel(zlength) ~= 1 || ...
    isnan(zlength) || ...
    isinf(zlength) || ...
    zlength < 0
    error( ...
        'BVQXtools:BadArgument', ...
        'Invalid argument given to %s.', ...
        mfilename ...
    );
end

% fix arguments
zlength = fix(zlength);
zstring = [zstring(:)' char(zeros(1, zlength))];
zstring = zstring(1:zlength);