代码搜索：CLOSE
找到约 10,000 项符合「CLOSE」的源代码
代码结果 10,000
www.eeworm.com/read/199262/7874482
java moreserver.java
// 文件名：moreServer.java
import java.io.*;
import java.net.*;
import java.util.*;
/**
* Title: 多线程服务器
* Description: 本实例使用多线程实现多服务功能。
* Copyright: Copyright (c) 2003
*
www.eeworm.com/read/199261/7874936
java randfile.java
import java.io.*;
/**
* Title: 读取随机文件
* Description: 演示使用RandomAccessFile类读取文件。
* Copyright: Copyright (c) 2003
* Filename: RandFile.java
* @author 杜江
* @versi
www.eeworm.com/read/399279/7875682
f90 e_7_2_5.f90
INTEGER bells(4)
CHARACTER(4) wys(3),cvar
DATA bells/4*7/,cvar/' is'/,wys/'What',' you',' see'/
OPEN(3,FILE='BSEQ',FORM='BINARY')
WRITE(3) wys,cvar
WRITE(3) 'what', ' you get!'
WRITE(3) bells
C
www.eeworm.com/read/399279/7875691
f90 e_4_2_2.f90
OPEN(3,FILE='FDIR',FORM='FORMATTED',ACCESS='DIRECT',RECL=10)
WRITE(3,'(A10)',REC=1) 'RECORD ONE'
WRITE(3,'(I5)',REC=3) 30303
CLOSE(3)
END
www.eeworm.com/read/399279/7875742
f90 e_7_2_6.f90
OPEN(3,FILE='BDIR',RECL=10,FORM='BINARY',ACCESS='DIRECT')
WRITE(3,REC=1) 'abcdefghijklmno'
WRITE(3) 4,5
WRITE(3,REC=4) 'pq'
CLOSE(3)
END
www.eeworm.com/read/399279/7875751
f90 e_4_2_3.f90
CHARACTER xyz(3)
INTEGER(4) idata(35)
DATA idata/35*-1/,xyz/'x','y','z'/
OPEN(3,FILE='USEQ',FORM='UNFORMATTED')
WRITE(3) idata
WRITE(3) xyz
CLOSE(3)
END
www.eeworm.com/read/399279/7875801
f90 e_4_2_6.f90
OPEN(3,FILE='BDIR',RECL=10,FORM='BINARY',ACCESS='DIRECT')
WRITE(3,REC=1) 'abcdefghijklmno'
WRITE(3,REC=3) 4.,5
WRITE(3,REC=4) 'pq'
CLOSE(3)
END
www.eeworm.com/read/399279/7875818
f90 e_7_2_1.f90
OPEN(3,FILE='FSEQ')
! FSEQ is a formatted sequential fife by default.
WRITE(3,'(A,I3)') 'RECORD',1
WRITE(3, '()')
WRITE(3, '(A11) ') 'The 3rd one'
CLOSE(3)
END
www.eeworm.com/read/399279/7875820
f90 e_4_2_5.f90
INTEGER bells(4) !07是响铃字符
CHARACTER(4) wys(3),cvar
DATA bells/4*7/,cvar/' is'/,wys/'What',' you',' see'/
OPEN(3,FILE='BSEQ',FORM='BINARY')
WRITE(3) wys,cvar
WRITE(3) 'what', ' you get!'
WRITE(3)
www.eeworm.com/read/399279/7875846
f90 e_312_02.f90
CHARACTER*24 filename
PAUSE
PAUSE 'Enter DIR to see available files or press RETURN if you already know filename.'
READ(*,'(A\)') filename
OPEN(1, FILE=filename)
CLOSE(1)
END