質問編集履歴
2
前回問題を丸投げしたような形になってしまったので、具体的な内容に変更しました。
test
CHANGED
|
@@ -1 +1 @@
|
|
|
1
|
-
文字
|
|
1
|
+
文字列の読み込みを順々に繰返し、それぞれの行に対応したプログラミングを作りたい。
|
test
CHANGED
|
@@ -1,17 +1,53 @@
|
|
|
1
|
-
|
|
1
|
+
"C:\theme\200104.073253_ch01-03.ew"
|
|
2
2
|
|
|
3
|
-
|
|
3
|
+
"C:\theme\200104.073253_ch01-03.ns"
|
|
4
4
|
|
|
5
|
-
|
|
5
|
+
"C:\theme\200104.073253_ch01-03.ud"
|
|
6
6
|
|
|
7
|
-
|
|
7
|
+
"C:\theme\200104.073253_ch04-06.ew"
|
|
8
8
|
|
|
9
|
-
c
|
|
9
|
+
"C:\theme\200104.073253_ch04-06.ns"
|
|
10
10
|
|
|
11
|
-
|
|
11
|
+
:
|
|
12
12
|
|
|
13
|
+
と続くファイルがあり、上記のファイルを読み取り、これを以下のように直すプログラミングが作りたいです。
|
|
14
|
+
|
|
15
|
+
test.exe <C:\theme\200104.073253_ch01-03.ew> 200104.073253_ch01-03.ewa
|
|
16
|
+
|
|
17
|
+
test.exe <C:\theme\200104.073253_ch01-03.ns> 200104.073253_ch01-03.nsa
|
|
18
|
+
|
|
19
|
+
test.exe <C:\theme\200104.073253_ch01-03.ud> 200104.073253_ch01-03.uda
|
|
20
|
+
|
|
21
|
+
test.exe <C:\theme\200104.073253_ch04-06.ew> 200104.073253_ch01-03.ewa
|
|
22
|
+
|
|
23
|
+
test.exe <C:\theme\200104.073253_ch04-06.ns> 200104.073253_ch01-03.nsa
|
|
24
|
+
|
|
25
|
+
:
|
|
26
|
+
|
|
27
|
+
c23456
|
|
28
|
+
|
|
29
|
+
implicit none
|
|
30
|
+
|
|
31
|
+
integer,parameter ::len = 33
|
|
32
|
+
|
|
33
|
+
character(len) n
|
|
34
|
+
|
|
35
|
+
character a*16,b*3,c
|
|
36
|
+
|
|
37
|
+
a='test.exe < '
|
|
38
|
+
|
|
39
|
+
b=' > '
|
|
40
|
+
|
|
41
|
+
c='a'
|
|
42
|
+
|
|
13
|
-
|
|
43
|
+
read (*,'(1x,a33)') n
|
|
44
|
+
|
|
45
|
+
write(*,'(a)')a//n//b//n//c
|
|
46
|
+
|
|
47
|
+
end
|
|
14
48
|
|
|
15
49
|
|
|
16
50
|
|
|
17
|
-
|
|
51
|
+
現在、上記のプログラミングで1行分だけ書き出すことはできたのですが、最終目標としてはこれをそれぞれの行に対応して繰返し書き出したいです。
|
|
52
|
+
|
|
53
|
+
自分の方針としてはnをx(i)=1,y(ここでのyはファイルの最後の行数)に変え、順々に読み取っていこうと考えていましたがエラーが出てしまいました。この方針では不可能でしょうか。また、不可能な場合、どのような方針で進めていけばいいか教えていただきたいです。
|
1
test
CHANGED
|
File without changes
|
test
CHANGED
|
File without changes
|