获取字符串在AS400中存储的实际长度

Question

由于as400中存储中文字符时带有前导符和后导符，c#中获取字符串长度并非字符串在400种实际存储长度，
故作了以下方法，代码如下：

1. #region 获取字符串在400中存储实际占用的长度
2.   /**//// <summary>
3.   ///  获取字符串在400中存储实际占用的长度
4.   ///  creator: zhengjx
5.   /// </summary>
6.   /// <param name="strInput"></param>
7.   /// <returns></returns>
8.   public static int LengthOfAS400String(string strInput)
9.   {
10.    /**////400中文字符规则：中文字符串前面应该有前导符，后面紧跟后导符
11.    ///所以总长度应该 = strInput.Length + 中文字符数 + 中文字符串数*2
12.    int rtnLength = strInput.Length;
13.    Regex               regex = new Regex(@"[u0100-uffff]+");
14.    MatchCollection   matches = regex.Matches(strInput);
15.    for( int i = 0; i != matches.Count; ++i )
16.    {
17.     rtnLength += matches[i].Value.ToString().Trim().Length + 2;
18.    }
19.    return rtnLength;
21.    另外一种方法：遍历字符串来判断（注释）#region 另外一种方法：遍历字符串来判断（注释）
22.    //   int rtnLength = 0;
23.    //   if (HasChinese(strInput))
24.    //   {
25.    //    char[] cArr = strInput.ToCharArray();
26.    //    bool isNextCharChinese = false;
27.    //   
28.    //    for(int i = 0; i<cArr.Length ; i++)
29.    //    {
30.    //     if ( i== cArr.Length - 1)
31.    //     {
32.    //      //最后一个字符如果是中文，应该+3 （中文2个字符+一个后导符）
33.    //      if (HasChinese(cArr[i].ToString().Trim()))
34.    //      {
35.    //       rtnLength += 3;
36.    //       //第一个字符如果是中文，应该多加一个前导符
37.    //       if ( i == 0)
38.    //       {
39.    //        rtnLength += 1;
40.    //       }
41.    //      }
42.    //      else
43.    //      {
44.    //       rtnLength += 1;
45.    //      }
46.    //      continue;
47.    //     }
48.    //
49.    //     isNextCharChinese = HasChinese(cArr[i+1].ToString().Trim());
50.    //     
51.    //     if (HasChinese(cArr[i].ToString().Trim()))
52.    //     {
53.    //      //第一个字符如果是中文，应该多加一个前导符
54.    //      if ( i == 0)
55.    //      {
56.    //       rtnLength += 1;
57.    //      }
58.    //      rtnLength += 2;
59.    //      //如果当前字符是中文，且下一个字符是英文，则应多加一个后导符
60.    //      if (!isNextCharChinese)
61.    //      {
62.    //       rtnLength += 1;
63.    //      }
64.    //     }
65.    //     else
66.    //     {
67.    //      rtnLength += 1;
68.    //      if (isNextCharChinese)
69.    //      {
70.    //       rtnLength += 1;
71.    //      }
72.    //     }
73.    //    }
74.    //
75.    //   }
76.    //   else
77.    //   {
78.    //    rtnLength = strInput.Length;
79.    //   }
80.    //   return rtnLength;
81.    #endregion
82.   }
84.   #endregion
86.   获取字符串的前几位（按字符串在400中存储的实际长度计算）#region  获取字符串的前几位（按字符串在400中存储的实际长度计算）
88.   /**//// <summary>
89.   /// 获取字符串的前几位（按字符串在400中存储的实际长度计算）
90.   /// </summary>
91.   /// <param name="strInput"></param>
92.   /// <param name="length"></param>
93.   /// <param name="strLeave"></param>
94.   /// <returns></returns>
95.   public static string SubStringFOR400(string strInput,int length,ref string strLeave)
96.   {
97.    if (LengthOfAS400String(strInput) <= length)
98.    {
99.     strLeave = "";
100.     return strInput;
101.    }
102.    for(int i = strInput.Length ;i > 0;i--)
103.    {
104.     if (LengthOfAS400String(strInput.Substring(0,i)) <= length)
105.     {
106.      strLeave = strInput.Substring(i,strInput.Length - i);
107.      return strInput.Substring(0,i);
108.     }
109.    }
110.    strLeave = strInput;            
111.    return "";
112.   }
114.   #endregion

复制代码

Answer 1

转帖不注明出处，
属于剽窃！

2楼：在AS/400你可以用RPG，在Windows或者Unix与AS/400通信的场合，你需要计算一个字符串发送到AS/400然后保存所需要的字节数的话，Windows或者Unix下就没有RPG可用了。

Answer 2

本帖最后由 franliu 于 2010-11-02 16:02 编辑

哪里需要这么复杂，rpg语言只要一句话就可以搞定啦：

    eval      lenth = %len(%trim(your_string))