1.定义
全称
character[(LEN=整型字符长度表达式[,KIND=种别值])][,属性说明] :: 变量名表[=初始值]
character(len=20,kind=2) c,d
20为字符串分配的长度,2为种别值
可用形式
character(len=12) c,d
character(12) c,d
character(12,2) c,d
character12 c,d
character(5) a,b12,c16 !a的长度为5,b的长度为12,c的长度为16
character(len= *)::a=‘ASGD’ ! *表示长度不确定,初始化时由内容决定长度
2.取值
全称
V(e1:e2)
V是字符型实体名,包括字符变量名、字符函数名、字符数组元素等等。e1,e2是整型表达式或正整常数,e1的值指明子串在V中的起始列号,e2的值指明子串在V中的终止列号。
如果e1省略,表示子串从第一个字符取起;
e2省略,表示子串取到末尾;如e1,e2都省略,表示子串从头取到尾。
可用形式
设有字符变量A,其取值为‘ABCDE12345FGH’,则下面的子串取值为:
A(3:11) -> ‘CDE12345F’,
A(I+4:9) -> ‘E1234’(I=1),‘1234’(I=2)
A(:5) -> ‘ABCDE’
A(11:) -> ‘FGH’
A( : ) -> ‘ABCDE12345FGH’
A(3:3) -> ‘C’
子串在程序中可直接引用,也可被其它字符实体再赋值,因此可使程序员任意地取出一部分字符,并按需要替换一部分字符,非常灵活。例如:PRINT *,(A(I:I+1),I=6,9),可以打印‘12’、‘23’、‘34’、‘45’。
3.字符操作
只有一个 //
将两个字符串拼接在一起
4.字符串比较
按照ascall码进行逐个字符比较,于c语言相同。
5.一些常用函数
char(num)返回计算机所使用的字符表上,数值num所代表的字符
ichar(char) 返回所输入的char字符在计算机所使用的字符表中所代表的编号,返回值是整数类型
len(string) 返回输入字符串的声明长度,返回值是整数类型
len_trim(string) 返回字符串去除尾端空格后的实际内容长度
index(string, key) 所输入的string可key都是字符串。这个函数会返回key这个“子字符串”在”母字符串“string中第一次出现的位置
!trim(string) 返回把string字符串尾端多余空格清除后的字符串