string - 如何从 Fortran 中的另一个字符串中删除特定字符串？

Question

在 Fortran 中，如何从另一个字符串中删除特定字符串？例如：string1='c/test/run1/runfile.dat'，string2='runfile.dat'。我想从 string1('c/test/run1/runfile.dat') 中删除 string2 ('runfile.dat') 并将结果作为 'c/test/run1/' 我该怎么做。我正在使用带有视觉工作室的 Fortran f90。

标签： stringfortran

Answer 1

可能这太明显了，或者我没有正确理解你的问题，但是如果你知道子字符串string2有m字符 ( ) 并且真的出现在有字符len_trim()的末尾，你可以只使用的第一个字符string1nn-mstring1

string1(1:n-m)

或全部

string1(1:len_trim(string1)-len_trim(string2))

您可以按照评论中的说明使用验证它string2确实出现string1并找到该位置，index()但如果您知道它在那里，只需获取子字符串。