| 查看: 465 | 回复: 3 | ||
qnclqq木虫 (正式写手)
|
[求助]
哪位大神会用MS的脚本提取能隙
|
|
|
RT，算完了能带结构，得到xcd文件。这个*.xcd是xml格式的，MS中的perl没法作为纯文本处理。 So，问题，哪位大神能用脚本从该文件中提取这个能隙的值？（令外编程不算，只是用MS的script） 重要的事情说三遍：用脚本，用脚本，用脚本 |
回复此楼» 本帖已获得的红花（最新10朵）
悟空传说» 猜你喜欢
270求调剂
已经有8人回复
-
211本科材料化工求调剂
已经有6人回复
-
求调剂
已经有10人回复
-
求调剂
已经有11人回复
-
272分材料子求调剂
已经有43人回复
-
271求调剂
已经有13人回复
-
283求调剂 086004考英二数二
已经有16人回复
-
085410 273分调剂
已经有4人回复
-
一志愿厦大0856，306求调剂
已经有3人回复
-
304求调剂（085602，过四级，一志愿985）
已经有28人回复
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
