Fortran檔案讀寫 查詢內容

program ex

implicit none
character(len=
40) a(3000),b(3000),c(3000
)  !a異常、b已開挖、c需標記
integer i,j,n1,n2,count   !n1是10號檔案行數,n2是11號檔案行數，count是計數器
open(unit=10,file="
10異常焊口編號列表.txt
")   !異常焊口編號列表
open(unit=11,file="
11以開挖焊口列表.txt
")     !以開挖焊口列表
open(unit=12,file="
12異常焊口中已開挖焊口編號.txt")
read(
10,*)n1   !讀取10號檔案
do i=
1,n1,1
read(
10,*) a(i)
enddo
read(
11,*)n2    !讀取11號檔案
do i=
1,n2,1
read(
11,*) b(i)
enddo
!開始比對（從異常到全部開挖去比對）
do i=
1,n1,1
do j=
1,n2,1
if ( trim(a(i))==trim(b(j)) ) then
write(*,*)a(i),
"以開挖
"write(
12,*)a(i)
exit
endif
enddo
enddo
write(*,*)
"按任意鍵結束
"read(*,*)
end program

Fortran寫入檔案

write 100,2x,i5.3 chi write 100,2x,f25.15 delta close 100 status new 原來不存在 old 原來存在 replace 若存在，則替換原檔案，若不存在，建立新檔案 scratch 開啟暫存檔，不需要名字，file可省略。暫存檔會在程式結...

Matlab讀寫 txt檔案內容

一 讀取.txt檔案 713 439 334 16339 1 12.bmp 709 473 336 15042 2 2.bmp 666 462 333 14951 3 20.bmp 703 472 333 15024 4 22.bmp 696 487 334 14994 5 24.bmp 656 4...

R語言讀寫HDFS檔案內容

參考的github的 rhadoopclient原始碼 在r語言裡面定義乙個function函式，函式比較簡單，就是利用hdfs的cat命令進行讀取臨時檔案，然後再載入臨時檔案，最後刪除臨時檔案，啟動read.svs 方法根據需求自行修改。qtread.hdfs function hdfs.path...