我从文件中读取数据并解析它们以存储在一些变量中。数据如下所示写在文件中,
INT_VALUE = 17 # Valid Integer
INT_VALUE1 23
INT_VALUE2 = 00012
INT_VALUE3 -2
INT_VALUE4 -33
在某些地方,在其他地方有空格和'='。在阅读时,我得到我的流%val和'=',我的值为' = 17'
,我需要删除=和'='符号和第一个数字之间的空格并存储为有效数字。
在某些其他情况下,数字之间可能存在空格,这应该是错误。
无效值将是具有特殊字符的任何非整数/实数值。例如,
INT_VALUE13 34=5434
INT_VALUE14 -23 45-33
INT_VALUE15 = 23-45*665Rtre
INT_VALUE16 -23.4
INT_VALUE17 1.4E9r23
INT_VALUE18 -5.D-3.3
INT_VALUE19 233 ddf
INT_VALUE20 -87 dfsdf
INT_VALUE21 = rtmr,t23./
如何删除fortran中的空格?
我的功能是,
character(60) function sweep_blanks(in_str)
character(*), intent(in) :: in_str
character(60) :: out_str
character :: ch
integer :: j
out_str = " "
do j=1, len_trim(in_str)
ch = in_str(j:j)
if (ch .ne. " ") then
out_str = trim(out_str) // ch
endif
sweep_blanks = out_str
end do
end function sweep_blanks
这将删除所有空白,无论在中间还是在结尾或开始时都没有帮助。