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

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

ただいまの
回答率

88.83%

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

解決済

回答 2

投稿

  • 評価
  • クリップ 0
  • VIEW 4,441

yuyakawano

score 7

 前提・実現したいこと

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/ツールのバージョンなど)

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

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

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

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

    クリップを取り消します

  • 良い質問の評価を上げる

    以下のような質問は評価を上げましょう

    • 質問内容が明確
    • 自分も答えを知りたい
    • 質問者以外のユーザにも役立つ

    評価が高い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。

    質問の評価を上げたことを取り消します

  • 評価を下げられる数の上限に達しました

    評価を下げることができません

    • 1日5回まで評価を下げられます
    • 1日に1ユーザに対して2回まで評価を下げられます

    質問の評価を下げる

    teratailでは下記のような質問を「具体的に困っていることがない質問」、「サイトポリシーに違反する質問」と定義し、推奨していません。

    • プログラミングに関係のない質問
    • やってほしいことだけを記載した丸投げの質問
    • 問題・課題が含まれていない質問
    • 意図的に内容が抹消された質問
    • 過去に投稿した質問と同じ内容の質問
    • 広告と受け取られるような投稿

    評価が下がると、TOPページの「アクティブ」「注目」タブのフィードに表示されにくくなります。

    質問の評価を下げたことを取り消します

    この機能は開放されていません

    評価を下げる条件を満たしてません

    評価を下げる理由を選択してください

    詳細な説明はこちら

    上記に当てはまらず、質問内容が明確になっていない質問には「情報の追加・修正依頼」機能からコメントをしてください。

    質問の評価を下げる機能の利用条件

    この機能を利用するためには、以下の事項を行う必要があります。

回答 2

checkベストアンサー

+1

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 14:31

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

    キャンセル

0

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

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

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

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

投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

  • 2018/08/08 14:32

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

    キャンセル

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

  • ただいまの回答率 88.83%
  • 質問をまとめることで、思考を整理して素早く解決
  • テンプレート機能で、簡単に質問をまとめられる

関連した質問

同じタグがついた質問を見る