精华内容
下载资源
问答
  • VB实现文件

    2011-08-30 12:53:46
    字符串统计和百分比及程序运行时间VB实现文件
  • 本文中实现了两个函数:统计一个文件夹中所有符合扩展名规则的文件文字行数;统计一个文件中的文字行数 2.函数代码 '''<summary> '''统计一个文件夹中所有符合扩展名规则的文件文字行数 '''</summary>...

    1.关于本文

    本文中实现了两个函数:统计一个文件夹中所有符合扩展名规则的文件文字行数;统计一个文件中的文字行数

    2.函数代码

    ''' <summary>
    ''' 统计一个文件夹中所有符合扩展名规则的文件文字行数
    ''' </summary>
    ''' <param name="folder">文件夹地址</param>
    ''' <param name="extensions">扩展名,如过有多个则中间用逗号隔开</param>
    ''' <param name="countBlankLine">true:空行计算在内 false:空行不计算在内</param>
    ''' <returns>文字行数统计</returns>
    ''' <remarks></remarks>
    Public Function CheckFolder(ByVal folder As String, _
        Optional ByVal extensions As String = "", _
        Optional ByVal countBlankLine As Boolean = False) As Integer
    
        '行数统计
        Dim lines As Integer = 0
    
        '全部需要统计行数的扩展名
        Dim arrayExts() As String = extensions.Split(",")
    
        '文件信息
        Dim dif As New System.IO.DirectoryInfo(folder)
    
        '遍历各个子文件夹
        For Each di As IO.DirectoryInfo In dif.GetDirectories
            lines += CheckFolder(di.FullName, extensions, countBlankLine)
        Next
    
        '输出本目录下所有文件
        For Each f As System.IO.FileInfo In dif.GetFiles
    
            '扩展名部分未填,则统计所有文件,如果填写则
            If String.IsNullOrWhiteSpace(extensions) Then
                lines += CheckFile(f.FullName, countBlankLine)
                Continue For
            Else
                For Each ext In arrayExts
                    If f.Extension = "." + ext Then
                        lines += CheckFile(f.FullName, countBlankLine)
                    End If
                Next
            End If
        Next
    
        Return lines
    
    End Function
    
    ''' <summary>
    ''' 统计一个文件中的文字行数
    ''' </summary>
    ''' <param name="file">文件地址</param>
    ''' <param name="countBlankLine">true:空行计算在内 false:空行不计算在内</param>
    ''' <returns>文字行数(不含空行)</returns>
    ''' <remarks></remarks>
    Public Function CheckFile(ByVal file As String, _
        Optional ByVal countBlankLine As Boolean = False) As Integer
    
        Console.WriteLine("file address: " + file)
    
        '将文件内容读取到字符串
        Dim sr As IO.StreamReader
        Dim s As String
        sr = IO.File.OpenText(file)
        s = sr.ReadToEnd
        sr.Close()
    
        '统计文件中的全部行数
        Dim temp() As String = s.Split(vbCrLf)
        Dim lines As Integer = temp.Length
    
        '如果不计算空行,则减去空行的数目
        If countBlankLine = False Then
            For i As Integer = 0 To temp.Length - 1
                If String.IsNullOrWhiteSpace(temp(i)) Then
                    lines -= 1
                End If
            Next
        End If
    
        Console.WriteLine("lines: " + lines.ToString())
        Console.WriteLine("======================")
    
        Return lines
    
    End Function

    3.调用代码

    Dim address As String = "E:\TestProgram\ChineseFlag" '目录名称
    Console.WriteLine("Total lines: " + CheckFolder(address, "cs,xml,txt").ToString())

    4.运行结果

    161428_umYB_1425762.png

    转载于:https://my.oschina.net/Tsybius2014/blog/282080

    展开全文
  • 自己以前做的一个小程序,对刚接触这块的也是个例子;
  • 如我的TXT文件路径放在TextBox1中,点Button1统计TextBox1中显示的TXT文件的行数,并把值显示到TextBox2中,怎么写?我用VS2013
  • 超简单的VB小程序,清空回收站,并统计回收站中的文件个数,相关关键字:  初始化 rbinfo 的大小  资源回收站中包含  显示资源回收站中目前有多少物件  C磁盘回收站中有超过 2,147,483,647 个文件  清空...
  • VB代码行数统计工具

    2015-01-09 12:04:47
    VB代码行数统计工具 支持vb6 vbp 和vb net vbproj 工程文件直接打开分析 可以自由选择是否统计空白行 注释行
  • 打开rtf文件统计字符程序(VB6.0源代码编写) 打开rtf文件统计字符。CommonDialog1的应用,VB6.0源代码
  • VB.NET文件存档设置

    2018-09-26 14:12:19
    Sub 对公采购文件存档设置() '文件存档  '定义目录  Dim rq As String = Format(Form账务统计_对公采购存档_编辑.DateTimePicker_rq.Value, "yyyymmdd")  Dim gys As String = Form账务统计_对公采购...

        Sub 对公采购文件存档设置() '文件存档
            '定义目录
            Dim rq As String = Format(Form账务统计_对公采购存档_编辑.DateTimePicker_rq.Value, "yyyymmdd")
            Dim gys As String = Form账务统计_对公采购存档_编辑.TextBox_gys.Text
            Dim sml As String = "\\Dxserver\文件\采购记录" & "\" & gys & "\" & rq
            If Form账务统计_对公采购存档_编辑.ListBox1.Items.Count > 0 Then  'ListBox1为空时不创建文件夹
                '文件存档部分
                Dim file_name() As String
                If Not Directory.Exists(sml) Then                                                         '检测是否存在sml目录
                    Directory.CreateDirectory(sml)                                                        '创建新的sml目录
                    For i = 0 To Form账务统计_对公采购存档_编辑.ListBox1.Items.Count - 1
                        file_name = Split(Form账务统计_对公采购存档_编辑.ListBox1.Items(i).ToString, "\")                                '获取文件名
                        FileCopy((Form账务统计_对公采购存档_编辑.ListBox1.Items(i).ToString), sml & "\" & file_name(UBound(file_name)))  '复制文件到新的路径
                    Next
                Else
                    For i = 0 To Form账务统计_对公采购存档_编辑.ListBox1.Items.Count - 1
                        file_name = Split(Form账务统计_对公采购存档_编辑.ListBox1.Items(i).ToString, "\")                                '获取文件名
                        FileCopy((Form账务统计_对公采购存档_编辑.ListBox1.Items(i).ToString), sml & "\" & file_name(UBound(file_name)))  '复制文件到新的路径
                    Next
                End If
            Else
                Exit Sub
            End If
        End Sub

    展开全文
  • 打开rtf文件统计字符程序(VB6.0代码编写) 打开rtf文件统计字符。CommonDialog1的应用 QQ223857666勾月
  • 工作需要,针对java文件,作了一个行数统计的工具。统计的主要代码如下: Set srcIn = fso.OpenTextFile(fileNm, ForReading) Do While Not srcIn.AtEndOfStream buf = srcIn.ReadLine java总行数 allLin

     工作需要,针对java文件,作了一个行数统计的工具。统计的主要代码如下:

        Set srcIn = fso.OpenTextFile(fileNm, ForReading)
        
        Do While Not srcIn.AtEndOfStream
            buf = srcIn.ReadLine
           
            'java总行数

            allLinex = allLinex + 1
            'java空白行
            If Not flg And Trim(Replace(buf, vbTab, "")) = "" Then
                'Debug.Print fileNm & ":" & allLinex
                blankLinex = blankLinex + 1
            End If
            'java注释行
            If flg Then
                If InStr(buf, "*/") > 0 Then
                    flg = False
                End If
                commentLinex = commentLinex + 1
            ElseIf InStr(Trim(Replace(buf, vbTab, "")), "//") = 1 Then
                commentLinex = commentLinex + 1
            End If
            If InStr(Trim(Replace(buf, vbTab, "")), "/*") = 1 Then
                flg = True
                commentLinex = commentLinex + 1
            End If
            If flg And InStr(buf, "*/") > 0 Then
                If Mid(Trim(Replace(buf, vbTab, "")), Len(Trim(Replace(buf, vbTab, ""))) - 1) = "*/" Then
                    flg = False
                End If
            End If
           
        Loop

        'java实行行数
        execLinex = allLinex - blankLinex - commentLinex

     

    广告:

    优衣库官方旗舰店提示:冬日寒冷,请注意保暖,

    http://s.click.taobao.com/a/qvLJJQkPIEQ=-14643766

    展开全文
  • 1.vB代码行数统计首先选择您要统计vb工程类型是vb6 或 vb7/8/9的工程。...打开您要分析的vb工程文件。 3.点击分析按钮,即可以得到你的统计结果。 4.如果你不想统计空白行 或 注释行,可以从设置菜单进行选择。
  • 打开文件统计字符程序(VB6.0源代码编写)CommonDialog1的应用
  • Nothing Dim i, j As Integer '定义listbox1控件删除重复值变量 Dim jshe, rows1 As Integer '定义SUMIF计数变量 Dim strFilePath As String = "C:\Users\Dell\Desktop\数据可视化测试\认统计2020.3.20.xlsx" xlApp ...
      Dim xlApp As Object = Nothing
            Dim xlBooks As Excel.Workbooks = Nothing
            Dim xlBook As Excel.Workbook = Nothing
            Dim xlSheets As Excel.Sheets = Nothing
            Dim xlSheet As Excel.Worksheet = Nothing
            Dim myrange As Excel.Range = Nothing
            Dim i, j As Integer '定义listbox1控件删除重复值变量
            Dim jshe, rows1 As Integer '定义SUMIF计数变量
    
            Dim strFilePath As String = "C:\Users\Dell\Desktop\数据可视化测试\认统计2020.3.20.xlsx"
            xlApp = New Excel.Application()
    
            xlBooks = xlApp.Workbooks
    
            xlBook = xlBooks.Open(strFilePath)
            xlSheets = xlBook.Worksheets
            xlSheet = xlSheets("Sheet1") '这里是你要读入数据的那个sheet页 
            '第一行第一列 
            myrange = xlSheet.Range("h2")
            ' Dim a As String = myrange.Value
            MsgBox(xlSheet.UsedRange.Rows.Count) '最大的使用行数。有记录的总行数。包括写过数据然后删除数据的空白行。要删除这样的行,必须整行删除掉。
            ' MsgBox(xlSheet.UsedRange.Columns.Count) '最大的使用列数。
    
            TextBox1.Text = myrange.Text
            'MsgBox("暂停")
            ''''''''''''''''''''''''''''''''''''将表格内容填加到Listbox1控件中'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
            For i = 2 To xlSheet.UsedRange.Rows.Count
                If xlSheet.Range("h" & i).Value = Nothing Then '判断如果表格为空数据,停止导出
                    Exit For
                End If
                ListBox1.Items.Add(xlSheet.Range("h" & i).Value)
            Next
            '''''''''''''''''''''''''''''''''''将Listbox1控件中重复数据去重''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
            For i = 0 To ListBox1.Items.Count - 1
                For j = ListBox1.Items.Count - 1 To i + 1 Step -1
                    If ListBox1.Items(i) = ListBox1.Items(j) Then ListBox1.Items.RemoveAt(j) '使用remove 不能删除
                Next
            Next
            '''''''''''''''''''''''''''''''''''根据listbox控件内容计算数值'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
            rows1 = xlSheet.UsedRange.Rows.Count '表格内所有行数
            jshe = xlSheets.Application.WorksheetFunction.SumIf(xlSheet.Range("h2:h" & rows1), ListBox1.Items.Item(0), xlSheet.Range("d2:d" & rows1)) '求和 参数1:条件序列为H列,参数2:以h2列第一行数据为条件,参数3:在D列中符合条件数据进行相加。
            TextBox1.Text = jshe
            MsgBox(rows1)
    
            xlBook.Close(True) '关闭工作簿
            xlApp.Quit '结束EXCEL对象
    
    展开全文
  • 本程序主要是统计VB源代码行数的,程序分两种VB版本的代码统计VB6和VB7/8/9...2.打开您要分析的VB工程文件。 3.点击分析按钮,即可以得到你的统计结果。 4.如果你不想统计空白行或注释行,可以从设置菜单进行选择。
  • "\实操统计sql.txt" TextTB.Text = System.IO.File.ReadAllText(PathUserData) ‘或者用 System.IO.File.ReadAllText(PathUserData, System.Text.Encoding.UTF8) 上面这个是读取 System.IO.File.ReadAllText...
  • 虽然是VB写的,因为仅仅用了VB的内嵌控件,故一个EXE文件而已,XP、Win10下都通用。可以统计VB,C,Keil C,C#。
  • 一、确认需要统计nmon文件中的sheet页以及sheet中值所在的列 二、然后在EXCEL中设计好需要统计数据的显示位置以及配置页的设置 三、打开宏进行编辑,图片为Vb源码 四、可根据自身需求进行优化和调整 ...
  • VB对EXCEL文件的处理

    2019-01-15 23:48:31
    因为部门有工作量考核,于是想着能够通过编程解决繁琐的工作量的统计,自己不是it专业出身,只有大学选修的vb和基本忘干净的谭浩强课本的c。前后折腾一个月,最后写出来如下的东西。 Dim xlA As New excel....
  • 目的: 培养学生综合利用VB语言进行程序设计的能力,主要是培养学生综合使用基本控件的、文件读写、数组操作和菜单设计等能力。2.基本要求:设计一个学生成绩统计与查询系统,要求具有如下的功能:★ 使用该系统时,...
  • VB原代码门窗表统计

    2011-04-11 14:14:36
    1、dwg文件必须以“***,***.dwg"型式命名,逗号表示楼号,逗号后面表示层号,以便于统计时分区分层; 2、形成的电子表格(Excel)文件中必须保证存在2个工作薄,一个名为“Sheet2”用来存放统计出的数据,一个为...
  • XML:XML与HTML的结合(数据岛的应用)目前,许多Web网站的内容数据都存放在数据库或数据文件中。对于Web程序开发人员来说,如果要想把有用的信息从数据库中提取出来,传统的方法是在服务器端编写脚本程序(如VBScript...
  • 原理基于TCP/IP协议,两个例子分别都包括了客户端和服务端程序,通过这两个小程序你可熟悉下VB中的点对点文件传输原理,TCP、IP协议的框架应用,还有数据缓冲区,文件包数,已传输数据的统计等。
  • 统计WORD文件中的字数

    2012-10-19 15:49:15
    通过vb统计一个word文件中的字数,是bop的好帮手
  • 源代码行数统计,能统计c,c++,c#,java,vb,delphi等各种源程序文件
  • 使用它,你可以统计 Delphi、BCB工程及工程组,VB工程所有代码文件的行数,并可将结果输出为文本或导出到Excel表,你只需选择一个工程或工程组文件即可! RowCounter 中可能有不少对初学者有用的小技巧,如 ListView...
  • VB从可执行文件或动态库文件中提取内部所有图标,支持选择快捷方式打开应用程序,比如选择桌面上Word的快捷方式,选择图标源后,Word中的所有图标会被提取到,拖动滚动条可看到这些图标,程序可统计文件内部所含...

空空如也

空空如也

1 2 3 4 5 ... 16
收藏数 315
精华内容 126
关键字:

vb统计文件