| 查看: 507 | 回复: 3 | ||
qnclqq木虫 (正式写手)
|
[求助]
哪位大神会用MS的脚本提取能隙
|
|
|
RT，算完了能带结构，得到xcd文件。这个*.xcd是xml格式的，MS中的perl没法作为纯文本处理。 So，问题，哪位大神能用脚本从该文件中提取这个能隙的值？（令外编程不算，只是用MS的script） 重要的事情说三遍：用脚本，用脚本，用脚本 |
回复此楼» 本帖已获得的红花（最新10朵）
悟空传说» 猜你喜欢
filecode
已经有10人回复
-
听说今天filecode变了
已经有3人回复
-
filecode
已经有12人回复
-
大家散了吧，后缀研究没有意义，别浪费时间了，过好目前的每一天，不要焦虑
已经有5人回复
-
一个有机合成实验室都需要哪些设备？
已经有12人回复
-
求各位大神看下
已经有33人回复
-
咨询面上基金
已经有7人回复
-
影响面上的因素
已经有11人回复
-
8月时间戳变的，举个手。玩一下，释放压力
已经有11人回复
-
面上再次挂了，太难了，躺也躺不了，倦也卷不过，小学校之殇！
已经有30人回复
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
50