CLISP语言中的字符串

CLISP中的字符串是一种特定类型的VECTOR,它的元素是字符。

1. 字符串比较

   字符串的比较基于字符的比较。

   但是对于双重母音却与通常的自然规则不同，如：

   o < oe < z < ö

   字符串比较函数：

• string= string1 string2 &key start1 end1 start2 end2 ==> generalized-boolean 相等比较
• string/= string1 string2 &key start1 end1 start2 end2 ==> mismatch-index 不等比较
• string< string1 string2 &key start1 end1 start2 end2 ==> mismatch-index 小于比较
• string> string1 string2 &key start1 end1 start2 end2 ==> mismatch-index 大于比较
• string<= string1 string2 &key start1 end1 start2 end2 ==> mismatch-index 小于或等于比较
• string>= string1 string2 &key start1 end1 start2 end2 ==> mismatch-index 大于或等于比较
• string-equal string1 string2 &key start1 end1 start2 end2 ==> generalized-boolean 相等比较
• string-not-equal string1 string2 &key start1 end1 start2 end2 ==> mismatch-index 不等比较
• string-lessp string1 string2 &key start1 end1 start2 end2 ==> mismatch-index 小于比较
• string-greaterp string1 string2 &key start1 end1 start2 end2 ==> mismatch-index 大于比较
• string-not-greaterp string1 string2 &key start1 end1 start2 end2 ==> mismatch-index 小于或等于比较，不大于比较
• string-not-lessp string1 string2 &key start1 end1 start2 end2 ==> mismatch-inde 大于或等于比较，不小于比较

注：

• &key 表示后面的参数都是可选参数。
• 在上面几个函数中，如果指定了可选参数，表示拿子串来比较。
• mismatch-index 表示不匹配的开始字符位置。
• generalized-boolean 表示返回值为一布尔类型值。

1. 函数 EXT:STRING-WIDTH

   (EXT:STRING-WIDTH string &KEY start end) 返回字符串占用字节数。

   它的值是为字符串中每个字符的 CHAR-WIDTH 值的和。

2. 函数 EXT:STRING-INVERTCASE 和 EXT:NSTRING-INVERTCASE

   (EXT:STRING-INVERTCASE string &KEY start end) 和 (EXT:NSTRING-INVERTCASE string &KEY start end)

   这两个函数与字符操作函数 CHAR-INVERTCASE 类似。

   它的值为字符串中每个字符的 CHAR-INVERTCASE 组成的字符串。

   相关的函数还有：STRING-UPCASE , STRING-DOWNCASE

3. 字符串截取，连接函数

   SUBSTRING string start &key end ==>子串

   使用 format 函数进行字符串连接操作：

   CL> (format nil "~a~a" "ab" "cd") "abcd"

   还可以直接调用C 库的方法。

   取字符串的字符函数：

   char string index ==> character

   schar string index ==> character

   取字符串string 中第 index 位的字符。

   相关函数： elt sequence index 序列中的 index 位的对象

   (setq str (copy-seq "0123456789")) ==> "0123456789" (setf (elt str 0) ##) ==> ## 替换了0为 #

   相关函数： aref array &rest subscripts ==> element

   取得数组中的一个元素

   (char s j) == (aref (the string s) j)

4. 字符串清理

   STRING-TRIM character-bag string ==> trimmed-string

   STRING-LEFT-TRIM

   STRING-RIGHT-TRIM

   分别将字符串两头，左边，右边的包含在 character-bag中的字符去掉。