| 查看: 2466 | 回复: 23 | |||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | |||
[交流]
【求助】如何实现数字紧贴字母输入
|
|||
|
H 1 H 2 H 3 H 4 H 5 H 6 H 7 H 8 H 9 H 10 H 11 H 12 请教前辈，如何让后面的数字紧贴着字母输入呢后面还有几百行 |
回复此楼» 猜你喜欢
今天系统多次维护，明天很可能放榜！
已经有5人回复
-
欢迎发来filecode的Mz6后的代码验证其规律
已经有74人回复
-
岩土工程学报什么时候才能终审完呐
已经有4人回复
-
时间戳又变了8-15
已经有25人回复
-
2027广东省杰青
已经有6人回复
-
快农历七夕节了，轻松一下，男人悄悄话，女施主请不要进来。
已经有3人回复
-
哪位老哥知道今年的国自然具体哪一天放榜？
已经有9人回复
-
咱们一起用铁证分析2026国家社科基金中标与否
已经有26人回复
-
我的国基提前知道中了，可是同事的操作让我实在接受不了，怎么会有这样的人
已经有16人回复
-
有时候，自然基金真的不能太认真 （我的申报经验）
已经有12人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 【求助】光栅重构DLP(Discrete Layer Peeling)模型
已经有2人回复
- 【资源】催化剂制备中浸渍（等体积浸渍）不断改进
已经有151人回复
- 【求助】帮忙看一段程序
已经有9人回复
- 【讨论】80后”创业者何以前仆后继
已经有0人回复
- 【分享】巨牛总结：搞有机必须学会的合成检索方法
已经有169人回复
» 抢金币啦！回帖就可以得到:
-
2026年财务管理、经济与信息技术国际会议 (FMEIT 2026)
+1/604
-
今天看到省基金挂了，希望国基面上能中吧
+5/425
-
祝福！基金中中中！！！！
+1/396
-
期待你的到来
+1/372
-
[求助]请问水下焊接技术有啥进步？
+1/191
-
中国科学院空天院精密干涉测量团队招聘光学/算法/机械方向博士后/特别研究助理
+1/80
-
中国科学院空天院精密干涉测量团队招聘光学/算法/机械方向博士后/特别研究助理/工程师
+1/78
-
加拿大/英属哥伦比亚大学曹彦凯课题组招收全奖博士/博后 [机器人/控制方向]
+1/31
-
清华大学深圳国际研究生院招聘-博士后（长期有效）
+1/29
-
祈福！
+1/25
-
华南理工大学招2027年生物材料、药物递送申请考核制博士生
+1/25
-
物理学报录用，散币感谢合作者和审稿人
+2/24
-
27推免-广州医科大学封红亮教授招收精神医学应用心理学推免生
+1/5
-
UTS 招收2027年入学博士生
+1/3
-
中国科学院生物物理研究所田勇课题组招聘联合培养生
+1/3
-
华南理工，博士后
+1/3
-
海南大学化学院-科研助理招聘 （可读博，可与华中科技大学，天津大学联培）+博后招聘
+1/2
-
中山大学国家级青年人才课题组招收推免硕士2名（2027年入学）
+2/2
-
空间多组学解码实体瘤 CAR-T 耐药：GPC3 靶向装甲型 CAR-T 治疗
+1/2
-
国家级人才团队诚聘生物信息相关专业的科研助理
+1/1
|
这是帖子上的内容 说明：我不知道你的文件里面的具体格式，所以只能用格式语句100来表示了，具体自己弄吧。我下面这个程序是把文件里面的所有数据都读取出来，然后用了一个do循环，将你要的第三列数据赋值给了b数组，不知道是不是你想要的。implicit real*8 (a-h,o-z) dimension a(3,7),b(3,1) open (1,file='shuju.dat',form='formatted',status='unknown') do i=1,3 read (1,100) (a(i,j),j=1,7) end do close (1) do i=1,3 b(i,1)=a(i,3) end do end 复制代码 为的是读取这组数据中的第三列 例如这样一个文件： 1 2 3 4 5 u 1 2 3 6 5 x 55 2 2 3 6 9 5 4 5 如果只想读入其中第三列，也就是第三个空格(backspace)处的数字，如何实现呢？ 谢谢！！！ 对于fortran对文本数据操作没有看懂，觉得文本操作时read write里面很多选项，但是貌似作用不大，是这样么 [ Last edited by xk6891 on 2011-1-13 at 11:30 ] |
14楼2011-01-13 11:28:53
★ ★ ★ ★
小木虫(金币+0.5):给个红包，谢谢回帖交流
xk6891(金币+5):谢谢前辈，问题解决了。用了第二种方法 2011-01-12 10:32:06
余泽成(金币+3):谢谢参与应助！ 2011-01-13 19:47:34
小木虫(金币+0.5):给个红包，谢谢回帖交流
xk6891(金币+5):谢谢前辈，问题解决了。用了第二种方法 2011-01-12 10:32:06
余泽成(金币+3):谢谢参与应助！ 2011-01-13 19:47:34
|
program align_left_output_1 do i=1,200 L=int(log10(i*1.0))+1 write(*,100) i enddo 100 format('H'I end program program align_left_output_2 character*8 tmpchar do i=1,200 write(tmpchar,'(I8)') i write(*,*) 'H'//adjustl(tmpchar) enddo end program 第一种方法形式简单，容易理解。但变宽度输出依赖于编译器，可移植性不好；而且用到了对数运算，在数据量很大时效率较低。 第二种方法借用了临时字符串做内部文件，效率可能更高一些。 |
2楼2011-01-12 09:17:49
3楼2011-01-12 10:37:14
4楼2011-01-12 13:49:20
