马上注册,下载丰富资料,享用更多功能,让你轻松玩转阳光石油论坛。
您需要 登录 才可以下载或查看,没有账号?欢迎注册
x
本帖最后由 刘萝卜锅 于 2017-7-18 10:09 编辑
这是阿什卡微信公众号的第400篇原创文章 首发于2017年7月15日
▽ 大数据中选小数据,你遇到过吗 作者:王正
现在油田基本处于开发阶段,尤其是老油田,单井的各类数据文件有的过万,如何在这么大的数据量中,提取你想要的小数据呢,有兴趣的不妨往下看。 以测井数据为例,看如何在数据包提取需要文件:
准备数据:
1.测井曲线“井名.las”文件包(welldata);
2.需要提取的井名文件(well.xlsx),如图1
图1 需要提取的井名文件
提取文件:
1.在文件well.xlsx上操作,点击视图——宏——查看宏或者Alt+F8,打开宏界面(图2),宏名输入任意字母,点击创建,出现图3界面。
图2 打开宏界面
图3 宏界面
2.在sub q()和End Sub之间输入下列命令(红色字),点击。
Sub q() Set dic = CreateObject("scripting.dictionary") For i = 2 To Range("A1048576").End(3).Row dic(Cells(i, "A").Value) = "" Next i f = Dir("D:\welldata\*.las") Do While f <> "" If dic.exists(Left(f, Len(f) - 4)) Then FileCopy "D:\welldata\"& f, "D:\welldata\提取\" & f End If f = Dir Loop End Sub
运行完成后,到目标文件夹下查看提取的小数据。
需要说明的是:
1.提取文件名放在Execl的A列,且不要扩展名
2.源文件夹路径D:\welldata (路径可随意给)
3.目标文件夹路径D:\welldata\提取 (路径可随意给)
-END-
(关注微信号 每期早看到↘)
--------------版权声明--------------
阿什卡原创文章 转发请注明出处
--------------版权声明--------------
|