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