vb中 Mid("你好",1,1)返回"你" Mid("你好",2,1)返回"好" bcb中我找到了一个相似的函数MidStr(), MidStr("123",1,1)返回"1" MidStr("123",2,1)返回"2" 但如果是汉字返回0值 MidStr("你好",1,1)返回0 请问高手,bcb中有像vb那样的函数返回要取的汉字而不是零?如果有,请告知. 再次感谢!!高手的帮助和指导!!! 發表人 - wynj_6 於 2004/11/25 23:25:16

wynj_6 您好：    我嘗試寫一個將中英文都當成是一個字的函式：richMidStr(.)。 供您參考修改。

//---------------------------------------------------------------------------
AnsiString richMidStr(AnsiString str, int start, int count)
{ AnsiString result;
  int index, len;
  index = 1;      for (int k=1; k 127 ) // 中文字的第一個byte
         index =2;
       else index  ;
     }
  start = index;
  len = 0;
  while( len 127 ) // 中文字的第一個byte
         index =2;
      else index  ;
      len  ;
    }      result = str.SubString(start, (index-start));
  return result;
}    void __fastcall TForm1::Button1Click(TObject *Sender)
{
  AnsiString msg = richMidStr("你2好456嗎89",1,3);
  ShowMessage("<" msg ">");
  
}
//---------------------------------------------------------------------------

RichTop 敬上 =====***** 把數學當工具，可以解決問題；將數學變能力，能夠發現並解決問題！ =====#####