练习 Lisp定义Split支持多个分隔符

csharp

[ 本帖最后由 csharp 于 2014-4-28 07:36 编辑 ]\n\n[ 本帖最后由 csharp 于 2014-4-28 07:34 编辑 ]\n\n

1.         [LispFunction("String_Split")]
   
2.         public static ResultBuffer StringSplit(ResultBuffer rb)
   
3.         {
   
4.             ResultBuffer  result = new ResultBuffer();
   
5.             if (rb != null)
   
6.             {
   
7.                 TypedValue[] values = rb.AsArray();
   
8.                 if (values.Count() >= 2 && values[0].TypeCode == (int)LispDataType.Text)
   
9.                 {
   
10.                     ArrayList strArrayList = new ArrayList();
    
11.                     for (int i = 1; i < values .Count( ); i++)
    
12.                         {
    
13.                         if (values[i].TypeCode == (int) LispDataType.Text)
    
14.                             {
    
15.                             strArrayList.Add(values[i].Value.ToString());
    
16.                             }
    
17.                         }
    
18.                     string[] splitStrings = new string[strArrayList.Count];
    
19.                     if (strArrayList.Count != 0)
    
20.                     {
    
21.                         for (int i = 0; i < strArrayList.Count; i++)
    
22.                         {
    
23.                             splitStrings[i] = strArrayList[i].ToString() ;
    
24.                         }
    
25.                     }
    
26.                     String str = values[0].Value.ToString();
    
27.                     String[] strings = str.Split(splitStrings , StringSplitOptions.RemoveEmptyEntries);
    
28.                     foreach (string st in strings)
    
29.                         {
    
30.                             result.Add(new TypedValue((int)LispDataType.Text, st));
    
31.                         }
    
32.                     }
    
33.                     else
    
34.                     {
    
35.                         return null;
    
36.                     }
    
37.                 }
    
38.             return result;
    
39.         }
    

        [LispFunction("String_Split")]<br />         public static ResultBuffer StringSplit(ResultBuffer rb)<br />         {<br />             ResultBuffer  result = new ResultBuffer();<br />             if (rb != null)<br />             {<br />                 TypedValue[] values = rb.AsArray();<br />                 if (values.Count() >= 2 && values[0].TypeCode == (int)LispDataType.Text)<br />                 {<br />                     ArrayList strArrayList = new ArrayList();<br />                     for (int i = 1; i < values .Count( ); i++)<br />                         {<br />                         if (values[i].TypeCode == (int) LispDataType.Text)<br />                             {<br />                             strArrayList.Add(values[i].Value.ToString());<br />                             }<br />                         }<br />                     string[] splitStrings = new string[strArrayList.Count];<br />                     if (strArrayList.Count != 0)<br />                     {<br />                         for (int i = 0; i < strArrayList.Count; i++)<br />                         {<br />                             splitStrings[i] = strArrayList[i].ToString() ;<br />                         }<br />                     }<br />                     String str = values[0].Value.ToString();<br />                     String[] strings = str.Split(splitStrings , StringSplitOptions.RemoveEmptyEntries);<br />                     foreach (string st in strings)<br />                         {<br />                             result.Add(new TypedValue((int)LispDataType.Text, st));<br />                         }<br />                     }<br />                     else<br />                     {<br />                         return null;<br />                     }<br />                 }<br />             return result;<br />         }<br />

命令: (string_split "123a12312a12b1312" "a" "b")
("123" "12312" "12" "1312")

命令: (string_split "123a12312a12b1312" "a")
("123" "12312" "12b1312")

命令: 指定对角点或 [栏选(F)/圈围(WP)/圈交(CP)]:
命令: (string_split "123a12312a12b1312" "")
("123a12312a12b1312")

命令: (string_split "123a12312a12b1312" )
nil

这个比Lisp弄的循环好用多了，如果不考虑错误处理代码要简单的多