fortran读取斜杠等特殊字符

冬日情愫+

用楼主的方法读我的文件，貌似出现了问题。我的数据文件里面变量使用的字节不一样。捯饬了一个下午也没有能够成功，所以请大家帮忙看看，如何读取这种的一个记录里面有好几个/// 还会出现////或者///// 的情况。下面我附上一部分的数据。
数据的第三列表示的是数据的类型（k说明数据有30列，p说明数据有31列，m说明数据有34列，n说明数据有40列。）

1. 9999 1 k 209 012 /// /// /// /// //// /// /// /// /// //// 00 0000 0281 0288 //// 0281 //// /// /// //// ///// ///// //// ///// ////
   
2. 9999 2 k /// /// /// /// /// /// //// /// /// /// /// //// 00 0000 0275 0276 //// 0265 //// /// /// //// ///// ///// //// ///// ////
   
3. 9999 3 k /// /// /// /// /// /// //// /// /// /// /// //// 00 0000 0266 0267 //// 0260 //// /// /// //// ///// ///// //// ///// ////
   
4. 9999 4 k 204 007 182 008 182 010 1622 218 007 176 022 1622 00 0000 0291 0294 1637 0291 1700 057 051 1614 09927 09934 1604 09927 1700
   
5. 9999 5 k 326 030 320 027 328 028 1647 319 036 299 055 1640 00 0000 0264 0281 1601 0264 1700 048 043 1601 09213 09216 1601 09212 1654
   
6. 9999 6 k 173 019 186 023 194 025 1657 173 014 207 042 1647 00 0000 0240 0242 1629 0239 1636 /// /// //// ///// ///// //// ///// ////
   
7. 9999 7 k 255 017 253 018 249 022 1652 273 015 230 032 1639 00 0000 0265 0268 1635 0259 1603 /// /// //// ///// ///// //// ///// ////
   
8. 9999 8 k 186 000 183 002 160 006 1617 156 001 147 019 1610 00 0000 0287 0293 1633 0287 1600 056 049 1618 09917 09924 1600 09917 1700
   
9. 9999 9 p 274 009 264 006 265 006 1659 306 007 348 017 1646 00 0000 0278 0289 1618 0278 1600 069 062 1615 09906 09911 1600 09906 1700  0314
   
10. 9999 10 m 238 006 205 011 198 012 1614 256 006 220 035 1654 00 0000 0300 0304 1648 0300 1659 049 044 1602 09920 09927 1600 09920 1700 0312 0307 0296 0300
    
11. 9999 11 m 236 004 209 014 199 015 1600 259 009 222 035 1644 00 0000 //// 0304 1648 0300 1659 049 044 1602 09920 09927 1600 09920 1700 0312 0307 0296 0300
    
12. 9999 12 k 080 001 071 001 008 003 1613 /// 000 045 010 1650 00 0000 0284 0287 1620 0284 1700 064 059 1615 09912 09918 1600 09911 1659
    
13. 9999 13 n 079 035 081 037 077 041 1634 080 035 075 057 1646 00 0000 0276 0276 1700 0274 1629 063 063 1700 09931 09944 1601 09931 1700 0285 0303 0277 0272 0263 0257 0220 0192 0146 0111
    
14. 9999 14 n 121 014 145 019 150 025 1653 114 016 170 038 1650 00 0000 0297 0299 1632 0296 1602 053 049 1621 09918 09925 1602 09918 1700 //// //// //// //// //// //// //// //// //// ////
    
15. 9999 15 n 191 019 192 022 176 028 1648 180 011 188 047 1657 00 0000 0268 0275 1601 0268 1700 051 047 1604 09516 09522 1601 09515 1648 0265 0287 0299 0293 0282 0272 0216 //// //// ////
    
16. 9999 16 k 105 015 103 016 098 019 1653 092 015 114 042 1649 00 0000 0279 0280 1653 0276 1620 /// /// //// ///// ///// //// ///// ////
    
17. 9999 17 k 148 016 148 015 163 016 1607 140 015 169 022 1606 00 0000 0295 0296 1643 0293 1602 049 047 1630 09914 09921 1601 09914 1700
    
18. 9999 18 k 264 025 254 024 254 032 1627 258 021 242 045 1629 00 0000 //// //// //// //// //// 055 050 1601 08857 08860 1601 08857 1648
    
19. 9999 19 k /// /// /// /// /// /// //// /// /// /// /// //// 00 0000 0274 0276 //// 0260 //// /// /// //// ///// ///// //// ///// ////
    
20. 9999 20 k 048 014 058 014 106 021 1604 037 019 105 037 1603 00 0000 0249 0251 1604 0249 1656 /// /// //// ///// ///// //// ///// ////
    
21. 
    

复制代码

yulong0631

方法不错，谢谢

Acdy

嗯，学习了

godenflame135

很好，很有创意！

xu850202

冬日情愫+ 发表于 2012-3-12 14:17

                               
登录/注册后可看大图

用楼主的方法读我的文件，貌似出现了问题。我的数据文件里面变量使用的字节不一样。捯饬了一个下午也没有能 ...

我在处理这些文件的时候，主要是先将正行读取成字符串，然后在字符串里查找“/”，替换成数字。我给的程序也只是一个方法。
比方说 9999 16 k 105 015 103 016 098 019 1653 092 015 114 042 1649 00 0000 0279 0280 1653 0276 1620 /// /// //// ///// ///// //// ///// ////
read读入到一个变量入a，
do i=1,len(a)
if a(i:i)=="/" a(i:i)=""
end do
主要的方法就是将这些特殊的字符替换掉

xu850202

錵唂哚 发表于 2012-2-21 10:24

                               
登录/注册后可看大图

还有，do while(设备号) 的判断是什么意思？index函数返回的是子串首次出现的位置，那如果一行记录里面有好 ...

方法是：先读成字符串，再在对字符串操作，替换掉特殊的字符

humes

学习一下，谢谢！

xuwei

谢谢你的东东，很好用呢

木兆子

感谢楼主哈。好东西哈哈哈。。。

逸儿~~

很受益~~学习学习~~~