- ベストアンサー
ループ回数を、保存するファイル名に入れる方法
FORTRANで、ループする毎に異なるファイルにデータを保存するプログラム（ファイル名の中にループ回数入れたい）を組みたいと思っており、自分で調べて、FORTRAN90なら例えば character*32 roop do i=1,100 write(roop,*)i open(1,FILE='file_'//adjustl(trim(roop))//'.dat') write(1,*)data close(1) enddo というようにwrite文で文字型変数に変換し、adjustlとtrimを使って余分な空白を取り除いて、//で結合すれば実現できることはわかったのですがこれと同じ事をFORTRAN77でやりたいと思っています。 困っているのはadjustlとtrimの部分をFORTRAN77で実現するところなのですが、なにかよい方法はありませんでしょうか？ どうぞよろしくお願いいたします。
- higepen
- お礼率100% (12/12)
- その他（プログラミング・開発）
- 回答数2
- ありがとう数2
- みんなの回答 （2）
- 専門家の回答
質問者が選んだベストアンサー
index()関数で、roopの何文字目に空白があるか調べて、その手前までを部分文字列で取り出す。
その他の回答 (1)
- Hayashi_Trek
- ベストアンサー率44% (366/818)
FORTRAN77にこの機能が有るか判らないのですが READ，WRITEの時に内部ファイルとして文字変数を指定できないでしょうか？ 例： CHARACTER X*8 WRITE( X, '(I03)' ) N1
お礼
早速ご回答いただきありがとうございます。 内部変数として文字変数を指定してやると 文字列の結合の際に空白ができてしまいます。 例えば character x*8 N1=100 write(x,'(I3)')N1 open(1,file='file'//x//'.dat') とやって、ファイルをopenすると file100 .dat というファイルがopenされてしまいます。 これでもファイルとしてつかえなくはないのですが やはりこの空白をどうにかしたいと思っています。
関連するQ&A
- fortranで読み込んだ複数ファイルデータの見方
また質問です。 character (13) :: fname do i = 1 , 3 write (fname ,"('sample_' , i2.2 , '.csv ')") , i enddo open (10 , file = fname) close (10) end fortranで連番のcsvファイルを上記のプログラムで読み込ませることはできたのですが、それぞれのファイルのデータの見方が分かりません。装置番号１０でread文やwrite文を書くと最後に読み込んだファイルのデータしか見れません。どなたか教えてください。
- 締切済み
- その他([技術者向] コンピューター)
- 配列のファイル出力について
fortranでできるファイルへの配列の出力をＣ言語でどのようにプログラムするか教えて頂きたいと思います。 ２次元配列a(i,j)の出力はfortranでは以下のようなプログラムになります。 open(10,.省略...) ファイルを指定して開く do j=1,ny ループj write(10,'(100f10.3)') (a(i,j),i=1,nx) ループi＋書き出し enddo ループjの最後尾 close(10) ファイルを閉じる 100f10.3というのは小数点3桁の実数で10カラムで表現したものが100個並ぶという意味です。これと同じことをやるＣ言語プログラムを教えて頂きたいのですが。私の手元にある本にはやり方が載っていません。 Ｃ言語にはfortranのような数字のカラムを指定するようなフォーマットの調整などできるのでしょうか。よろしくお願いします。
- ベストアンサー
- C・C++・C#
- Delphiで配列をファイルに出力する方法
Delphi(Pascal)について質問します。 fortranでできるファイルへの配列の出力をDelphiでどのようにプログラムするか教えて頂きたいと思います。 ２次元配列a(i,j)の出力はfortranでは以下のようなプログラムになります。 open(10,.省略...) ファイルを指定して開く do j=1,ny ループj write(10,'(100f10.3)') (a(i,j),i=1,nx) ループi＋書き出し enddo ループjの最後尾 close(10) ファイルを閉じる 100f10.3というのは小数点3桁の実数で10カラムで表現したものが100個並ぶという意味です。これと同じことをやるDelphiプログラムを教えて頂きたいのですが。私の手元にある本にはやり方が載っていません。 Delphiにはfortranのような数字のカラムを指定するようなフォーマットの調整などできるのでしょうか。よろしくお願いします。 この質問は、Ｃ言語について以前質問したものですQNo.3590702。 Delphiではどうなるかと思って質問いたしました。
- ベストアンサー
- その他（プログラミング・開発）
- 配列のファイルへの出力について
fortranでできるファイルへの配列の出力をJAVAでどのようにプログラムするか教えて頂きたいと思います。 ２次元配列a(i,j)の出力はfortranでは以下のようなプログラムになります。 open(10,.省略...) ファイルを指定して開く do j=1,ny ループj write(10,'(100f10.3)') (a(i,j),i=1,nx) ループi＋書き出し enddo ループjの最後尾 close(10) ファイルを閉じる 100f10.3というのは小数点3桁の実数で10カラムで表現したものが100個並ぶという意味です。これと同じことをやるJAVAプログラムを教えて頂きたいのですが。私の手元にある本にはやり方が載っていません。 JAVAにはfortranのような数字のカラムを指定するようなフォーマットの調整などできるのでしょうか。よろしくお願いします。 この質問は、Ｃ言語について以前質問したものですQNo.3590702。 JAVAだったらどうなるだろうと思ってお尋ねしています。
- ベストアンサー
- Java
- fortranのopen文について。
fortranのopen文のファイル名を指定するするとき、doループで名前を変えたいのですが、どのようにやればよいでしょうか？ 具体的には、 do i=1,2 open(unit=10+i,file='file.dat',status='replace') とした時、unitと共にファイル名も'file1.dat'、'file2.dat'と変わるようにしたいのです。 よろしくお願いします。
- ベストアンサー
- その他（プログラミング・開発）
- Fortranの出力の改行について
Fortran超初心者です。 test1.csvのファイルには、x,yの変数がずっと続いています。 test2.datのファイルには、a,bの変数がずっと続いています。 この2つのファイルの変数を元に、d,eの値を求め、それをtest3.csvというファイルに出力したいのです。 test1.csvとtest2.datの計算はできていたのですが、test3.csvの出力は最後の計算結果のみしか出力されていません。 多分毎回出力はしているのですが、計算を繰り返すと上書きされ消えてしまうという仕組みになっているのだと思います。 どうやったら上書きされずに、csvファイルの次の行に次のデータを入力できますか？ 以下私が考えたFortran90のプログラムです。 open (10, file='test1.csv', status='old') do read (10, *, iostat=ios) x, y open (11, file='test2.dat', status='old') do read (11, *, iostat=jos) a, b d = x +a e = y + b if (jos .lt. 0) exit enddo open (12, file='test3.csv', status='replace') write (12, *) x, y, a, b, d, e close (12) close (11) if (ios .lt. 0) exit enddo close (10) 本当に始めたばかりで、いまいち意味の分かっていない部分もあるのですが、問題点を指摘してくれたら助かります。 わかりにくいので、具体的に少し書くと、 test1.csvには 1,2 9,3 6,4 とデータが続くとします。 test2.datには 80,50 10,20 90,60 とデータが続くとします。 test3.datには 1,2,80,50,81,52 1,2,10,20,11,22 1,2,90,60,91,62 9,3,80,50,89,53 9,3,10,20,19,23 9,3,90,20,99,23 6,4,80,60,86,64 6,4,10,20,16,24 6,4,90,20,96,24 と出力されるようにしたいのです。 実際のデータや変数名も違いますが、プログラムの構造は同じです。 よろしくおねがいします。
- ベストアンサー
- その他（プログラミング・開発）
- fortran77で複数のファイルの読み込み
fortran77で複数のファイルの読み込み 現在fortran77のプログラムを勉強しております。 ファイルが複数あり、すべてのファイルを読み込みたいのですが、ファイルの数がたくさんあるため、プログラムの行数が多くなってしまいます。 do ループで次々とファイルを開くプログラムを考えているのですが、思いつきません。 どなたか考え方でもいいので、教えてください。 ちなみに私が考えたプログラムは、 open(10,file='C:\FORTRAN\100.txt',status='old') open(11,file='C:\FORTRAN\121.txt',status='old') open(12,file='C:\FORTRAN\144.txt',status='old') open(13,file='C:\FORTRAN\169.txt',status='old') open(14,file='C:\FORTRAN\196.txt',status='old') open(15,file='C:\FORTRAN\225.txt',status='old') ・・・。 これを do ループで次々に開くことを考えると、 character*3 A(10) do 100 i=1,10 A=i*i open(i,file='C:\FORTRAN\A.txt',status='old') 100 continue ・・・ みたいな感じです。 ' 'の中の一部だけを変えたい場合のcharacter 文の使い方がいまいちよく分かりません。
- ベストアンサー
- その他（プログラミング・開発）
- 【fortran77】空行を含む数値データの読み込み
fortran77でプログラムを書いています。 いま以下のような空行を含むデータファイルを読み込んで、プログラム中で計算し、その結果を別のファイルに書き出すものを作りたいと考えています。 1.0 1.1 1.2 1.3 1.0 1.4 1.5 1.6 2.0 2.1 2.2 2.3 2.0 2.4 2.5 2.6 3.0 3.1 3.2 3.3 3.0 3.4 3.5 3.6 ＊数字はあくまでも例です。 例えば、1列目が2.0で始まる箇所のみ取り出したいのですが、どうもデータの読み込みのところでエラーが起こっているようです。 open(1,file="data.dat") do i = 1,8 read(1,*) (a(i,j),j=1,4) enddo 空行や空白の読み飛ばしを行う方法を自分なりに調べてみて、open文にblankを指定するなどの方法があることはわかったんですが、いまいち使いかたがわからず立ち止まってしまいました。 よろしくお願いします。
- ベストアンサー
- その他（プログラミング・開発）
- C,C++によるファイルからの並びの入出力
C,C++でファイルから並びの入出力をどのようにプログラミングするか教えて頂きたいのですが。100x100の２次元のデータ（エクセルのシートと同じような形式）のファイルがあるとします。Fortranではこのような風になります。 nx=100; ny=100 ! sはnx x ny２次元配列 open(10,file='xxx.dat') do j=ny,1,-1 read(10,*) (s(i,j),i=1,nx) enddo close(10) これと同じ動作をするc, c++のソースを教えて頂きたいのです。私の手元にあるC++の本はそのようなことを全く書いていません。私は仕事として大きな量のデータを扱うのでC++の解説本でクラスを使った簡易ゲームによる動作確認のようなものだとあまり参考にならないのですね。 c,c++は使用者の人口が多くて幅が広いので、自分の用途に対応した解説本がないのです。 よろしくお願いします。
- 締切済み
- C・C++・C#
- FORTRANのプログラミングについて
たびたび申し訳ありません。 またFORTRANに関しての質問です。 x y z 0 0 30 1 0 45 2 0 60 3 0 43 4 0 51 5 0 32 0 1 43 1 1 90 2 1 32 3 1 85 4 1 65 5 1 90 0 2 32 1 2 32 と続くファイルがあります。これをFORTRANをで書き換えて、 0 0 30 0 1 43 0 2 32 1 0 45 1 1 90 1 2 32 と続くデータにしたいのです。（これを以下目的のファイルという） 今のところ、次のようなプログラムを書き、特定のXに対しては、結果を吐き出すことに成功しています。 program dat real x1(100),h,y2(100),y1(100),z1(100) integer i,n,j,k,l,m,a(100) open(7,file='test.txt') open(9,file='af-test.dat') do i=1,100 read(7,*,end=200) x1(i),y1(i),z1(i) if(x1(i).eq.90)then write(9,*) x1(i),y1(i),z1(i) end if end do 200 close(7) close(9) end ここまではうまくいくのですが、これでは９０以外の場合は出力されません。（あたりまえですが） 特定のXに限らずに例えばXを０から１００まで吐き出されるような目的のファイル作るにはをどのようにしてプログラムを書けばいいかご教授ください。
- 締切済み
- その他（プログラミング・開発）
お礼
回答ありがとうございます。 試行錯誤の末 教えていただいたとおりに部分文字列による取り出しを 行いなんとか目的のプログラムを書くことが できました。 どうもありがとうございます。