Fortran分割读取字符串数字混合文本行

在Fortran中，可以使用内置的字符串处理函数和文件读取函数来分割读取字符串数字混合文本行。下面是一个示例程序，演示了如何实现这一操作：

program read_mixed_text
  implicit none
  
  character(len=100) :: line
  character(len=20) :: str_num
  integer :: i, n
  
  open(unit=10, file='mixed_text.txt', status='old')
  
  do i = 1, 10  ! 假设文件中有10行文本
    read(10, '(a)') line  ! 读取一行文本
    n = 0
    
    do while (len(line) > 0)
      read(line, '(a20)', iostat=n) str_num  ! 从行中读取一个字符串或数字
      if (n /= 0) then  ! 如果读到了非法字符，则退出循环
        exit
      end if
      
      if (is_integer(str_num)) then  ! 判断是否是整数
        write(*, '(i5)') int(str_num)
      else  ! 否则，就是字符串
        write(*, '(a)') trim(str_num)
      end if
      
      line = adjustl(line(len_trim(str_num)+1:))  ! 去掉已经读取的部分
    end do
  end do
  
  close(10)
  
contains

  logical function is_integer(str)
    character(len=*), intent(in) :: str
    integer :: i, n
    
    read(str, *, iostat=n) i  ! 尝试将字符串转换为整数
    is_integer = (n == 0)  ! 如果能转换成功，则是整数
  end function is_integer
  
end program read_mixed_text

在这个示例程序中，我们假设文件中有10行文本，每行包含若干个字符串和数字，它们可能以任意顺序混合在一起。我们首先使用`read`函数读取一行文本，然后使用一个`do while`循环逐个读取其中的字符串和数字。在每次读取时，我们使用`iostat`参数判断是否读取成功，如果读取失败，则说明当前位置不是一个字符串或数字，我们就退出循环。如果读取成功，则可以通过判断是否能将字符串转换为整数来区分字符串和数字。最后，我们使用`adjustl`函数去掉已经读取的部分，然后继续读取剩余的部分，直到这一行的所有内容都被读取完毕。