| 查看: 446 | 回复: 3 | ||
qnclqq木虫 (正式写手)
|
[求助]
哪位大神会用MS的脚本提取能隙
|
|
|
RT，算完了能带结构，得到xcd文件。这个*.xcd是xml格式的，MS中的perl没法作为纯文本处理。 So，问题，哪位大神能用脚本从该文件中提取这个能隙的值？（令外编程不算，只是用MS的script） 重要的事情说三遍：用脚本，用脚本，用脚本 |
回复此楼» 本帖已获得的红花（最新10朵）
悟空传说» 猜你喜欢
278求调剂
已经有7人回复
-
26考研一志愿中国石油大学(华东)305分求调剂
已经有5人回复
-
280求调剂
已经有9人回复
-
279求调剂
已经有5人回复
-
286求调剂
已经有5人回复
-
材料与化工（0856）304求 B区 调剂
已经有3人回复
-
268求调剂
已经有8人回复
-
265求调剂
已经有14人回复
-
22 350 本科985求调剂，求老登收留
已经有3人回复
-
【考研调剂】化学专业 281分，一志愿四川大学，诚心求调剂
已经有9人回复
qnclqq
木虫 (正式写手)
- 应助: 2 (幼儿园)
- 金币: 3862.6
- 红花: 4
- 帖子: 467
- 在线: 132.8小时
- 虫号: 1464347
- 注册: 2011-10-28
- 性别: GG
- 专业: 凝聚态物性 II ：电子结构
★ ★ ★ ★ ★
qnclqq: 回帖置顶 2016-04-20 20:23:54
franch: 金币+5, 鼓励交流。。。。 2016-04-21 06:23:49
qnclqq: 回帖置顶 2016-04-20 20:23:54
franch: 金币+5, 鼓励交流。。。。 2016-04-21 06:23:49
|
#自己回答 #将一下代码插入即可实现，注意删去所有中文 my $filename="rutile Band Structure.xcd";#已经算好的能带文件，使用的时候只要修改这一个即可 my $character="Band gap is"; open (file,"<",$filename)||die "cannot open the file: $!\n"; my @texts=<file>; my $pos=-1; my $text; foreach $text (@texts){ $pos=index($text,$character); if (~$pos) { print substr($text,$pos+12,6);#在屏幕上显示带隙，如果有需要写入文件，perl允许直接做数值使用 last; } } |
3楼2016-04-20 20:23:17
qnclqq
木虫 (正式写手)
- 应助: 2 (幼儿园)
- 金币: 3862.6
- 红花: 4
- 帖子: 467
- 在线: 132.8小时
- 虫号: 1464347
- 注册: 2011-10-28
- 性别: GG
- 专业: 凝聚态物性 II ：电子结构
2楼2016-04-19 11:41:03
悟空传说
新虫 (著名写手)
- 应助: 13 (小学生)
- 金币: 2430.2
- 散金: 740
- 红花: 11
- 帖子: 1215
- 在线: 155.8小时
- 虫号: 4432149
- 注册: 2016-02-24
- 性别: GG
- 专业: 基础物理学
4楼2017-04-22 17:54:15
10