Fortranで文字の読み込み＆書き込み

質問

こんばんは。

FORTRANでとあるデータを処理しているのですが、
そこでひとつ分からないことがあるので質問します。
ご存知の方、ご教示願えないでしょうか。

以下、質問内容
------------------------------------
「aaaa_50」という文字列から、「_50」のみの文字列を抜き出したい。
具体例から説明しますと、
1 parameter A
2 read (10,*) A <-- Aは「aaaa_50」という文字列。
3 write (10,*) A <-- このままでは「aaaa_50」を書き込みます
------------------------------------
確か2行目と3行目の間に何らかの処理を書けば「_50」の文字列が
表現出来たと思うのですが・・・

説明も分かりにくいかもしれませんが宜しくお願いいたします。

回答No.1

ultraCS · ベストアンサー

>parameter A
>read (10,*) A <-- Aは「aaaa_50」という文字列。
>write (10,*) A <-- このままでは「aaaa_50」を書き込みます

まず、parameter分で宣言した領域には、一般のFORTRANコンパイラだと読み込めないはず
また、通常は読み込んだ順編成のデバイス10にはそのままだと(rewindやreopenすれば別ですが)書きこめないと思います(コンソールは別なので、10をCONデバイスで開けば可能かな)

また、"aaaa_50"のaaaaの部分は必ず4桁なのでしょうか、それとも、アンダースコア"_"をサーチしてそれ以降を生かしたいのかで話は変わります。

固定で良いなら、部分文字列を使えば十分でしょう。
charater A*7
read (*,*) A
write (*,*) A(5:7)

あるいは
read (*,"(4x,a3)") A
write (*,*) A

のようにaaaaの部分を飛ばしてしまえばよいのでは
_で判断するのであれば、一行では無理

お礼

早速ありがとうございます。

＞　"aaaa_50"のaaaaの部分は必ず4桁なのでしょうか、
aaaaは4桁、_のあとに文字or数字、といった固定の形式です。
「_」で判断する必要もありません。

ご教示いただいた「(5:7)」ですが、これが私がこの処理で使いたかったものです。
思い出すことが出来ました。

断片的に思い出すことが出来たその部分文字列なのですが、
writeのあとに(5:7)を入れても書き出せません。
なぜでしょうか・・・？

たびたびすみません、宜しくお願い致します。

補足

※先にお礼に書き込んでしまい「できない」としていましたが、
出来ました。
私がアホでした。
部分文字列ですべて解決しました。
ありがとうございました！