Question

fortran 读取带空格的字符串

如果有what is your name 的字符串，read时只能读出 what，现在我希望将整句话包括空格赋给一个字符变量，应该怎么做

这个字符串是可以数出长度的，如果是一个很长的带空格的字符串，未知长度，又应该怎么做

Answer 1

character( len = 2048 ) :: c
read( 通道号 , '(a2048)' ) c

追问

谢谢您的回答！！现在又有另一个问题，怎么样输出数据能不自动换行，我这输出的字符数组可能是每个字符太长了，老是输出一个元就换一次行
write(通道号 , '(5a2048)') date(1，：) 但是我编的程序中，date是动态数组，程序自己判断数组的维数，那么输出格式'(5a2048)'中就无法判断这个格式要使用多少次，也就是无法直接手动输上a前面的数字，这样要想不换行输出数组应该怎么办？

追答

不管字符数组多大，每个字符的显示宽度都是确定的。
你怎么输出的？

追问

do i = 1,line,1
write(10,*) date(i,:)
end do
这是我的输出语句

追答

第一，你的date是字符型吗？你确定每一个date都需要a2048那么长？

第二，数组的维度是确定的，是二维数组。自动判断的，是它的第二维大小。这要弄清楚。
第三，你的问题，其实是如何实现动态格式化。你可参考：fcode.cn/bbs/thread-18-1-1.html 两种方法。

追问

第一个问题2048就是个比方 date是字符型 每个date的长度我给的是50
第二个问题 是我说错了 就是程序自动判断每一维的大小
第三个问题是你给我的网址我打不开……
但是 如果不用格式化只是用*默认格式 能实现不换行吗？

追答

默认格式无法实现。

举一个例子给你吧：
program main
implicit none
character( len = 30 ) :: fmt = "(?????f9.5)"
real :: a(100) = 4.
open( 30 , file = 't.txt' )
write( fmt(2:6) , '(i5)' ) size(a)
Write( 30 , fmt ) a
end