处理大数据以转换十六进制数据

时间:2017-01-19 11:10:38

标签: excel excel-vba hex notepad++ vba

我有一个超过10,000,000行和3列的文本/ CSV文件 列名称:ClientName,CLientMobile,ClientData

ClientData采用十六进制格式。

目前我在做:

  1. 将文件拆分为每个900,000行的多个部分

  2. 打开每个文件 - 说文件1

  3. 将下面描述的函数粘贴为宏(Hex2Text的宏)

  4. Public Function HexToText(Text As Range) As String
      Dim i As Integer
      Dim DummyStr As String
      For i = 1 To Len(Text) Step 2
        DummyStr = DummyStr & Chr(Val("&H" & (Mid(Text, i, 2))))
        DoEvents
        Next i
      HexToText = DummyStr
    End Function
    
    1. 转换列上的每个十六进制值" ClientData"使用上述函数"Hex2Text"

    2. 在可读文本中
    3. 保存工作表。

    4. 面临的问题:

      1. 由于Excel限制,我必须将所有这些大文件拆分为900,000行限制
      2. 当我复制过去的Hex2Text公式,并且为#Hex;#34;
      3. 中的十六进制值转换所有900,000行时,需要花费大量时间进行计算。

        解决方案所需:

        1. 是否有任何其他软件可以用于同一目的,以避免随地吐痰,避免在Excel计算中浪费大量时间进行Hext2Text转换。
        2. 欢迎任何简单的解决方案/想法。

0 个答案:

没有答案