| 查看: 2060 | 回复: 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 请教前辈，如何让后面的数字紧贴着字母输入呢后面还有几百行 |
回复此楼» 猜你喜欢
336求调剂
已经有5人回复
-
277材料科学与工程080500求调剂
已经有6人回复
-
333求调剂
已经有4人回复
-
286求调剂
已经有8人回复
-
298求调剂
已经有4人回复
-
306求0703调剂一志愿华中师范
已经有5人回复
-
299求调剂
已经有7人回复
-
26考研一志愿中国石油大学(华东)305分求调剂
已经有6人回复
-
初试 317
已经有5人回复
-
296求调剂
已经有3人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 【求助】光栅重构DLP(Discrete Layer Peeling)模型
已经有2人回复
- 【资源】催化剂制备中浸渍（等体积浸渍）不断改进
已经有151人回复
- 【求助】帮忙看一段程序
已经有9人回复
- 【讨论】80后”创业者何以前仆后继
已经有0人回复
- 【分享】巨牛总结：搞有机必须学会的合成检索方法
已经有169人回复
» 抢金币啦！回帖就可以得到:
-
持续创业者，A8离异男征婚，事业遇到瓶颈，寻找创业生活伴侣
+1/461
-
农业信息工程技术（专硕）招收调剂 沈阳农业大学
+1/182
-
香港中文大学（深圳）靳羽华教授交叉实验室高薪诚聘博士后（光致变色方向）
+2/176
-
山东征女友，坐标济南
+1/163
-
深圳技术大学集成电路与光电芯片学院郝俊杰课题组诚聘博士后、研究助理、访问学生
+2/114
-
Alicat 层流压差质量流量控制器在新型硅碳负极流化床的应用- 艾里卡特（Alicat）
+3/73
-
青岛高校 研究生招生
+1/47
-
河南大学-天然药物创新与转化重点实验室有机化学/药物化学博士招生
+5/45
-
研究生 调剂 看过来- 机械、控制工程、力学类（流体力学、一般力学等） 211 双一流
+1/28
-
巴黎西岱大学（Université Paris Cité）Fayna MAMMERI 导师寻找CSC公派博士生
+1/24
-
南京医科大学-膜蛋白结构与功能课题组-招收2026级博士研究生
+1/9
-
中国民航飞行学院先进连接团队招收航空宇航、航空机械专业硕士研究生（学硕专硕均可）
+1/9
-
211/双一流石河子大学化学化工学院--电催化，CO2捕集和转化
+1/9
-
福州大学国家级人才汤育欣教授课题组2026年招收”申请考核制“储能电池方向博士研究生
+1/6
-
中国农科院兰州牧药所兽药创新与耐药性科研团队聘科研助理，急急急！
+1/6
-
调剂 22408 340分
+1/6
-
国家脐橙工程技术研究中心 招收农林相关专业 复试调剂生
+1/5
-
南京林业大学化学工程学院柏惺峰课题组招收2026年申请考核制博士2名
+1/4
-
双一流天津工业大学电信学院李鸿强教授招收2026年申请审核制博士3名
+1/3
-
2026考研的同学，分数不够？想调剂上岸的同学，来看
+1/2
★ ★ ★ ★
小木虫(金币+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
5楼2011-01-12 14:13:53
6楼2011-01-12 20:44:29
7楼2011-01-13 08:49:44
8楼2011-01-13 09:44:55
9楼2011-01-13 10:13:10
|
请教个问题，用fortran读取文件编译通过，但是读取的时候出现这个错误“Fortran runtime error: End of file”，贴上说在文本的最后敲enter，但是没解决（昨天成功读取了，今天又不行了） 参考的是这个帖子http://muchong.com/bbs/viewthread.php?tid=2760897里面的code |
10楼2011-01-13 10:19:56
11楼2011-01-13 10:25:59
|
还是不明白，您能否再细致明示一下，是read（……）括号当中的什么选项。  这个帖子http://forum.simwe.com/viewthread.php?tid=852737有时候成功，我把里面第一个程序中read（100）改成了*，昨天成功了几次，但是修改成要读我的数据数目时，就失败了  ，没看懂[ Last edited by xk6891 on 2011-1-13 at 11:15 ] |
12楼2011-01-13 11:09:00
13楼2011-01-13 11:21:43
|
这是帖子上的内容 说明：我不知道你的文件里面的具体格式，所以只能用格式语句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
15楼2011-01-13 11:44:30
16楼2011-01-13 13:27:10
17楼2011-01-13 13:43:30
18楼2011-01-13 13:50:11
19楼2011-01-13 13:53:32
想看一看 20楼2011-01-13 14:14:43
21楼2011-01-13 19:59:40
★ ★
jjdg(金币+2): 感谢参与 2011-06-17 22:09:03
jjdg(金币+2): 感谢参与 2011-06-17 22:09:03
|
好的，找来看一看 fortran对于格式的要求很严格，刚开始读取数据的时候出现的是 At line 10 of file tiH.f90 (unit = 17, file = 'wa_xyz.dat') Fortran runtime error: End of file 这个错误修改之后，对于读取和写入数据采取不同的格式之后，看出了问题所在，下面是 [code:] program main implicit none integer i,j character B real A dimension B(768),A(768,3) open(17,file='wa_xyz',status='old') do i=1,768 read (17,*) B(i),A(i,1),A(i,2),A(i,3) end do close(17) open(18,file='nem_wa_xyz',status='unknown') do i=1,768 if(mod(i,3)/=0)then write(18,*)(B(i),A(i,j),j=1,3) end if end do close(18) stop end program [code:] 读取这样一段数据： O 3.668000 10.082000 15.904000 H 3.224000 10.451000 15.101000 H 3.092000 10.379000 16.627001 O 5.186000 16.695999 12.072000 H 6.083000 16.979000 11.816000 H 5.337000 15.832000 12.490000 O 3.786000 16.318001 1.310000 H 3.781000 15.388000 1.196000 H 4.528000 16.580000 0.781000 O 6.205000 6.991000 18.441999 H 6.782000 7.347000 19.152000 H 5.309000 7.062000 18.799999 O 16.125999 14.701000 4.577000 H 16.070000 14.272000 3.726000 ……………………………………………………………………………… 得到的如下 O 3.6680000 O 10.082000 O 15.904000 H 3.2240000 H 10.451000 H 15.101000 O 5.1859999 O 16.695999 O 12.072000 H 6.0830002 H 16.979000 H 11.816000 O 3.7860000 O 16.318001 O 1.3099999 H 3.7809999 H 15.388000 H 1.1960000 O 6.2049999 O 6.9910002 O 18.441999 H 6.7820001 H 7.3470001 H 19.152000 O 16.125999 O 14.701000 O 4.5770001 H 16.070000 H 14.272000 H 3.7260001 O 2.7500000 O 8.8439999 O 9.6289997 H 2.1099999 H 8.2900000 H 9.9980001 O 10.674000 O 8.9090004 O 4.9860001 H 10.998000 H 8.8710003 H 5.9320002 O 2.00000009E-03 O 5.6669998 O 14.591000 H 0.48300001 H 5.9899998 H 13.830000 ……………………………………………………………………………… 这就可以明显的看出问题是出在哪里了，本来读取数据的时候采用的是和写入一样的方式(B(i),A(i,j),j=1,3),一直出现上面的错误，记录一下，以备日后学习汲取教训 [ Last edited by xk6891 on 2011-3-20 at 13:20 ] 进一步修改成这样就顺多了，首先要能读，然后才是写入数据 code: program main implicit none integer i,j character B real A dimension B(768),A(768,3) open(17,file='wa_xyz',status='old') do i=1,768 read(17,*)B(i),A(i,1),A(i,2),A(i,3) end do close(17) open(18,file='nem_wa_xyz',status='unknown') do i=1,768 if(mod(i,3)/=0)then write(18,"(A3,3(F16.6))"  B(i),A(i,1),A(i,2),A(i,3)end if end do close(18) stop end program code: 得到的结果 O 3.668000 10.082000 15.904000 H 3.224000 10.451000 15.101000 O 5.186000 16.695999 12.072000 H 6.083000 16.979000 11.816000 O 3.786000 16.318001 1.310000 H 3.781000 15.388000 1.196000 O 6.205000 6.991000 18.441999 H 6.782000 7.347000 19.152000 O 16.125999 14.701000 4.577000 H 16.070000 14.272000 3.726000 O 2.750000 8.844000 9.629000 [ Last edited by xk6891 on 2011-3-20 at 13:25 ] |
22楼2011-01-13 23:56:56
23楼2011-01-14 07:36:37
24楼2011-06-17 16:56:36
