Programming 板


※ 引述《[email protected]》之铭言: > ※ 引述《[email protected] (㊣金大支大寿,六六大支!)》之铭言: > : 1)先把改变前的部份抄进去 > : 2)写入改变的部份 > : 3)再把改变之後的部份抄进去 > : FORTRAN的随机档使用好像是没有标准,你可以找找看你用的compiler有没有支援 > : 但是一般而言,上面那样还比较直接。 > :   > 恩恩 感谢 > 我是用intel fortran compiler > 我也有在想说是否要先把档案後面的资料读入一个array > 然後等要取代资料的部分写入後 > 再把贮存在array里的资料丢回去 > 不过我想说这种修改档案的功能感觉应该很重要呀 > Fortran的write功能怎会没有选项支援@@ > 不过搜寻半天又没查到相关功能Orz > (还是电脑资料的贮存特性只能如此作我不了解!) 因为一般而言open开档案都是开成「循序档」 对FORTRAN最习惯的用途(计算)而言 出结果只需要出一次,下次再出又是别的档案,很自然 如果是每次要改的你就要改用「随机档」 刚才试了一下,FORTRAN其实是很轻松就支援随机档了 关键字是direct access file 所谓随机档在写入的时候指定记录编号,就可以写入档案中任意位置 每一笔记录必须要等长(当然!否则怎麽知道第几笔记录放在哪里) 有多长则是在open的时候指定,例如这样 open (unit=1, name="rec.lst", access="direct", recl=20, C form="formatted") 而读写则是 read (unit=1, rec=i, fmt="(I9,X,I10)") m, n write(unit=1, rec=i, fmt="(I9,X,I10)") m, 3**m 但是这用起来也并不是多麽美妙 每一笔记录要等长,第一个问题就是每笔後面不会自动换行,这你用了就知道了 因为这种档案格式就是存资料用,不是打算给人看的 第二点,如果是一大堆固定格式的资料,例如对应不同时间的数据 你找到其中某一笔,然後改写整笔,这还算简单 如果是一篇文章,要改写其中一两段,甚至是一两句 那我看你开个阵列来存,在阵列里面改好,再开个新档写回去,删掉旧档 这样还比较简单 或者就像我讲的,同时开两个档案,一读一写, 分出新旧部份,没有修改的部份直接抄,到了有改的部份再写进去 当然可以用一些比较复杂的方法 比如说,设recl=1 如果你有兴趣可以试试看,我是没有试过…   -- [法外科学暨工程顾问公司] :: DAICON III/IV 开幕动画 (1981/83) - (12/9)  ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ -_ http://www.wretch.cc/blog/journeyman/ _- -- ┌─────KKCITY─────┐ NOKIA 3G手机上网搭配中华电信门号 bbs.kkcity.com.tw http://www.kkbox.com.tw └──From:61.224.248.183 ──┘ 唱片公司授权百万歌曲 $99/月 随身聆听 --
1F:推 sunseeker:OK了 我把後面资料记下来之後再写回去~ 210.203.49.94 03/12 19:50







like.gif 您可能会有兴趣的文章
icon.png[问题/行为] 猫晚上进房间会不会有憋尿问题
icon.pngRe: [闲聊] 选了错误的女孩成为魔法少女 XDDDDDDDDDD
icon.png[正妹] 瑞典 一张
icon.png[心得] EMS高领长版毛衣.墨小楼MC1002
icon.png[分享] 丹龙隔热纸GE55+33+22
icon.png[问题] 清洗洗衣机
icon.png[寻物] 窗台下的空间
icon.png[闲聊] 双极の女神1 木魔爵
icon.png[售车] 新竹 1997 march 1297cc 白色 四门
icon.png[讨论] 能从照片感受到摄影者心情吗
icon.png[狂贺] 贺贺贺贺 贺!岛村卯月!总选举NO.1
icon.png[难过] 羡慕白皮肤的女生
icon.png阅读文章
icon.png[黑特]
icon.png[问题] SBK S1安装於安全帽位置
icon.png[分享] 旧woo100绝版开箱!!
icon.pngRe: [无言] 关於小包卫生纸
icon.png[开箱] E5-2683V3 RX480Strix 快睿C1 简单测试
icon.png[心得] 苍の海贼龙 地狱 执行者16PT
icon.png[售车] 1999年Virage iO 1.8EXi
icon.png[心得] 挑战33 LV10 狮子座pt solo
icon.png[闲聊] 手把手教你不被桶之新手主购教学
icon.png[分享] Civic Type R 量产版官方照无预警流出
icon.png[售车] Golf 4 2.0 银色 自排
icon.png[出售] Graco提篮汽座(有底座)2000元诚可议
icon.png[问题] 请问补牙材质掉了还能再补吗?(台中半年内
icon.png[问题] 44th 单曲 生写竟然都给重复的啊啊!
icon.png[心得] 华南红卡/icash 核卡
icon.png[问题] 拔牙矫正这样正常吗
icon.png[赠送] 老莫高业 初业 102年版
icon.png[情报] 三大行动支付 本季掀战火
icon.png[宝宝] 博客来Amos水蜡笔5/1特价五折
icon.pngRe: [心得] 新鲜人一些面试分享
icon.png[心得] 苍の海贼龙 地狱 麒麟25PT
icon.pngRe: [闲聊] (君の名は。雷慎入) 君名二创漫画翻译
icon.pngRe: [闲聊] OGN中场影片:失踪人口局 (英文字幕)
icon.png[问题] 台湾大哥大4G讯号差
icon.png[出售] [全国]全新千寻侘草LED灯, 水草
伺服器连线错误,造成您的不便还请多多包涵!
「赞助商连结」






like.gif 您可能会有兴趣的文章
icon.png[问题/行为] 猫晚上进房间会不会有憋尿问题
icon.pngRe: [闲聊] 选了错误的女孩成为魔法少女 XDDDDDDDDDD
icon.png[正妹] 瑞典 一张
icon.png[心得] EMS高领长版毛衣.墨小楼MC1002
icon.png[分享] 丹龙隔热纸GE55+33+22
icon.png[问题] 清洗洗衣机
icon.png[寻物] 窗台下的空间
icon.png[闲聊] 双极の女神1 木魔爵
icon.png[售车] 新竹 1997 march 1297cc 白色 四门
icon.png[讨论] 能从照片感受到摄影者心情吗
icon.png[狂贺] 贺贺贺贺 贺!岛村卯月!总选举NO.1
icon.png[难过] 羡慕白皮肤的女生
icon.png阅读文章
icon.png[黑特]
icon.png[问题] SBK S1安装於安全帽位置
icon.png[分享] 旧woo100绝版开箱!!
icon.pngRe: [无言] 关於小包卫生纸
icon.png[开箱] E5-2683V3 RX480Strix 快睿C1 简单测试
icon.png[心得] 苍の海贼龙 地狱 执行者16PT
icon.png[售车] 1999年Virage iO 1.8EXi
icon.png[心得] 挑战33 LV10 狮子座pt solo
icon.png[闲聊] 手把手教你不被桶之新手主购教学
icon.png[分享] Civic Type R 量产版官方照无预警流出
icon.png[售车] Golf 4 2.0 银色 自排
icon.png[出售] Graco提篮汽座(有底座)2000元诚可议
icon.png[问题] 请问补牙材质掉了还能再补吗?(台中半年内
icon.png[问题] 44th 单曲 生写竟然都给重复的啊啊!
icon.png[心得] 华南红卡/icash 核卡
icon.png[问题] 拔牙矫正这样正常吗
icon.png[赠送] 老莫高业 初业 102年版
icon.png[情报] 三大行动支付 本季掀战火
icon.png[宝宝] 博客来Amos水蜡笔5/1特价五折
icon.pngRe: [心得] 新鲜人一些面试分享
icon.png[心得] 苍の海贼龙 地狱 麒麟25PT
icon.pngRe: [闲聊] (君の名は。雷慎入) 君名二创漫画翻译
icon.pngRe: [闲聊] OGN中场影片:失踪人口局 (英文字幕)
icon.png[问题] 台湾大哥大4G讯号差
icon.png[出售] [全国]全新千寻侘草LED灯, 水草

请输入看板名称,例如:Tech_Job站内搜寻

TOP