练习 Lisp定义字符串由分隔符连接

csharp

1.         [LispFunction("String_Join")]
   
2.         public Object  StringJoin(ResultBuffer rb)
   
3.         {
   
4.             Object ret = null;
   
5.             if (rb != null)
   
6.             {
   
7.                 TypedValue[] values = rb.AsArray();
   
8.                 if (values.Count() > 3)
   
9.                 {
   
10.                     String parStr = values[0].Value.ToString();
    
11.                     String[] strings = new string[values.Count() - 3];
    
12.                     int j = 0;
    
13.                     for (int i = 1; i < values .Count( ); i++)
    
14.                     {
    
15.                         if (values.TypeCode == (int) LispDataType.Text)
    
16.                         {
    
17.                             strings[j] = values.Value.ToString();
    
18.                             j++;
    
19.                         }
    
20.                     }
    
21.                     var nstr = string.Join(parStr, strings);
    
22.                     ret = nstr;
    
23.                 }
    
24.             }
    
25.             else
    
26.             {
    
27.                 return null;
    
28.             }
    
29.             return ret;
    
30.         }
    

        [LispFunction("String_Join")]<br />         public Object  StringJoin(ResultBuffer rb)<br />         {<br />             Object ret = null;<br />             if (rb != null)<br />             {<br />                 TypedValue[] values = rb.AsArray();<br />                 if (values.Count() > 3)<br />                 {<br />                     String parStr = values[0].Value.ToString();<br />                     String[] strings = new string[values.Count() - 3];<br />                     int j = 0;<br />                     for (int i = 1; i < values .Count( ); i++)<br />                     {<br />                         if (values<i>.TypeCode == (int) LispDataType.Text)<br />                         {<br />                             strings[j] = values<i>.Value.ToString();<br />                             j++;<br />                         }<br />                     }<br />                     var nstr = string.Join(parStr, strings);<br />                     ret = nstr;<br />                 }<br />             }<br />             else<br />             {<br />                 return null;<br />             }<br />             return ret;<br />         }<br />

(string_join "a" '("1" "2" "3")) => "1a2a3"

发现发完这个帖子升级了:)