| ²é¿´: 672 | »Ø¸´: 5 | |||
kuangehahaгæ (³õÈëÎÄ̳)
|
[ÇóÖú]
Çó½Ì£¬csvÎļþ¶Áȡʱ£¬intel visual fortan°Ñ»»Ðзûline feedʶ±ð³É¿Õ¸ñ£¿
|
|
ÎÒÐèÒª¶Áȡһ¸öÈí¼þÉú³ÉµÄcsvÎļþ£¬csvÎļþͨ¹ý¶ººÅ·Ö¸ôÁУ¬Í¨¹ý»»Ðзûline feed·Ö¸ôÐУ¬ÎÒ¶ÁÈ¡¸ÃÎļþ£¬Ò»´Î¶ÁÒ»¸ö×Ö·û´®²¢ÇҼǼ£¬¶ÁÈ¡µ½»»ÐзûʱȴÏÔʾ¶ÁÈ¡µÄÊǿոñ¡£¸ã²»Ã÷°×ÁË£¬Çó´óÉñÖ¸µã¡¡ ·¢×ÔСľ³æAndroid¿Í»§¶Ë |
» ²ÂÄãϲ»¶
311Çóµ÷¼Á
ÒѾÓÐ6È˻ظ´
289Çóµ÷¼Á
ÒѾÓÐ25È˻ظ´
329Çóµ÷¼Á
ÒѾÓÐ10È˻ظ´
²ÄÁÏ¿¼Ñе÷¼Á
ÒѾÓÐ9È˻ظ´
327Çóµ÷¼Á
ÒѾÓÐ7È˻ظ´
²ÄÁÏ¿ÆÑ§Ó빤³Ìµ÷¼Á
ÒѾÓÐ18È˻ظ´
337Çóµ÷¼Á
ÒѾÓÐ11È˻ظ´
301Çóµ÷¼Á
ÒѾÓÐ5È˻ظ´
275Çóµ÷¼Á
ÒѾÓÐ11È˻ظ´
292Çóµ÷¼Á
ÒѾÓÐ14È˻ظ´
kuangehaha
гæ (³õÈëÎÄ̳)
- Ó¦Öú: 0 (Ó×¶ùÔ°)
- ½ð±Ò: 56.7
- Ìû×Ó: 16
- ÔÚÏß: 6.9Сʱ
- ³æºÅ: 2926333
- ×¢²á: 2014-01-11
- רҵ: ¶àÏàÁ÷ÈÈÎïÀíѧ
|
ÒÔÏÂÊÇÎÊÌâ˵Ã÷µÄ´úÂë; program csvread implicit none integer :: i,j,k,error,n character*1, parameter :: line_feed=achar(10) character*1 :: s open(unit=10,file='d:\1.csv') do i=1,5 do j=1,5 n=5*(i-1)+j write(unit=10,fmt='(i2)',advance='no') n if(j/=5) then write(unit=10,fmt='(a1)',advance='no') ',' end if end do write(unit=10,fmt='(a1)',advance='no') line_feed end do close(10) open(unit=10,file='d:\1.csv',status='old') k=0 do while(.true.) read(unit=10,fmt='(a1)',advance='no',iostat=error) s write(*,*) iachar(s),s if(s==line_feed) then k=k+1 end if ! if(error/=0) then ! exit ! end if end do write(*,*) k close(10) stop end |
2Â¥2016-01-10 12:04:05
kuangehaha
гæ (³õÈëÎÄ̳)
- Ó¦Öú: 0 (Ó×¶ùÔ°)
- ½ð±Ò: 56.7
- Ìû×Ó: 16
- ÔÚÏß: 6.9Сʱ
- ³æºÅ: 2926333
- ×¢²á: 2014-01-11
- רҵ: ¶àÏàÁ÷ÈÈÎïÀíѧ
3Â¥2016-01-10 12:18:48
kuangehaha
гæ (³õÈëÎÄ̳)
- Ó¦Öú: 0 (Ó×¶ùÔ°)
- ½ð±Ò: 56.7
- Ìû×Ó: 16
- ÔÚÏß: 6.9Сʱ
- ³æºÅ: 2926333
- ×¢²á: 2014-01-11
- רҵ: ¶àÏàÁ÷ÈÈÎïÀíѧ
4Â¥2016-01-10 12:23:33
kuangehaha
гæ (³õÈëÎÄ̳)
- Ó¦Öú: 0 (Ó×¶ùÔ°)
- ½ð±Ò: 56.7
- Ìû×Ó: 16
- ÔÚÏß: 6.9Сʱ
- ³æºÅ: 2926333
- ×¢²á: 2014-01-11
- רҵ: ¶àÏàÁ÷ÈÈÎïÀíѧ
5Â¥2016-01-10 12:25:38
kuangehaha
гæ (³õÈëÎÄ̳)
- Ó¦Öú: 0 (Ó×¶ùÔ°)
- ½ð±Ò: 56.7
- Ìû×Ó: 16
- ÔÚÏß: 6.9Сʱ
- ³æºÅ: 2926333
- ×¢²á: 2014-01-11
- רҵ: ¶àÏàÁ÷ÈÈÎïÀíѧ
6Â¥2016-01-10 19:33:22














»Ø¸´´ËÂ¥