Chapter 1  fortran 字符型与整型之间的转换
2007-05-06 16:01:11|  分类：Fortran |  标签：fortran  |字号订阅
整型->字符型
integer          :: intYear
character(len=4) :: txtYear
intYear = 1998
write(txtYear,"(I4)") intYear
write(*,*) txtYear
end
注意，
write(txtYear,"(I4)") intYear
中，txtYear为字符型。fortran将字符型变量txtYear看作一个文件，将数据intYear写入这个文件。
字符型->整型(下面的写法是错误的！)
integer          :: intYear
character(len=4) :: txtYear
txtYear = 1998
write(intYear,"(A4)") txtYear
write(*,*) iniYear
end
上面的写法错在:
intYear是整型变量，初始值为0，write将寻unit=0的文件，结果不到，报错这就是说，使用write进展类型转换时，只能进展整型->字符型的转换。要想将字符型转换到整型，要用到read命令：
integer          :: intYear
character(len=4) :: txtYear
txtYear = 1998
read(txtYear,"(I4)") iniYear
!read(txtYear(1:4),"(I4)") iniYear
write(*,*) iniYear
end
这种方法仍然以txtYear为文件，将其中的1998以整型读出。
read(txtYear(1:4),"(I4)") iniYear
可以将字符串中任意数据(第一到第四个字符之间的子串，包括第一和第四个字符)读出来！
试一试这种方法：
write(string, 'I3.3') intnumber
看一看他与
write(string, 'I3') intnumber
有什么区别！
另外，看一看下面地代码是什么意思：
CHARACTER*5 string1
intnumber=45
字符串长度1是什么意思
string1="(I??)"
WRITE(string1(3:4),"(I2.2)")int(log10(real(INTNUMBER))+1)
WRITE(*,string1)INTNUMBER
这个也很好：
write (string,*) intnumber
string = trim(adjustl(trim(string)))
Fortran中的字符串函数：
ichar(c)：将一个字符转化为对应的序号，按处理器整理顺序排列，括号内也可以是字符串，但是只处理第一个字符
iachar(c)：将一个字符转化为ascii码值，这是为非ascii平台提供的转化到ascii码值的函数
在ascii平台上，这两个函数等效的。
char(n)  ：将一个整数值转化为字符，按处理器顺序排列
achar(n) ：将一个整数转化为字符，按ascii码顺序排列
char(n,kind)，我还是不十清楚确
-----------------
adjustL(s) ：将字符串前面的空格挪到后面，字符串中间的空格不动，总字符串长度不变adjustR(s) ：字符串右对齐，字符串长度不变
-------------------
len(s)  ：求字符串长度函数
len_trim(s)  ：不计算字符串尾部空格长度
------------------
trim(s)  ：去除字符串尾部空格
------------------
index(s1,s2[,back])  ：s2在s1中的起始位置，假设s2不是s1的子串，返回0，假设s2为''〔空字符串〕，返回1。back=.true.时表示假设s2在s1中出现屡次，按照最后一次出现的位置计算，假设省略或者back=.fasle.，那么均按s2第一次出现的位置计算。例子：s1='**123**23567'
index(s1,'23')      值为4
index(s1,'23',back=.true.)  值为8
〔使用的是digital visual fortran 6.0，帮助中有
INDEX ('XXXX', " ", BACK = .TRUE.) 值为5
但是在其环境下测试，并非如此，仍然是0，不知道是否帮助文件的问题，还是其他原因。〕
-----------------------
scan(s1,s2[,back]) ：扫描s1中的每个字符判断是否包含于s2字符集中，并返回s1中第一个可以包含在s2中的字符位置，假设设置了back=.true.，那么返回s1中从右面开始第一个包含于s2字符串中的字符位置。假设没有包含于s2字符集的字符，那么返回0。例如：s1='**123**23567'
scan(s1,'32')      ! =4，s1中的'2'和'3'都属于'32'字符集，但是在s1中，第一个出现属于s2字符的是第4位置上的'2'，所以返回4
scan(a1,'32', BACK = .TRUE.)  !=9，从字符串s1右边开始计算，那么3是第一个包含于'32'字符集的字符，位置数是9
verify(s1,s2[,back]) ：与scan类似，但是判断是否有不包含于字符集的字符并返回其位置，back同样类似是表示从字符串右边开始寻。详细就是判断s1中的每个字符是否有没有包含于s2字符集中的，假设存在那么返回其在s1中的位置，否那么返回0值。假设设置back=.true.，那么从s1最右侧的字符开始判断。假设s1中的字符全部属于s2字符集，那么返回0。例如
s1='**123**23567'
verify(s1,'32')      ! =1，因为s1中的第一个字符'*'就不属于'32'字符集，所以函数返回1 verify(s1,'32',back=.true.)  ! =12，从s1右面第一个字符开始检查，'7'不属于'32'字符集，所以返回'7'的位置12
verify(s1,'1234567*')  ! =0，s1中的字符全部包含在s2字符集中
-----------------
repeat(s1,n)  ：将字符串s1重复N遍，n>=0
LGE(s1,s2)  ：s1是否>=s2
LGT(s1,s2)  ：s1是否>s2
LLT(s1,s2)  ：s1是否LLE(s1,s2)  ：s1是否<=s2 字符串等于仍然用.EQ.

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。