一个截取字符串的问题！

[jericho3164]

怎样取出一个字符串的中间某段？比如说：200601ABC，要取出2006后ABC之前的中间段。中间有可能是两位也可能是多位的！怎么办？

[sy_315]

copy()

[gdwyh]

我发现一个问题,有一字符串
str:='二1一23';
copy(str,2,2)与midstr(str,2,2)都得出'?',目前还没找到解决方法

[cnhgj]

用copy吧

[cnhgj]

晕你起始位置跟结束位置都有一样啊

[gdwyh]

uses StrUtils;

MidStr(字符串,截取起始位置,截取长度);

[dyxfkj]

copy(Str,起始位置，长度)

[FrameSniper]

HOHO,一楼的方法好，偶还没有用过这个函数！

[tiexinliu]

//ss source string;ds destination str
var
len:integer;
begin
len:=字符串长度-7;
ds:=copy(ss,3,len);

[soldier7451]

还是用copy好,走哪儿都适用。

[kejian]

copy and mdistr功能相同,但midstr须要引用StrUtils单元.

cnhgj(戏子)有没搞错啊? 第一个2是起始位置,第二个是长度.

[novas]

>我发现一个问题,有一字符串
>str:='二1一23';
>copy(str,2,2)与midstr(str,2,2)都得出'?',目前还没找到解决方法


汉字是二字节的,所以你copy得到的字符不一定能正常显示

[yjy1001]

用pos加copy加length 就可以实现了
例如 s:='1234567890abcdefghijklmnopqrstuvwxyz';
你想找 s1:='789' 后面到 s2:='ijk' 前面的串，可以这样写。

var
i,j:integer;
ss:string;
begin
i:=pos(s1,s);
j:=pos(s2,s);
ss:=copy(s,i+length(s1)+1,j-i-length(s1)）;
end;
ss 为所求。
不过1楼的注意 在知道确定的位置 确实也可以。