VC++6.0 profile 结果制作 Excel表格

profile 的结果是个文本信息，例如

.....

0.075   0.0    30496.312 40.2        1 _decode_one_frame (image.obj)
       0.075   0.0        0.142   0.0      236 _readSyntaxElement_FLC (vlc.obj)
       0.070   0.0       38.906   0.1       40 _get_mem4Dshort (memalloc.obj)
       0.068   0.0        0.068   0.0       39 _decode_poc (header.obj)
       0.067   0.0        0.067   0.0      236 _GetBits (vlc.obj)

......

这些信息是有规律的，我把类似的信息保存在文本文件中，起名为result.txt,打开Excel，进入Visual Basic编辑器，编写VBA代码，如下：

Dim s As String
' 执行函数入口
Public Sub Analyse()
    filespec = "C:/result.txt" '按实际路径填写
    Const ForReading = 1, ForWriting = 2, ForAppending = 3
    Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
    Dim fs, f, str
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFile(filespec)
    Set ts = f.OpenAsTextStream(ForReading, TristateFalse)
    s = ts.ReadLine
    j = 1
    While s <> ""
        i = 1
        While s <> ""
            str = Chr(Asc("A") + i - 1) & CStr(j)
            wd = GetWord()
            If wd <> "" Then
                Range(str) = wd
            End If
            i = i + 1
        Wend
        If Not ts.AtEndOfStream Then
            s = ts.ReadLine
        Else
            s = ""
        End If
        j = j + 1
    Wend
    ts.Close
End Sub

'从字符串读取词

Public Function GetWord() As String
    i = 1
    While (Mid(s, i, 1) = " " And Mid(s, i, 1) <> "")
        i = i + 1
    Wend
    While (Mid(s, i, 1) <> " " And Mid(s, i, 1) <> "")
        GetWord = GetWord & Mid(s, i, 1)
        i = i + 1
    Wend
    If Len(s) - i > 0 Then
        s = Right(s, Len(s) - i)
    Else
        s = ""
    End If
End Function

匆匆写就，比较笨的方法，请行家批评指正

VC++6.0 profile 结果制作 Excel表格相关推荐

安利这几个制作Excel表格的技巧
我们在制作Excel表格的时候经常会需要这样或那样的问题,这篇文章就带你了解一下Excel表格的一些知识,一起来看一看吧. 技巧一:Countif 函数如何对嵌套函数进行计数案例描述:计算销售额大于 ...
初中计算机表格处理教案,中学信息技术教案《制作excel表格》
如何借助现代网络技术为我们的日常生活带来方便?那么,不得不提的是应学会利用excel,从而进行信息的处理与加工,这只是福建省教师招聘考试的重要考点之一.以下是小编整理的学校信息技术教案<制作ex ...
php 表格模板,怎么制作excel表格模板
制作excel表格模板的方法:首先打开Excel软件,新建一个工作表格,在表格中把模板的内容编辑完成:然后点击"另存为"按钮,打开"另存为"页面,设置好保存路径 ...
如何用电脑制作Excel表格
电脑制作excel表格全步骤 1.首先新建一个excel表格,然后我们选中需要行和列,如6列10行; 2.选中后,鼠标右键点击,然后选择"设置单元格格式"; 3.在弹出的页面中,我 ...
使用最新的poi-4.1.0.jar导入导出Excel表格——读取Excel表格数据用法
使用最新的poi-4.1.0.jar导入导出Excel表格--读取Excel表格数据用法其中主要的一点心得就是在switch语句哪里进行读取数据转换时,我看到网上的一些用法都是使用 HSSFCell ...
ThinkPHP5.0之数据导出excel表格
ThinkPHP5.0之数据导出excel表格使用composer安装phpexcel扩展类库 composer require phpoffice/phpexcel 控制器类中导入扩展类 use ...
python制作excel表格-excel表格中怎么制作一份燃尽图表
excel表格中怎么制作一份燃尽图表?excel表格中的数据想要制作一个燃尽图,然见图是使用时间为横坐标,任务量为纵坐标的图,下面我们就来看看制作方法,燃尽图是使用时间为横坐标,任务量为纵坐标的图,通 ...
表格列求和_excel表格制作,Excel表格的基本操作，包含制作一个表格10方面的知识...
创建表格,插入与删除一行一列或多行多行,一次移动一行一列或多行多列,拆分与合并单元格,单元格内换行,表格求和与求平均值是Excel表格的基本操作:除此之外,Excel表格的基本操作还包括调整行高列宽. ...
让ChatGPT来制作Excel表格，ChatGPT实现文本和表格的相互转换
Office 三套件可以说是现代办公族必备的办公工具.其中,Excel 因为内置的计算函数.VBA 宏等高级功能又成为了非专业人士最头疼的 Office 组件.非财务专业人士,估计平常会用的 Exce ...

VC++6.0 profile 结果制作 Excel表格

VC++6.0 profile 结果制作 Excel表格相关推荐

最新文章

热门文章