24小时热门版块排行榜    

查看: 432  |  回复: 3
当前只显示满足指定条件的回帖,点击这里查看本话题的所有回帖

qnclqq

木虫 (正式写手)

[求助] 哪位大神会用MS的脚本提取能隙

RT,算完了能带结构,得到xcd文件。这个*.xcd是xml格式的,MS中的perl没法作为纯文本处理。
So,问题,哪位大神能用脚本从该文件中提取这个能隙的值?(令外编程不算,只是用MS的script)

重要的事情说三遍:用脚本,用脚本,用脚本
回复此楼

» 本帖已获得的红花(最新10朵)

» 猜你喜欢

已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

悟空传说

新虫 (著名写手)

送红花一朵
老大,谢谢分享!
4楼2017-04-22 17:54:15
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 4 个回答

qnclqq

木虫 (正式写手)

顶一下,有没有人会?
2楼2016-04-19 11:41:03
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

qnclqq

木虫 (正式写手)

★ ★ ★ ★ ★
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
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
信息提示
请填处理意见