Fortran 字符串变量(STRING)

program stringtest
	!声明字符串的方法
	character(len=10) a !Fortran 90 添加
	character(10) b !Fortran 77
	character*20 c !Fortran 77
	character*(20) d !Fortran 77
	!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
	character(len=20) e
	character(len=20) string
	character(len=6) first
	character(len=10) second
	character(len=20) add
	!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
	!字符串赋值
	a="Hello" !Fortran 90 可用双引号来封装字符串
	b='Hello' !Fortran 77 只能用单引号来封装字符串
	c="That's right." !用双引号封装字符串时,可以在字符串中任意使用单引号
	d='That''s right.' !用单引号封转字符串时,输出单引号时要连续用两个单引号
	e="That's ""right""."!用双引号来封装时,输出双引号也要连续使用两个双引号
	!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
	string="Good morning."
	write(*,*) string
	string(6)="evening." !重新设置从第6个字符之后的字符串
	write(*,*) string
	string(1:2)="Go" !字符串最前面两个字符变为”Go“
	string(13:13)="!" !字符串的第13个字符变为“!”
	first="Happy "
	second="Birthday"
	add=first//second !经过两个连续的除号可以连接两个字符串
	write(*,*) add
	!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
	!一些常用函数
	!char(num) 返回计算机所使用的字符表上,数值num所代表的字符
	!ichar(char) 返回所输入的char字符在计算机所使用的字符表中所代表的编号,返回值是整数类型
	!len(string) 返回输入字符串的声明长度,返回值是整数类型
	!len_trim(string) 返回字符串去除尾端空格后的实际内容长度
	!index(string, key) 所输入的string可key都是字符串。这个函数会返回key这个“子字符串”在”母字符串“string中第一次出现的位置
	!trim(string) 返回把string字符串尾端多余空格清除后的字符串
	
end



评论 2
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值