fortran - 格式 : add trailing spaces to character output to left-justify

Question

如何将字符串格式化为具有恒定宽度并且左对齐？有 Aw 格式化程序，其中 w 表示所需的字符输出宽度，但如果 w > len(characters) 则它会在前面添加空格，而不是附加它们。

当我尝试时

44 format(A15)
   print 44, 'Hi Stack Overflow'

我明白了

>        Hi Stack Overflow<

而不是

>Hi Stack Overflow        <

有没有简单的 Fortran 格式化解决方案可以解决这个问题？

Answer 1

正如问题中所指出的，问题是当字符表达式的长度短于输出字段宽度时，填充空格出现在字符表达式之前。我们想要的是在我们想要的字符串后面添加填充空格。

从自然编辑描述符的意义上来说，没有一个简单的格式化解决方案。然而，我们可以做的是输出一个带有足够尾部空格(计入长度)的表达式。

例如:

print '(A50)', 'Hello'//REPEAT(' ',50)

或

character(50) :: hello='Hello'
print '(A50)', hello

甚至

print '(A50)', [character(50) :: 'hello']

也就是说，在每种情况下，输出项的长度(至少)为 50。每个字符都将在右侧填充空格。

如果您选择，您甚至可以创建一个返回扩展(左对齐)表达式的函数:

print '(A50)', right_pad('Hello')

该函数留作读者练习。