Mercurial > hg > octave-lyh

annotate scripts/strings/strrep.m @ 2288:039cda4dc95a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1996-06-05 23:21:52 by jwe] Initial revision
author jwe
date Wed, 05 Jun 1996 23:21:52 +0000
parents
children 5cffc4b8de57
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
2288
039cda4dc95a [project @ 1996-06-05 23:21:52 by jwe]
jwe
parents:
diff changeset
1 # Copyright (C) 1995, 1996 Kurt Hornik
039cda4dc95a [project @ 1996-06-05 23:21:52 by jwe]
jwe
parents:
diff changeset
2 #
039cda4dc95a [project @ 1996-06-05 23:21:52 by jwe]
jwe
parents:
diff changeset
3 # This program is free software; you can redistribute it and/or modify
039cda4dc95a [project @ 1996-06-05 23:21:52 by jwe]
jwe
parents:
diff changeset
4 # it under the terms of the GNU General Public License as published by
039cda4dc95a [project @ 1996-06-05 23:21:52 by jwe]
jwe
parents:
diff changeset
5 # the Free Software Foundation; either version 2, or (at your option)
039cda4dc95a [project @ 1996-06-05 23:21:52 by jwe]
jwe
parents:
diff changeset
6 # any later version.
039cda4dc95a [project @ 1996-06-05 23:21:52 by jwe]
jwe
parents:
diff changeset
7 #
039cda4dc95a [project @ 1996-06-05 23:21:52 by jwe]
jwe
parents:
diff changeset
8 # This program is distributed in the hope that it will be useful, but
039cda4dc95a [project @ 1996-06-05 23:21:52 by jwe]
jwe
parents:
diff changeset
9 # WITHOUT ANY WARRANTY; without even the implied warranty of
039cda4dc95a [project @ 1996-06-05 23:21:52 by jwe]
jwe
parents:
diff changeset
10 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
039cda4dc95a [project @ 1996-06-05 23:21:52 by jwe]
jwe
parents:
diff changeset
11 # General Public License for more details.
039cda4dc95a [project @ 1996-06-05 23:21:52 by jwe]
jwe
parents:
diff changeset
12 #
039cda4dc95a [project @ 1996-06-05 23:21:52 by jwe]
jwe
parents:
diff changeset
13 # You should have received a copy of the GNU General Public License
039cda4dc95a [project @ 1996-06-05 23:21:52 by jwe]
jwe
parents:
diff changeset
14 # along with this file. If not, write to the Free Software Foundation,
039cda4dc95a [project @ 1996-06-05 23:21:52 by jwe]
jwe
parents:
diff changeset
15 # 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
039cda4dc95a [project @ 1996-06-05 23:21:52 by jwe]
jwe
parents:
diff changeset
16
039cda4dc95a [project @ 1996-06-05 23:21:52 by jwe]
jwe
parents:
diff changeset
17 function t = strrep (s, x, y)
039cda4dc95a [project @ 1996-06-05 23:21:52 by jwe]
jwe
parents:
diff changeset
18
039cda4dc95a [project @ 1996-06-05 23:21:52 by jwe]
jwe
parents:
diff changeset
19 # usage: strrep (s, x, y)
039cda4dc95a [project @ 1996-06-05 23:21:52 by jwe]
jwe
parents:
diff changeset
20 #
039cda4dc95a [project @ 1996-06-05 23:21:52 by jwe]
jwe
parents:
diff changeset
21 # Replace all occurences of the substring x of the string s with the
039cda4dc95a [project @ 1996-06-05 23:21:52 by jwe]
jwe
parents:
diff changeset
22 # string y.
039cda4dc95a [project @ 1996-06-05 23:21:52 by jwe]
jwe
parents:
diff changeset
23
039cda4dc95a [project @ 1996-06-05 23:21:52 by jwe]
jwe
parents:
diff changeset
24 # Written by Kurt Hornik <Kurt.Hornik@ci.tuwien.ac.at> on 1994/10/11
039cda4dc95a [project @ 1996-06-05 23:21:52 by jwe]
jwe
parents:
diff changeset
25 # Updated by Kurt Hornik <Kurt.Hornik@ci.tuwien.ac.at> on 1996/05/25
039cda4dc95a [project @ 1996-06-05 23:21:52 by jwe]
jwe
parents:
diff changeset
26
039cda4dc95a [project @ 1996-06-05 23:21:52 by jwe]
jwe
parents:
diff changeset
27 if (nargin <> 3)
039cda4dc95a [project @ 1996-06-05 23:21:52 by jwe]
jwe
parents:
diff changeset
28 usage ("strrep (s, x, y)");
039cda4dc95a [project @ 1996-06-05 23:21:52 by jwe]
jwe
parents:
diff changeset
29 endif
039cda4dc95a [project @ 1996-06-05 23:21:52 by jwe]
jwe
parents:
diff changeset
30
039cda4dc95a [project @ 1996-06-05 23:21:52 by jwe]
jwe
parents:
diff changeset
31 if (! (isstr (s) && isstr (x) && isstr (y)))
039cda4dc95a [project @ 1996-06-05 23:21:52 by jwe]
jwe
parents:
diff changeset
32 error ("strrep: all arguments must be strings");
039cda4dc95a [project @ 1996-06-05 23:21:52 by jwe]
jwe
parents:
diff changeset
33 endif
039cda4dc95a [project @ 1996-06-05 23:21:52 by jwe]
jwe
parents:
diff changeset
34
039cda4dc95a [project @ 1996-06-05 23:21:52 by jwe]
jwe
parents:
diff changeset
35 if (length (x) > length (s) || isempty (x))
039cda4dc95a [project @ 1996-06-05 23:21:52 by jwe]
jwe
parents:
diff changeset
36 t = s;
039cda4dc95a [project @ 1996-06-05 23:21:52 by jwe]
jwe
parents:
diff changeset
37 return;
039cda4dc95a [project @ 1996-06-05 23:21:52 by jwe]
jwe
parents:
diff changeset
38 endif
039cda4dc95a [project @ 1996-06-05 23:21:52 by jwe]
jwe
parents:
diff changeset
39
039cda4dc95a [project @ 1996-06-05 23:21:52 by jwe]
jwe
parents:
diff changeset
40 ind = findstr (s, x, 0);
039cda4dc95a [project @ 1996-06-05 23:21:52 by jwe]
jwe
parents:
diff changeset
41 len = length (ind);
039cda4dc95a [project @ 1996-06-05 23:21:52 by jwe]
jwe
parents:
diff changeset
42 if (len == 0)
039cda4dc95a [project @ 1996-06-05 23:21:52 by jwe]
jwe
parents:
diff changeset
43 t = s;
039cda4dc95a [project @ 1996-06-05 23:21:52 by jwe]
jwe
parents:
diff changeset
44 else
039cda4dc95a [project @ 1996-06-05 23:21:52 by jwe]
jwe
parents:
diff changeset
45 s = toascii (s);
039cda4dc95a [project @ 1996-06-05 23:21:52 by jwe]
jwe
parents:
diff changeset
46 x = toascii (x);
039cda4dc95a [project @ 1996-06-05 23:21:52 by jwe]
jwe
parents:
diff changeset
47 y = toascii (y);
039cda4dc95a [project @ 1996-06-05 23:21:52 by jwe]
jwe
parents:
diff changeset
48
039cda4dc95a [project @ 1996-06-05 23:21:52 by jwe]
jwe
parents:
diff changeset
49 l_x = length (x);
039cda4dc95a [project @ 1996-06-05 23:21:52 by jwe]
jwe
parents:
diff changeset
50 tmp = s (1 : ind (1) - 1);
039cda4dc95a [project @ 1996-06-05 23:21:52 by jwe]
jwe
parents:
diff changeset
51 t = [tmp, y];
039cda4dc95a [project @ 1996-06-05 23:21:52 by jwe]
jwe
parents:
diff changeset
52 for k = 1 : len - 1
039cda4dc95a [project @ 1996-06-05 23:21:52 by jwe]
jwe
parents:
diff changeset
53 tmp = s (ind (k) + l_x : ind (k+1) - 1);
039cda4dc95a [project @ 1996-06-05 23:21:52 by jwe]
jwe
parents:
diff changeset
54 t = [t, tmp, y];
039cda4dc95a [project @ 1996-06-05 23:21:52 by jwe]
jwe
parents:
diff changeset
55 endfor
039cda4dc95a [project @ 1996-06-05 23:21:52 by jwe]
jwe
parents:
diff changeset
56 tmp = s (ind(len) + l_x : length (s));
039cda4dc95a [project @ 1996-06-05 23:21:52 by jwe]
jwe
parents:
diff changeset
57 t = [t, tmp];
039cda4dc95a [project @ 1996-06-05 23:21:52 by jwe]
jwe
parents:
diff changeset
58 t = setstr (t);
039cda4dc95a [project @ 1996-06-05 23:21:52 by jwe]
jwe
parents:
diff changeset
59 endif
039cda4dc95a [project @ 1996-06-05 23:21:52 by jwe]
jwe
parents:
diff changeset
60
039cda4dc95a [project @ 1996-06-05 23:21:52 by jwe]
jwe
parents:
diff changeset
61 endfunction