Fortran write的用法

bjer

Do
  write( cFile , * ) a(j)
  cFile = 'E:\Data\data1\' // Trim(AdjustL(cFile)) // '.txt'
  Open( 55 , File = cFile )
  读取该文件
  Close( 55 )  !// 这是关键。如果你每次循环都关闭了文件，下次循环打开的是另一个文件，则不会覆盖。
End Do


请问我用这个代码把数组里存储的文件名的字符串，变成了文件名来读取， write( cFile , * ) a(j)这句是什么意思啊，为什么我在循环读取之后原文件出现问题了，并没有往源文件里写入东西啊

四叶草

具体看下面的图，我对write、read的用法，有时候也是有点懵

bjer

四叶草 发表于 2019-3-14 14:26
具体看下面的图，我对write、read的用法，有时候也是有点懵

我本来将文件名存储在数组里，然后用write将数组元素转换为字符进行读取，write(cfile,*) filename(i)，每个文件名都很长。但是我在运行的时候这里总出现断点，不知道为什么，调试一天没有结果

给的提示是 ：windows已在xx.exe中触发一个断点,其原因可能是堆被损坏,这说明xx.exe中或它所加载的任何DLL中有bug。
原因也可能是用户在xx.exe具有焦点时按下了F12。
输出窗口可能提供了更多诊断信息 。

四叶草

bjer 发表于 2019-3-14 16:37
我本来将文件名存储在数组里，然后用write将数组元素转换为字符进行读取，write(cfile,*) filename(i)， ...

会不会是因为文件名太长哟？

bjer

四叶草 发表于 2019-3-14 17:11
会不会是因为文件名太长哟？

确实是的 fortran有字符串长度限制 我的文件名太长啦 谢谢你~