如何從一字符串的右邊開始,截取一定長度(如4位)的字符串(100分)

  • 主题发起人 主题发起人 康仔
  • 开始时间 开始时间

康仔

Unregistered / Unconfirmed
GUEST, unregistred user!
如何從一字符串的右邊開始,截取一定長度(如4位)的字符串,如<br>'abd12586'得 &nbsp;'2586'<br>'d34568'得 &nbsp;'4568'<br><br>多謝!
 
procedure TForm1.Button3Click(Sender: TObject);<br>var<br>&nbsp; str, stemp: string;<br>&nbsp; i, j : Integer;<br>begin<br>&nbsp; str := 'ABCDEFGHJ';<br>&nbsp; i := length(str);<br>&nbsp; J := i-4;<br>&nbsp; while i &gt;J do<br>&nbsp; begin<br>&nbsp; &nbsp; stemp := str+stemp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;<br>&nbsp; &nbsp; i := i-1;<br>&nbsp; end;<br>&nbsp;ShowMessage(stemp);<br>end;
 
uses StrUtils;<br>begin<br>&nbsp; ShowMessage(RightStr('12345678',4));<br>end;
 
从字串SourStr中取出右边N个字符:<br>if length(SourStr)&gt;=N then<br>&nbsp; &nbsp;s:=copy(SourStr,length(SourStr)-N+1,N)<br>else s:= SourStr ;<br><br>如果需要反序,自己再处理一下就好了
 
copy(str,length(str)-3,4)
 
[xiaopei]的方法簡單
 
好像 VB VFP 。。。。都有这种现成的标准函数吧
 
1:<br>uses StrUtils;<br>begin<br>&nbsp; ShowMessage(RightStr('12345678',4));<br>end; <br>2:<br>SQL :<br>select right('abd12586',4)
 
后退
顶部