fortran教程6：字符串_fortran 字符串拼接

link之家

链接快照平台

输入网页链接，自动生成快照
标签化管理网页链接

字符串拼接和切片

在 fortran 中，字符可以用单引号或者双引号表示，通过 character 声明时，可以通过 len() 函数指定字符串的最大长度，这些都是早在介绍 fortran 类型时就已经提到过的。

如果用数组的角度理解，字符串就是由字符组成是数组，所以可通过 (:) 语法进行索引。此外，通过 // 运算符可以对字符串进行拼接。

program tinycool
implicit none
   character(len = 15) :: surname, firstname 
   character(len = 30):: name
   firstname = 'tiny' 
   surname = 'cool'
   name = firstname//surname
   print *, name
   print *, name(:5)
end program tinycool
>a.exe
 tiny           cool
trim去除空格
 
上面输出的name中间出现了冗长的空格，这是因为surname的长度是15，但只有4个可见字符，剩下的就都用空格补全了，这太难受了，通过trim函数可以去除这个东西 
program tinycool
implicit none
   character(len = 15) :: surname, firstname 
   character(len = 30):: name
   firstname = 'tiny' 
   surname = 'cool'
   name = trim(firstname)//surname
   print *, name
   print *, name(:5)
end program tinycool
>a.exe
 tinycool
 tinyc
由于字符串规定的长度往往大于可见字符的长度，所以可见字符的位置就有很大的活动空间。通过adjustl和adjustr可以让字符居左或者居右 
program tinycool
implicit none
   character(len = 15) :: surname, firstname 
   character(len = 30):: name
   firstname = 'tiny' 
   surname = 'cool'
   name = adjustl(firstname)//adjustr(surname)
   print *, name
   name = adjustr(firstname)//adjustl(surname)
   print *, name
end program tinycool
>a.exe
 tiny                      cool
            tinycool
查询和索引
 
通过index函数，可以在一个字符串中找到另一个字符串所在的位置，如果返回值为0，代表不存在 
program tinycool
implicit none
   character(len = 15) :: surname, firstname 
   character(len = 30):: name
   firstname = 'tiny' 
   surname = 'cool'
   name = trim(firstname)//surname
   if(index(name, trim(surname)) == 0)then
      print *, 'test is not found'
      print *, 'test is found at index: ', index(name, trim(surname))
   end if
end program tinycool
>a.exe
 test is found at index:            5
字符虽然看上去和数字没什么关系，但其编码过程仍然需要与数字进行意义对应，fortran中提供了ASCII码的转换函数 
ACHAR(n) 将ASCII转为字符， $*数组，以\NUL charakter终止。 与fortran不同，这些字符串没有固定的大小。 要将它们转换为Fortran样式字符，可以使用C的strlen函数： function get_string ( c_pointer ) result(f_string) use, intrinsic :: iso_c_binding implicit none type(c_ptr), intent ( in ) :: c_pointer character (len = :), pointer :: f_ptr characte 声明：本文翻译自：https://www.tutorialspoint.com/fortran/fortran_strings.htm 由于这一节内容与上节内容多有重复，所以重复的部分本文不再累赘。 1. 字符串声明 character(len=20) :: str = &quot;hello, world!&quot; 2. 提取子字符串 在fortran中，可以通过下标提取子字符串。 Program subS... 1、如果想要合并的字符串在一个序列或可迭代对象中，那么将它们合并起来的最快方法就是使用join()方法 parts = ['Is', 'Chicago', 'Not', 'Chicago?'] ' '.join(parts) Out[3]: 'Is Chicago Not Chicago?' ','.join(parts) Out[4]: 'Is,Chic... fortran语言可以将字符视为单个字符或是连续的字符串。 字符可以时基本字符集的任意字符。包括letters，decimal digits，underscore和21个特殊字符。 字符常量是一个固定值的字符串。 使用character可以声明字符或是字符串变量。其长度在声明的同时可以用len来指定。例如character(len=10) :: c 如果没有用len来指定，默认长度为1.可以通过下... 数据类型是指在计算机中能够记录文本、数值等的数据单位。算法处理的对象是数据，而数据是以某种特定的形式(如整数、实数、字符等形式)存在的。不同的数据之间往往还存在某些联系，例如由若干个整数组成一个整数数组。 1. 变量声明 隐式声明(不再使用) 隐式声明是传统 Fortran 语言预先定义且无须通过类型声明语句对变量类型进行定义，习惯称为I-N规则。Fortran 规定，凡以字母I、J、K、L、M、N(无论大写还是 小写)6个字母开头的变量名，如无另外说明则为整型变量。以其他字母开头的变量被默认为 Fortran分割字符串和字符串替换的子程序 !============================================================= subroutine StringSplit(InStr,delimiter,StrArray,nsize) !---------------------------------------------- !---将字符串 !===================================== !整型或实型转换生字符，借助Fortran内部文件完成， !即将一个字符串变量当作一个内部文件看待；反之依然 !=============================... 众所周知，常见的拼接方式有：StringBuffer,StringBuilder,concat,+,StringUtils.join 那么通过如下代码，看一下在for循环中，不同的字符串拼接方式，到底哪种效率最高? package com.test.stringjoin; import org.apache.commons.lang3.StringUtils; public class T... 在这个示例中，我们打开名为`file.txt`的文件，并使用`READ`语句和`(A100)`格式来读取每行的最多100个字符的字符串，并使用`WRITE`语句将其输出到屏幕上。 请注意，要正常读取文件，文件必须存在且可读。如果文件不存在或无法打开，则会出现运行时错误。$