Fortran Coder

标题: 一个表控格式分列的问题 [打印本页]

作者: wawewen 时间: 2019-11-1 13:45
标题: 一个表控格式分列的问题
源代码

[Fortran] 纯文本查看 复制代码

       program ex

        implicit none

        character(len=50)input,output

        integer i,strlen

        integer::j=1

        write(*,*)"请输入字符串"

        read (*,"(A50)")input

        strlen=len_trim(input)

        do i=1,strlen

        if (input(i:i)/=' ')then

        output(j:j)=input(i:i)

        j=j+1

      end if

        end do

        write(*,"(A50)")output

        end

把read和write格式改成（*，*）后执行结果不一样，有没有大佬说明一下，本人才学习Fortran一周，还请大佬赐教

捕获1.PNG (12.88 KB, 下载次数: 304)

源代码执行结果

捕获2.PNG (8.96 KB, 下载次数: 305)

默认输出格式输出结果

作者: li913 时间: 2019-11-1 15:22
不加格式，遇到空格或逗号就读取完毕。格式详解可以看看http://fcode.cn/resource_ebook-32-1.html第二讲。

作者: fcode 时间: 2019-11-2 08:42
read(*,*) 称为表控格式。
表控格式认为空格和逗号，TAB，是“间隔符”
这个思想，可以参考excel的“分列功能”

作者: wawewen 时间: 2019-11-5 14:32

li913 发表于 2019-11-1 15:22
不加格式，遇到空格或逗号就读取完毕。格式详解可以看看http://fcode.cn/resource_ebook-32-1.html第二讲。 ...

多谢大佬！

作者: wawewen 时间: 2019-11-5 14:33

fcode 发表于 2019-11-2 08:42
read(*,*) 称为表控格式。
表控格式认为空格和逗号，TAB，是“间隔符”
这个思想，可以参考excel的“分列功 ...

多谢！长路漫漫啊

欢迎光临 Fortran Coder (http://bbs.fcode.cn/)