| ²é¿´: 670 | »Ø¸´: 5 | ||
| µ±Ç°Ö»ÏÔʾÂú×ãÖ¸¶¨Ìõ¼þµÄ»ØÌû£¬µã»÷ÕâÀï²é¿´±¾»°ÌâµÄËùÓлØÌû | ||
kuangehahaгæ (³õÈëÎÄ̳)
|
[ÇóÖú]
Çó½Ì£¬csvÎļþ¶Áȡʱ£¬intel visual fortan°Ñ»»Ðзûline feedʶ±ð³É¿Õ¸ñ£¿
|
|
|
ÎÒÐèÒª¶Áȡһ¸öÈí¼þÉú³ÉµÄcsvÎļþ£¬csvÎļþͨ¹ý¶ººÅ·Ö¸ôÁУ¬Í¨¹ý»»Ðзûline feed·Ö¸ôÐУ¬ÎÒ¶ÁÈ¡¸ÃÎļþ£¬Ò»´Î¶ÁÒ»¸ö×Ö·û´®²¢ÇҼǼ£¬¶ÁÈ¡µ½»»ÐзûʱȴÏÔʾ¶ÁÈ¡µÄÊǿոñ¡£¸ã²»Ã÷°×ÁË£¬Çó´óÉñÖ¸µã¡¡ ·¢×ÔСľ³æAndroid¿Í»§¶Ë |
» ²ÂÄãϲ»¶
¡¾Çóµ÷¼Á¡¿ÐÂÄÜÔ´²ÄÁϱ¾¿Æ£¬Ò»Ö¾Ô¸211£¬³õÊÔ321
ÒѾÓÐ3È˻ظ´
²ÄÁÏ¿¼Ñе÷¼Á
ÒѾÓÐ3È˻ظ´
²ÄÁϵ÷¼Á
ÒѾÓÐ12È˻ظ´
Ó¢Ò»ÊýÒ»408£¬×Ü·Ö284£¬¶þÕ½Õæ³ÏÇóµ÷¼Á
ÒѾÓÐ14È˻ظ´
085410 Ò»Ö¾Ô¸211 22408·ÖÊý359Çóµ÷¼Á
ÒѾÓÐ4È˻ظ´
271Çóµ÷¼Á
ÒѾÓÐ19È˻ظ´
385·Ö ÉúÎïѧ£¨071000£©Çóµ÷¼Á
ÒѾÓÐ3È˻ظ´
Ò»Ö¾Ô¸°²»Õ´óѧ¼ÆËã»ú¿ÆÑ§Óë¼¼Êõѧ˶£¬331·ÖÇóµ÷¼Á
ÒѾÓÐ3È˻ظ´
318Çóµ÷¼Á£¬¼ÆËã²ÄÁÏ·½Ïò
ÒѾÓÐ8È˻ظ´
291Çóµ÷¼Á
ÒѾÓÐ25È˻ظ´
kuangehaha
гæ (³õÈëÎÄ̳)
- Ó¦Öú: 0 (Ó×¶ùÔ°)
- ½ð±Ò: 56.7
- Ìû×Ó: 16
- ÔÚÏß: 6.9Сʱ
- ³æºÅ: 2926333
- ×¢²á: 2014-01-11
- רҵ: ¶àÏàÁ÷ÈÈÎïÀíѧ
6Â¥2016-01-10 19:33:22
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














»Ø¸´´ËÂ¥