fortran 读取文件为字符串

在Fortran中，可以使用`READ`语句和`FORMAT`格式化字符串来读取文件中的字符串。以下是一个简单的示例：

PROGRAM read_string_from_file
  IMPLICIT NONE

  CHARACTER(LEN=100) :: str
  INTEGER :: i

  OPEN(10, FILE='file.txt', STATUS='OLD')

  DO i=1,5
    READ(10, '(A100)') str  ! 读取文件中的一行字符串
    WRITE(*, *) str        ! 输出读取的字符串
  END DO

  CLOSE(10)

END PROGRAM read_string_from_file

在这个示例中，我们打开名为`file.txt`的文件，并使用`READ`语句和`(A100)`格式来读取每行的最多100个字符的字符串，并使用`WRITE`语句将其输出到屏幕上。

请注意，要正常读取文件，文件必须存在且可读。如果文件不存在或无法打开，则会出现运行时错误。

相关问题

fortran中读取单行字符串长度不一致

在Fortran中，可以使用内置的字符串处理函数和文件读取函数来读取单行字符串长度不一致的问题。下面是一个示例程序，演示了如何实现这一操作：

program read_variable_length_string
  implicit none
  
  integer, parameter :: max_len = 100  ! 假设一行文本最多包含100个字符
  character(len=max_len) :: line
  integer :: i, n
  
  open(unit=10, file='variable_length_string.txt', status='old')
  
  do i = 1, 10  ! 假设文件中有10行文本
    read(10, '(a)') line  ! 读取一行文本
    n = len_trim(line)
    
    if (n > 0) then
      write(*, '(a)') trim(line)  ! 输出当前行的内容
    end if
  end do
  
  close(10)
  
end program read_variable_length_string

在这个示例程序中，我们假设文件中有10行文本，每行的长度不一致。我们首先使用`read`函数读取一行文本，然后使用`len_trim`函数获取这一行的实际长度。如果长度大于0，则说明这一行不是空行，我们就输出它的内容。注意，我们使用`trim`函数去掉字符串两端的空格，以确保输出的内容不包含多余的空格。

需要注意的是，如果一行文本的长度超过了`max_len`，则在读取时可能会出现截断的情况。如果需要读取长度超过`max_len`的文本，可以考虑使用`stream`模式，或者自己编写一个循环读取的程序。

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`函数去掉已经读取的部分，然后继续读取剩余的部分，直到这一行的所有内容都被读取完毕。