Pascal中的常用字符串函数

1. 连接运算concat(s1,s2,s3…sn) 相当于s1+s2+s3+…+sn.

例：concat(‘11’,’aa’)=’11aa’;

2. 求子串。Copy(s,I,L) 从字符串s中截取第I个字符开始后的长度为l的子串。

例:copy(‘abdag’,2,3)=’bda’

3. 删除子串。过程Delete(s,I,l) 从字符串s中删除第I个字符开始后的长度为l的子串。例：s:=’abcde’;delete(s,2,3);结果s:=’ae’

4. 插入子串。过程Insert(s1,s2,I) 把s1插入到s2的第I个位置

例：s:=abc;insert(‘12’,s,2);结果s:=’a12bc’

5. 求字符串长度length(s) 例：length(‘12abc’)=5

6. 搜索子串的位置pos(s1,s2) 如果s1是s2的子串，则返回s1的第一个字符在s2中的位置，若不是子串，则返回0.

例：pos(‘ab’,’12abcd’)=3

7. 字符的大写转换。Upcase(ch) 求字符ch的大写体。

例：upcase(‘a’)=’A’

8. 数值转换为数串。过程Str(x,s) 把数值x化为数串s.

例：str(12345,s); 结果s=’12345’

9. 数串转换为数值。过程val(s,x,I) 把数串s转化为数值x,如果成功则i=0,不成功则I为无效字符的序数

例：val(‘1234’,x,I);结果x:=1234

求长度length

定义：function Length(S: String): Integer;

例子：

var

S: String;

begin

Readln (S);

Writeln('"', S, '"');

Writeln('length = ', Length(S));

end.

复制子串copy

定义：function Copy(S: String; Index: Integer; Count: Integer): String;

注意：S 是字符串类型的表达式。Index和Count是整型表达式。Copy 返回S中从Index 开始，Count个字符长的一个子串。

例子：

var S: String;

begin

S := 'ABCDEF';

S := Copy(S, 2, 3); { 'BCD' }

end.

插入子串insert

定义：procedure Insert(Source: String; var S: String; Index: Integer);

注意：Source 是字符串类型的表达式。S 是任意长度字符串类型变量。Index 是整型表达式。Insert 把Source插在S中Index处。如果结果字符串的长度大于255，那么255之后的字符将被删除。

例子：

var

S: String;

begin

S := 'Honest Lincoln';

Insert('Abe ', S, 8); { 'Honest Abe Lincoln' }

end.

删除子串delete

定义：procedure Delete(var S: String; Index: Integer; Count:Integer);

注意：S 是字符串类型变量。Index和Countare是整型表达式。Delete 删除S中从Index 开始的Count个字符。如果Index大于S的长度，则不删除任何字符；如果Count大于S中从Index开始的实际字符数，则删除实际的字符数。

例子：

var

s: string;

begin

s := 'Honest Abe Lincoln';

Delete(s,8,4);

Writeln(s); { 'Honest Lincoln' }

Delete(s,9,10);

Writeln(s); { 'Honest L' }

end.

字符串转为数值val

定义：procedure V al(S; var V; var Code: Integer);

在这里:

S 是由一系列数字字符构成的字符串类型变量；。

V 是整型或实型变量；

Code 是Integer型变量

注意：V al将S转为它的数值形式。

例子：

var s:string;I, Code: Integer;

begin

s:='1234';

val(s,i,code);

writeln(i); { 1234 }

end.

数值转为字符串str

定义：procedure Str(X [: Width [: Decimals ]]; var S:string);

注意：将数值X转成字符串形式。

例子：

var

S: string[11];

begin

Str(I, S);

IntToStr := S;

end;

begin

Writeln(IntToStr(-5322));

Readln;

end.

求子串起始位置pos

定义：function Pos(Substr: String; S: String): Byte;

注意：Substr和S字符串类型表达式。Pos在S中搜索Substr并返回一个integer值。这个值是Substr的第一个字符在S中的位置。如果在S中没有找到Substr，则Pos返回0。

例子：

var S: String;

begin

S := ' 123.5';

{ Convert spaces to zeroes }

while Pos(' ', S) > 0 do

S[Pos(' ', S)] := '0';

end.