Pascal中常用字符串函数.docVIP

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;例子：varS: String;beginReadln (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;beginS := 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之后的字符将被删除。例子：varS: String;beginS := 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开始的实际字符数，则删除实际的字符数。例子：vars: string;begins := Honest Abe Lincoln;Delete(s,8,4);Writeln(s); { Honest Lincoln }Delete(s,9,10);Writeln(s); { Honest L }end.字符串转为数值val定义： procedure Val(S; var V; var Code: Integer);在这里:S 是由一系列数字字符构成的字符串类型变量；。V 是整型或实型变量；Code 是Integer型变量注意：Val将S转为它的数值形式。例子：var s:string;I, Code: Integer;begins:=1234;val(s,i,code);writeln(i); { 1234 }end.数值转为字符串str定义： procedure Str(X [: Width [: Decimals ]]; var S:string);注意：将数值X转成字符串形式。例子：varS: string[11];beginStr(I, S);IntToStr := S;end;beginWriteln(IntToStr(-5322));Readln;end.求子串起始位置pos定义：function Po