1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
|
//==========================================================================
// Copyrigth INRIA 2005
// File : arobasestring2strings.sci
// Author : Jean-Baptiste Silvy
// Desc : Convert the string format defined by jpc into matrix of strings
//==========================================================================
function [strings] = arobasestring2strings( varargin )
// call : arobasestring2strings( string )
[lhs,rhs] = argn(0) ;
// check number of arguments
if ( rhs ~= 1 ) then
error(39);
return ;
end
title = varargin(1) ;
// check type
if ( type(title) ~= 10 ) then
error(246) ;
return ;
end
// check the size
if ( size( title ) <> 1 ) then
error("function only works with an unique string");
return ;
end
// in the title, each line is separated by a '@' character
// in the resulting matrix, each line is put on a line
// of the matrix
// positions of @ in
arobPos = strindex( title, '@' ) ;
nbArob = size( arobPos ) ;
nbArob = nbArob(2);
// add the last character
arobPos( nbArob + 1 ) = length( title ) + 1 ;
// get the first string
strings(1) = part( title, [1:arobPos(1)-1] ) ;
for i = 1 : nbArob
strings( i + 1 ) = part( title, [ arobPos(i) + 1 : arobPos(i+1) - 1 ] ) ;
end
endfunction
|
