Changeset 6614

Timestamp:

11/17/10 15:48:02 (14 years ago)

Author:

jschierm

Message:

str2int.m: Added capability to find last as well as first integer in character string.

Location:

issm/trunk/src/m/utils/Array

Files:

• find_string.m (modified) (1 diff)
• str2int.m (modified) (1 diff)

issm/trunk/src/m/utils/Array/find_string.m

@@ -1 +1 @@
 %
 %  function to find a string in a cell array
+%  (actually pretty close to matlab strmatch)
 %  
 %  [ifound]=find_string(cells,str)

issm/trunk/src/m/utils/Array/str2int.m

@@ -1 +1 @@
 %
-%  function to find and read the first integer in a character string.
+%  function to find and read the first or last positive integer
+%  in a character string.
 %
-%  function [aint]=str2int(astr)
+%  function [aint]=str2int(astr,cfl)
 %
-function [aint]=str2int(astr);
+function [aint]=str2int(astr,cfl);
 
 aint=[];
 
-i=1;
-while (i <= length(astr))
-        if (astr(i) >= '0' && astr(i) <= '9')
-                aint=sscanf(astr(i:length(astr)),'%d',[1,1]);
-                break
-        else
-                i=i+1;
+if     ~exist('cfl','var') || strncmpi(cfl,'f',1)
+    i=1;
+
+    while (i <= length(astr))
+        if (astr(i) >= '0' && astr(i) <= '9')
+            aint=sscanf(astr(i:length(astr)),'%d',[1,1]);
+            return
+        else
+            i=i+1;
+        end
         end
+
+elseif strncmpi(cfl,'l',1)
+    i=length(astr);
+    ifound=false;
+
+    while (i >= 1)
+        if     (astr(i) >= '0' && astr(i) <= '9')
+            ifound=true;
+            i=i-1;
+        elseif ~ifound
+            i=i-1;
+        else
+            aint=sscanf(astr(i+1:length(astr)),'%d',[1,1]);
+            return
+        end
+        end
+
+    if ifound
+        aint=sscanf(astr,'%d',[1,1]);
+        return
+    end
 end