Fortran代码自动创建文件夹升级版说明
Fortran代码⾃动创建⽂件夹升级版说明
在Fortran代码中，给指定路径⾃动创建⽂件夹。需要使⽤内部查询函数“inquire”和系统创建⽂件夹命令。⾸先使⽤查询函
数“inquire”查询指定路径中将要创建的⽂件夹是否存在；然后，根据“inquire”反馈结果，⽤系统命令中的创建⽂件夹命令进⾏相应⽂件夹的⾃动创建。
注意：系统创建⽂件夹命令调⽤时，路径字符串不允许有空格，否则出错；如果存在空格，则需使⽤双引号将含有空格的⼦字符串包含其中。另外，在Fortran中，若要输⼊单引号活双引号，则需要连续两次输⼊单引号或双引号即可。
酒曲制作洛克王国音速犬技能此处，介绍两种⽅法：1、对含有空格的路径字符串，在调⽤其创建路径时，给含有空格部分的⼦字符串，⼈⼯添加双引号引号；2、⾃动添加引号。
⽅法1：⼈⼯添加引号
⽰例代码：
module Path_Mod
implicit none
character(len=200) :: out_path0=“D:\代码\2017.04.26\Routine Code\Test Code”
!- 查询⽬录⽂件夹状态或使⽤⽬录⽂件夹，允许字符串存在空格
character(len=200) :: out_path1=“D:\代码\2017.04.26"“Routine Code””"“Test Code”""
!- 调⽤系统命令创建⽂件夹状态，不允许字符串存在空格，必须⽤引号将含有空格的⼦字符串含起来
end module Path_Mod
program Main
use Path_Mod
implicit none
character(len=200) :: path_result0,path_result1
! 调⽤⾃动创建⽂件夹⼦程序
!
------------------------------------
path_result0=trim(adjustl(path_path0))//“Result”
path_result1=trim(adjustl(path_path1))//“Result”
call Create_folder(path_result0,path_result1)
end program Main
! 创建⽬录⽂件夹及路径
!--------------------------------
梦见钱包丢了
subroutine Create_folder(path_inquire,path_create)
use IFPORT !- 调⽤系统命令模块
implicit none
character(len=200),intent(in) :: path_inquire,path_create
integer(kind=4) :: istatus,errnum
logical(kind=4) :: ierr
inquire(DIRECTORY=trim(adjustl(path_inquire)), EXIST=ierr)
if(ierr) then
print*,‘The directory has existed and not been needed create’
write(,’(/)’)
else
print,‘The directory does not exist and create it’
write(,’(/)’)
istatus=SYSTEM('md '//trim(adjustl(path_create))) !- md后⾯必须要有空格，否则发⽣错误
if(istatus==-1) then
errnum=ierrno()
print,‘Error=’,errnum,‘inquire the Intel Visual Fortran help document.’
print*,’ ’
stop ‘The folder-creating is fail.’
end if
end if
return
end subroutine Create_folder
⽅法2：⾃动添加引号
⽰例代码：
module Path_Mod
implicit none
character(len=200) :: out_path0=“D:\代码\2017.04.26\Routine Code\Test Code”
!- 查询⽬录⽂件夹状态或使⽤⽬录⽂件夹，允许字符串存在空格
什么牌子的轿车好character(len=200) :: out_path1=“D:\代码\2017.04.26"“Routine Code””"“Test Code”"" !- 调⽤系统命令创建⽂件夹状态，不允许字符串存在空格，必须⽤引号将含有空格的⼦字符串含起来end module Path_Mod
program Main
use Path_Mod
implicit none
character(len=200) :: path_result0,path_result1
! 调⽤⾃动创建⽂件夹⼦程序
!------------------------------------
path_result0=trim(adjustl(path_path0))//“Result”
path_result1=trim(adjustl(path_path1))//“Result”
call Create_folder(path_result0)
end program Main
! 创建⽬录⽂件夹及路径
!--------------------------------
subroutine Create_folder(path_inquire)
use IFPORT !- 调⽤系统命令模块
implicit none
character(len=200),intent(in) :: path_inquire
integer(kind=4) :: istatus,errnum
logical(kind=4) :: ierr
integer(kind=4) :: i,j,k,m,n
character(len=200) :: path,path1
path=path_inquire
m=index(path,"",back=.true.)
i=index(path," “)
j=index(path(1:i),back=.true.)
k=index(path(i+1,m),”")
i=i+k
path1(1:j)=path(1:j)
path1(j+1:j+1)=""""
path1(j+2:i)=path(j+1:i-1)
path1(i+1:i+1)=""""
path1(i+2:m+2)=paht(i:m)
path=paht1
m=index(path,"",back=.true.)
do while(m<=200)
n=i+2
i=index(path(n+1:200)," “)
i=n+i
j=index(path(1:i),”",back=.true.)
k=index(path(i+1:m),"")
i=i+k
path1(1:j)=path(1:j)
path1(j+1:j+1)=""""
path1(j+2:i)=path(j+1,i-1)
path1(i+1:i+1)=""""
path1(i+2:m+2)=path(i:m)
path=paht1
m=index(path,"",back=.true.)
n=index(path(i+2:200)," ")
if(n==0) exit
end do
inquire(DIRECTORY=trim(adjustl(path_inquire)), EXIST=ierr)
if(ierr) then
print*,‘The directory has existed and not been needed create’
write(,’(/)’)
挑的组词else
print,‘The directory does not exist and create it’
write(,’(/)’)
istatus=SYSTEM('md '//trim(adjustl(path))) !- md后⾯必须要有空格，否则发⽣错误
if(istatus==-1) then
errnum=ierrno()
print,‘Error=’,errnum,‘inquire the Intel Visual Fortran help document.’
print*,’ ’
stop ‘The folder-creating is fail.’
end if
end if
return
end subroutine Create_folder@
欢迎使⽤Markdown编辑器
你好！ 这是你第⼀次使⽤ Markdown编辑器 所展⽰的欢迎页。如果你想学习如何使⽤Markdown编辑器, 可以仔细阅读这篇⽂章，了解⼀下Markdown的基本语法知识。
新的改变
我们对Markdown编辑器进⾏了⼀些功能拓展与语法⽀持，除了标准的Markdown编辑器功能，我们增加了如下⼏点新功能，帮助你⽤它写博客：
1. 全新的界⾯设计 ，将会带来全新的写作体验；
2. 在创作中⼼设置你喜爱的代码⾼亮样式，Markdown 将代码⽚显⽰选择的⾼亮样式 进⾏展⽰；
3. 增加了 图⽚拖拽 功能，你可以将本地的图⽚直接拖拽到编辑区域直接展⽰；
4. 全新的 KaTeX数学公式 语法；
5. 增加了⽀持⽢特图的mermaid语法 功能；
6. 增加了 多屏幕编辑 Markdown⽂章功能；
7. 增加了 焦点写作模式、预览模式、简洁写作模式、左右区域同步滚轮设置 等功能，功能按钮位于编辑区域与预览区域中间；
8. 增加了 检查列表 功能。
功能快捷键撤销：Ctrl/Command  + Z 重做：Ctrl/Command  + Y 加粗：Ctrl/Command  + B 斜体：Ctrl/Command  + I
标题：Ctrl/Command  + Shift  + H
⽆序列表：Ctrl/Command  + Shift  + U
有序列表：Ctrl/Command  + Shift  + O
检查列表：Ctrl/Command  + Shift  + C
插⼊代码：Ctrl/Command  + Shift  + K
插⼊链接：Ctrl/Command  + Shift  + L
插⼊图⽚：Ctrl/Command  + Shift  + G
查：Ctrl/Command  + F
替换：Ctrl/Command  + G
合理的创建标题，有助于⽬录的⽣成
直接输⼊1次#，并按下space 后，将⽣成1级标题。
输⼊2次#，并按下space 后，将⽣成2级标题。
以此类推，我们⽀持6级标题。有助于使⽤TOC 语法后⽣成⼀个完美的⽬录。
如何改变⽂本的样式
强调⽂本 强调⽂本
加粗⽂本 加粗⽂本
标记⽂本
删除⽂本
引⽤⽂本
H O is是液体。
2 运算结果是 1024.
插⼊链接与图⽚
链接: .
210
图⽚:
带尺⼨的图⽚:
居中的图⽚:
秋天的好词居中并且带尺⼨的图⽚:
当然，我们为了让⽤户更加便捷，我们增加了图⽚拖拽功能。
如何插⼊⼀段漂亮的代码⽚
去页⾯，选择⼀款你喜欢的代码⽚⾼亮样式，下⾯展⽰同样⾼亮的 代码⽚.
// An highlighted block
var foo ='bar';
⽣成⼀个适合你的列表
项⽬
项⽬
项⽬
1. 项⽬1
2. 项⽬2
3. 项⽬3
计划任务
完成任务
创建⼀个表格
⼀个简单的表格是这么创建的：
项⽬Value
电脑$1600
⼿机$12
导管$1

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。