阳光石油网|石油技术交流|石油人论坛

 找回密码
 欢迎注册
查看: 975|回复: 0

如何在海量大数据里选出你想要的小数据?

[复制链接]
  • TA的每日心情
    开心
    2023-2-1 09:26
  • 签到天数: 66 天

    [LV.6]常住居民II

    发表于 2017-7-18 10:08:30 | 显示全部楼层 |阅读模式

    马上注册,下载丰富资料,享用更多功能,让你轻松玩转阳光石油论坛。

    您需要 登录 才可以下载或查看,没有账号?欢迎注册

    x
    本帖最后由 刘萝卜锅 于 2017-7-18 10:09 编辑

    这是阿什卡微信公众号的第400篇原创文章
    首发于2017年7月15日

    0.jpg
    大数据中选小数据,你遇到过吗
    作者:王正

    现在油田基本处于开发阶段,尤其是老油田,单井的各类数据文件有的过万,如何在这么大的数据量中,提取你想要的小数据呢,有兴趣的不妨往下看。
    以测井数据为例,看如何在数据包提取需要文件:

    准备数据:

    1.测井曲线“井名.las”文件包(welldata);

    2.需要提取的井名文件(well.xlsx),如图1

    01.png
    图1  需要提取的井名文件

    提取文件:

    1.在文件well.xlsx上操作,点击视图——宏——查看宏或者Alt+F8,打开宏界面(图2),宏名输入任意字母,点击创建,出现图3界面。

    02.png
    图2 打开宏界面

    03.png
    图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-







    (关注微信号 每期早看到↘)

    --------------版权声明--------------

    阿什卡原创文章
    转发请注明出处

    --------------版权声明--------------






    您需要登录后才可以回帖 登录 | 欢迎注册

    本版积分规则

    QQ|Archiver|手机版|小黑屋|阳光石油网 ( 鲁ICP备2021003870号-1 )

    GMT+8, 2024-5-17 15:18 , Processed in 0.073540 second(s), 26 queries .

    Powered by Discuz! X3.4 Licensed

    Copyright © 2001-2021, Tencent Cloud.

    快速回复 返回顶部 返回列表