質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
85.50%
CSV

CSV(Comma-Separated Values)はコンマで区切られた明白なテキスト値のリストです。もしくは、そのフォーマットでひとつ以上のリストを含むファイルを指します。

FORTRAN

FORTRAN(フォートラン)は科学時術計算に向いた手続き型プログラミング言語です。 並列計算の最適化が行いやすい特性上、数値予報および気候モデルなどの大規模な計算を行う分野のスーパーコンピュータで使われています。

Q&A

解決済

2回答

14534閲覧

fortranで文字列と数値の混在したcsvファイルの読み込み

yuyakawano

総合スコア7

CSV

CSV(Comma-Separated Values)はコンマで区切られた明白なテキスト値のリストです。もしくは、そのフォーマットでひとつ以上のリストを含むファイルを指します。

FORTRAN

FORTRAN(フォートラン)は科学時術計算に向いた手続き型プログラミング言語です。 並列計算の最適化が行いやすい特性上、数値予報および気候モデルなどの大規模な計算を行う分野のスーパーコンピュータで使われています。

0グッド

0クリップ

投稿2018/08/07 14:18

前提・実現したいこと

fortranで以下のような文字列と数値の混在したcsvファイルを読み込みたいです。

'18-08-05 12:00:00.00s,1.00,2.00
...

発生している問題・エラーメッセージ

 1行目の日付と時刻の部分は必要ないのでダミーの文字型変数を宣言して読み飛ばしていたんですが、どうも先頭の'(アポストロフィー? シングルクオート?)のせいなのかうまくいきません。
また、日付と時刻の間は半角スペース1つが1つあります。ここはまとめて文字に格納してもいいし、別々で文字に格納してもいいし、丸々読み飛ばしてもいいです。

何か上手い方法をご存知の方がいましたらよろしくお願いします。

該当のソースコード

fortran

プログラム:test.f90
program test
implicit none
real,dimension(2)::x
character(len=30) :: dummy
open(10,file='test.csv')
read(10,)dummy,x(1:2)
close(10)
write(
,*)dummy,x(1:2)
end program test

入力ファイル:test.csv
'18-08-05 12:00:00.00s,1.00,2.00

エラーメッセージ:
At line 6 of file test.f90 (unit = 10, file = 'test.csv')
Fortran runtime error: End of file
Error termination. Backtrace:
Program received signal SIGSEGV: Segmentation fault - invalid memory reference.
Backtrace for this error:

試したこと

ここに問題に対して試したことを記載してください。

補足情報(FW/ツールのバージョンなど)

ここにより詳細な情報を記載してください。

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

guest

回答2

0

ベストアンサー

list-directed な format * は、スペースやコンマを区切り文字として CSV 形式をパースしてくれるので、CSV データを読む時の選択としては悪くない。文字列長や数値桁が可変だと * を使わないと自分でパースする羽目になる。

ただ、list-directed だと、文字列引用符は文字列と、数字 * は反復、/ はデータ終わりを意味するなど、普通の文字が役付き文字になっているのでその辺に注意が必要になる。

今の場合、文字列が始まったが、閉じ引用符がないので叱られている。一度バッファ文字列に入れて、1文字目のシングル・クォートを外して、内部ファイルとしてあらためて list-directed で読むこともできる。ただし、この場合日付と時間の間の空白が区切り文字となるので、2個ダミーの文字変数が必要となる。

読みたい数値が固定フォーマットなら、hope_mucci さんのようにフォーマットを指定してもいい。

program test implicit none real,dimension(2)::x character(80) :: buff character(len=30) :: dummy1, dummy2 !open(10,file='test.csv') read(10, '(a)') buff print *, buff(2:) read(buff(2:),*) dummy1, dummy2, x(1:2) close(10) write(*,*) dummy1,dummy2,x(1:2) end program test
18-08-05 12:00:00.00s,1.00,2.00 18-08-05 12:00:00.00s 1.000000 2.000000 続行するには何かキーを押してください . . .

投稿2018/08/08 02:30

curehoney

総合スコア249

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

yuyakawano

2018/08/08 05:31

分かりやすく説明していただきありがとうございました。完璧に解決しました。
guest

0

書式*指定なんて横着せずに、きちんとaで指定してやれば読めます。
この機に入出力書式指定方法をしっかり覚えましょう。

あと、質問文にコードを載せる場合はこうやって```でくくること。
読みやすくなり、検証しやすくなります。

fortran

1program test 2 implicit none 3 real,dimension(2)::x 4 character(len=30) :: dummy 5 read(*,'(a22,f4.2,f4.2)')dummy,x(1:2) 6 write(*,*)dummy,x(1:2) 7end program test

テストのためstdinにしましたが、利用するならファイル入力に書き換えてね。

投稿2018/08/07 22:31

hope_mucci

総合スコア4447

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

yuyakawano

2018/08/08 05:32

分かりやすい回答ありがとうございました。
guest

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.50%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問