| 查看: 450 | 回复: 3 | ||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | ||
qnclqq木虫 (正式写手)
|
[求助]
哪位大神会用MS的脚本提取能隙
|
|
|
RT，算完了能带结构，得到xcd文件。这个*.xcd是xml格式的，MS中的perl没法作为纯文本处理。 So，问题，哪位大神能用脚本从该文件中提取这个能隙的值？（令外编程不算，只是用MS的script） 重要的事情说三遍：用脚本，用脚本，用脚本 |
回复此楼
悟空传说
悟空传说
新虫 (著名写手)
- 应助: 13 (小学生)
- 金币: 2430.2
- 散金: 740
- 红花: 11
- 帖子: 1215
- 在线: 155.8小时
- 虫号: 4432149
- 注册: 2016-02-24
- 性别: GG
- 专业: 基础物理学
4楼2017-04-22 17:54:15
qnclqq
木虫 (正式写手)
- 应助: 2 (幼儿园)
- 金币: 3862.6
- 红花: 4
- 帖子: 467
- 在线: 132.8小时
- 虫号: 1464347
- 注册: 2011-10-28
- 性别: GG
- 专业: 凝聚态物性 II ：电子结构
2楼2016-04-19 11:41:03
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
40