精华内容
下载资源
问答
  • 摘要:VB源码,系统相关,回收站 超简单的VB小程序,清空回收站,并统计回收站中的文件个数,相关关键字:  初始化 rbinfo 的大小  资源回收站中包含  显示资源回收站中目前有多少物件  C磁盘回收站中有超过 2,147...
  • VB 统计文本行数

    2010-06-07 17:27:56
    VB 统计文本行数 VB 统计文本行数 VB 统计文本行数
  • 超简单的VB小程序,清空回收站,并统计回收站中的文件个数,相关关键字:  初始化 rbinfo 的大小  资源回收站中包含  显示资源回收站中目前有多少物件  C磁盘回收站中有超过 2,147,483,647 个文件  清空...
  • VB6 根据给定的班级成绩数据,根据要求的需求对数据进行分析比对及筛选,然后显示在不同的信息栏目里,文本文件给定及分析。
  • 自己以前做的一个小程序,对刚接触这块的也是个例子;
  • 本程序主要是统计VB源代码行数的,程序分两种VB版本的代码统计VB6和VB7/8/9...2.打开您要分析的VB工程文件。 3.点击分析按钮,即可以得到你的统计结果。 4.如果你不想统计空白行或注释行,可以从设置菜单进行选择。
  • VB实现文件

    2011-08-30 12:53:46
    字符串统计和百分比及程序运行时间VB实现文件
  • "\实操统计sql.txt" TextTB.Text = System.IO.File.ReadAllText(PathUserData) ‘或者用 System.IO.File.ReadAllText(PathUserData, System.Text.Encoding.UTF8) 上面这个是读取 System.IO.File.ReadAllText...
    Dim PathUserData As String = Application.StartupPath & "\实操统计sql.txt"
    TextTB.Text = System.IO.File.ReadAllText(PathUserData)
    ‘或者用 System.IO.File.ReadAllText(PathUserData, System.Text.Encoding.UTF8)
    上面这个是读取
    System.IO.File.ReadAllText(PathUserData, System.Text.Encoding.UTF8)   此用法是把编码方式转为UTF8
    

    写入如下:

    Dim PathUserData As String = Application.StartupPath & "\实操统计sql.txt"
    Dim t As System.IO.StreamWriter = New System.IO.StreamWriter(PathUserData, True, System.Text.Encoding.UTF8)
    t.Write(TextTB.Text)
    t.Close()
    

    追加如下:

    Dim PathUserData As String = Application.StartupPath & “\实操统计sql.txt”
    Dim t As System.IO.StreamWriter = New System.IO.StreamWriter(PathUserData, True, System.Text.Encoding.UTF8)
    t.WriteLine(TextTB.Text)
    t.Close()

    同样的,你可vb.net教程以把

    System.Text.Encoding.UTF8
    
    展开全文
  • 摘要:VB源码,文件操作,页码统计VB统计指定目录下所有Word文档的页数,并提取Word目录。统计Word页数在Word中是很自然的事情,本程序是VB调用Word中的相关编程接口,在不打开Word的情况下,统计各个Worid文件的...
  •  '统计文件中的全部行数  Dim temp() As String = s.Split(vbCrLf)  Dim lines As Integer = temp.Length  '如果不计算空行,则减去空行的数目  If countBlankLine = False Then  For i As ...

    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

    展开全文
  • VB代码行数统计工具

    2015-01-09 12:04:47
    VB代码行数统计工具 支持vb6 vbp 和vb net vbproj 工程文件直接打开分析 可以自由选择是否统计空白行 注释行
  • 打开rtf文件统计字符程序(VB6.0源代码编写) 打开rtf文件统计字符。CommonDialog1的应用,VB6.0源代码
  • 打开rtf文件统计字符程序(VB6.0代码编写) 打开rtf文件统计字符。CommonDialog1的应用 QQ223857666勾月
  • 内容索引:VB源码,算法相关,数理统计 比例检验、点群分析、单因素等次、多项式回归、多项式逐步回归、非线性逐步回归、曲面_彩色等值线、数据文件_编辑、曲面_网状立体图、曲面_立体图、曲面_彩色等值线、简单相关...
  • 虽然是VB写的,因为仅仅用了VB的内嵌控件,故一个EXE文件而已,XP、Win10下都通用。可以统计VB,C,Keil C,C#。
  • 内容索引:VB源码,系统相关,ICO,图标,应用程序 VB从可执行文件或动态库文件中提取内部所有图标,支持选择快捷方式打开应用程序,比如选择桌面上Word的快捷方式,选择图标源后,Word中的所有图标会被提取到,拖动滚动...
  • 内容索引:VB源码,算法相关,数理统计,算法 一个VB数理统计程序——逐步判别算法,选择好文件并给出行数和列数后单击,计算判别系数和马哈拉诺比斯距离,并计算后验概率和判别矩阵Dm,请下载源代码研究。
  • excel使用vb统计分数 使用Excel选项按钮计算调查分数 (Calculate Survey Scores with Excel Option Buttons) For easier data entry, you can add Option Buttons on a worksheet. Instead of having to type an ...

    excel使用vb统计分数

    For easier data entry, you can add Option Buttons on a worksheet. Instead of having to type an answer to a question, just click on one of the buttons, to make a choice. Here's how to calculate survey scores with Excel Option Buttons.

    为了简化数据输入,您可以在工作表上添加选项按钮。 无需键入问题的答案,只需单击按钮之一进行选择。 这是使用Excel选项按钮计算调查分数的方法。

    添加选项按钮 (Add the Option Buttons)

    When you set up the buttons, you can create a simple option group, with only two buttons, like the English or French example shown below.

    设置按钮时,可以创建一个只有两个按钮的简单选项组,如下面显示的英语或法语示例。

    OptionButton12

    There are set up instructions in this blog post, and in the video shown at the end of this article.

    本文的博客文章和本文末尾的视频中都有设置说明。

    使用选项按钮创建调查 (Create a Survey with Option Buttons)

    If two options aren’t enough, you can set up something fancier, like Dave Peterson's Excel Survey Template, that he shares on my Contextures website.

    如果两个选项还不够,您可以设置一个更奇特的东西,例如Dave Peterson的Excel Survey Template ,他可以在我的Contextures网站上共享它。

    It uses programming to create Group Boxes, with six Option buttons in each group. The buttons in each group are linked to the Response column in that row.

    它使用编程来创建“组框”,每个组中有六个“选项”按钮。 每个组中的按钮都链接到该行中的“响应”列。

    In the screen shot below, the selected option button, and all the others in that group, are linked to cell C2, as you can see in the formula bar.

    在下面的屏幕快照中,所选的选项按钮以及该组中的所有其他按钮都链接到单元格C2,如您在编辑栏中所看到的。

    optionboxessurvey02

    In row 2, the first button is selected, so the Response cell shows 1. In row 5, the 6th button is clicked, and 6 shows in the Response cell.

    在第2行中,选择了第一个按钮,因此Response单元显示为1。在第5行中,单击了第6个按钮,在Response单元中显示了6。

    计算分数 (Calculate the Score)

    In Dave’s survey file, there is a Weight column (B), and the Score is calculated in column A, using this formula (cell A2):

    在Dave的调查文件中,有一个权重列(B),并且使用以下公式(单元格A2)在列A中计算了得分:

    =IF(C2="","",IF(C2=6,"N/A",B2*(C2-1)))

    = IF(C2 =“”,“”,IF(C2 = 6,“ N / A”,B2 *(C2-1)))

    • If no response has been selected, the Score shows an empty string

      如果未选择任何响应,则“分数”显示为空字符串
    • If the response is 6, the Score shows as “N/A”

      如果响应为6,则分数显示为“ N / A”
    • For any other response, 1 is subtracted from the number in the Response cell, and that amount is multiplied by the number in the Weight column.

      对于任何其他响应,从“响应”单元格中的数字中减去1,然后将该值乘以“权重”列中的数字。
    optionboxessurvey01

    创建分数查询表 (Create a Score Lookup Table)

    In some surveys, you might want a different type of scoring calculation. Perhaps responses 1, 3 and 5 are worth 1 point, 2 and 4 are worth 2 points, and response 6 means “N/A”.

    在某些调查中,您可能需要其他类型的计分计算。 也许答案1、3和5得1分,而2和4得2分,而答案6表示“不适用”。

    You can set up a table that shows those scores, as in the screen shot below. The lists are named ranges:

    您可以设置一个显示这些得分的表格,如下图所示。 列表被命名为范围:

    • RespList – cells M2:M7

      RespList –单元格M2:M7
    • ScoreList – cells N2:N7

      ScoreList –单元格N2:N7
    optionboxessurvey03

    更改配方 (Change the Formula)

    Next, you can change the formula in column A, so it finds the score for the selected response. The formula refers to the named ranges in the Score Lookup table.

    接下来,您可以更改A列中的公式,以便为所选响应找到分数。 该公式引用“分数查找”表中的命名范围。

    =IF(C2="","",IF(C2=6,"N/A",B2 * INDEX(ScoreList, MATCH(C2, RespList,0))))

    = IF(C2 =“”,“”,IF(C2 = 6,“ N / A”,B2 * INDEX(ScoreList,MATCH(C2,RespList,0)))))

    • If no response has been selected, the Score shows an empty string

      如果未选择任何响应,则“分数”显示为空字符串
    • If the response is 6, the Score shows as “N/A”

      如果响应为6,则分数显示为“ N / A”
    • For any other response, INDEX and MATCH return the score for the selected response, and that amount is multiplied by the number in the Weight column.

      对于任何其他响应,INDEX和MATCH返回所选响应的分数,该数量乘以“权重”列中的数字。
    optionboxessurvey04

        选项按钮设置视频 (Option Button Setup Video)

        To see the steps for manually creating a Group Box with Option Boxes, watch this short video.

        要查看手动创建带有选项框的组框的步骤,请观看此简短视频。

        演示地址

        下载样本文件 (Download the Sample File)

        To see Dave’s setup code, and the score calculation formulas, you can download the sample files from my Contextures website. The zipped file is in xls format, and contains macros.

        若要查看Dave的设置代码和分数计算公式,可以从我的Contextures网站下载示例文件 。 压缩文件为xls格式,包含宏。

        翻译自: https://contexturesblog.com/archives/2014/01/23/calculate-survey-scores-with-excel-option-buttons/

        excel使用vb统计分数

        展开全文
      • 原理基于TCP/IP协议,两个例子分别都包括了客户端和服务端程序,通过这两个小程序你可熟悉下VB中的点对点文件传输原理,TCP、IP协议的框架应用,还有数据缓冲区,文件包数,已传输数据的统计等。
      • VB从可执行文件或动态库文件中提取内部所有图标,支持选择快捷方式打开应用程序,比如选择桌面上Word的快捷方式,选择图标源后,Word中的所有图标会被提取到,拖动滚动条可看到这些图标,程序可统计文件内部所含...
      • vb获取ftp服务器文件时间戳 内容精选换一换云审计服务开通后系统会自动创建一个追踪器,用来关联系统记录的所有操作。目前,一个云账户在一个Region下仅支持创建一个追踪器。 云审计服务支持在管理控制台查询近7天内...

        vb获取ftp服务器文件时间戳 内容精选

        换一换

        c8a5a5028d2cabfeeee0907ef5119e7e.png

        云审计服务开通后系统会自动创建一个追踪器,用来关联系统记录的所有操作。目前,一个云账户在一个Region下仅支持创建一个追踪器。 云审计服务支持在管理控制台查询近7天内的操作记录。如需保存更长时间的操作记录,您可以在创建追踪器之后通过对象存储服务(Object Storage Service,以下简称OBS)将操作记录实时保存至OBS桶中

        Web服务端证书用于客户端浏览器和web服务器之间的通讯,实现数据信息在客户端和web服务器之间的加密传输,可以防止数据信息的泄露。为提高安全性,建议替换成自己的证书,并及时更新证书,保证证书的有效性。已成功登录鲲鹏代码迁移工具。只有管理员(portadmin)可以执行生成CSR文件、导入web服务端证书、下载根证书,重启服务和更换工作密

        vb获取ftp服务器文件时间戳 相关内容

        本文介绍如何查看迁移任务的详细信息和获取迁移对象列表的方法。在迁移任务详情可查看对象总数、已迁移对象数、忽略对象数、失败对象数等。

        开通云审计服务成功后,您可以在追踪器信息页面查看系统自动创建的追踪器的详细信息。详细信息主要包括追踪器名称,用于存储操作事件的OBS桶名称和OBS桶中的事件文件前缀。GET /v1.0/{project_id}/tracker无状态码: 200状态码: 200请求成功。请参见错误码。

        vb获取ftp服务器文件时间戳 更多内容

        293f5c3a9815ee95e4ed79a7f04b8f18.png

        Flink具有可用于查询正在运行的作业的状态和统计信息以及最近完成作业的监视API。该监视API由Flink自己的WEB UI使用。监视API是REST API,可接受HTTP GET请求并使用JSON数据进行响应。REST API是访问Web服务器的一套API。当前在Flink中,Web服务器是JobManager的一个模块,和JobM

        55a2638139d68369d49b3058cd5d88e8.png

        Flink具有可用于查询正在运行的作业的状态和统计信息以及最近完成作业的监视API。该监视API由Flink自己的WEB UI使用。监视API是REST API,可接受HTTP GET请求并使用JSON数据进行响应。REST API是访问Web服务器的一套API。当前在Flink中,Web服务器是JobManager的一个模块,和JobM

        8c18d15b4c8a3bef37b3cc91cd8c38da.png

        本文介绍如何查看同步任务的详细信息和获取迁移对象列表的方法。目前只支持华北-北京四地区。在同步任务详情可查看接收同步请求对象数(本月)、同步对象数(本月)、同步对象容量(本月)等。如有成功对象列表,可在对象列表中找到“success_object_lists”文件夹,下载相应的txt文件,查看成功对象列表。成功对象列表路径说明:oms/s

        a4c4c5b28481f97f2139da8bb7c47c58.png

        删除录制回调配置接口您可以在API Explorer中调试该接口。DELETE /v1/{project_id}/record/callbacks/{id}状态码: 204状态码: 400状态码: 400删除录制配置失败请参见错误码。

        e08a3c1d383ce0289aa478984d9adca2.png

        本接口用于添加OBS转储任务。您可以在API Explorer中调试该接口。POST /v2/{project_id}/streams/{stream_name}/transfer-tasks无添加OBS转储任务POST https://{Endpoint}/v2/{project_id}/streams/{stream_name}/tr

        628a76026f26a9b0192a8fa75416b71f.png

        安装Data Provider,SAP技术支持人员通过该软件收集云服务器所在的平台信息,以便在SAP系统故障、性能下降时进行定位和分析。

        9bf196c9a2e0b7b0bc69748c838418a5.png

        仅在部分局点Region公测使用。该功能仅支持v1.15及以上版本集群。CCE Turbo集群自定义镜像方法请参见制作CCE节点自定义镜像。镜像需打上专有标签,标签键值均为cce。镜像操作系统版本要求:euleros 2.5、centos 7.6。制作镜像的过程中必须按照操作指南进行制作,防止一些不可预期问题出现。根据基础镜像创建出来的虚

        b203ffbda48cf64af447ca0126ea2d66.png

        根据事件监控名称,查询该事件发生的详细信息。GET /V1.0/{project_id}/event/{event_name}参数说明参数说明名称是否必选说明project_id是项目ID。获取方式请参见获取项目ID。event_nameString是事件名称。event_typeString是事件类型,值为EVENT.SYS或EVENT

        ef7fa0a88cabe2097a016125d8d62832.png

        如果待分析/待预检/待对齐的源码压缩包,待重构的软件包大于500MB或者源码解压后大于1GB,需要手动将源码或者软件包上传至服务器,其他情况可通过“上传”功能上传。以下步骤中的/opt/portadv为工具安装目录,请根据实际情况替换。打开FTP工具(例如winscp),以root用户登录服务器操作系统。将待分析/待预检/待对齐/待重构的

        a0c42bb47a44c6ed1cd778f97e224009.png

        Web服务端证书用于客户端浏览器和Web服务器之间的通讯,实现数据信息在客户端和Web服务器之间的加密传输,可以防止数据信息的泄露。为提高安全性,建议替换成自己的证书,并及时更新证书,保证证书的有效性。

        b5693ff7a1d6bd5360d83fe2bfafdfb3.png

        调用此接口查询指定录制规则。您可以在API Explorer中调试该接口。GET /v2/apps/{app_id}/record-rules/{rule_id}状态码: 200状态码: 400状态码: 404状态码: 500状态码: 200获取录制规则配置成功状态码: 400获取配置失败,语义有误,当前请求无法被服务器理解,或参数有误状

        展开全文
      • 打开文件统计字符程序(VB6.0源代码编写)CommonDialog1的应用
      • VB自动查找并获取Web网页中的超级链接和Img图形,将其它标签元素剔除,仅保留A标签,并识别了图像标签,对获得的总链接数量进行统计,并列出这些标签,你也可以输入其它的网址,进行统计,内核心是基于IE的。
      • 曾经的档案扫描项目中,有些图片是多页拼合,有些是单页,为了准确统计扫描页面数量,尤其是计算多页拼合的数量,自己研究了一下统计数量的方法。分别用C和C#的代码做了演示。
      • 1. 前言因为我们实验室是做机器视觉方向的, 经常需要拍图, 最近在做双相机的实验, 但是拍图的时候, 可能会有很小几率的丢帧现象, 就是一个相机拍到图了, 另...2. 实现这里我们使用vb.net 来实现, 为什么用这个呢
      • VB 检测文件变化 并获取变化的数据

        千次阅读 2012-01-04 08:20:27
        '根据文件大小变化判断是否变化 Private Function check_update() Do While file_bytes = FileLen(ALL_PATH) DoEvents Loop file_bytes = FileLen(ALL_PATH) Call loade_data End Function '循环到文件...
      • 1.vB代码行数统计首先选择您要统计vb工程类型是vb6 或 vb7/8/9的工程。...打开您要分析的vb工程文件。 3.点击分析按钮,即可以得到你的统计结果。 4.如果你不想统计空白行 或 注释行,可以从设置菜单进行选择。
      • VB实现自动统计Word文档页码,编辑页码,提取目录的源码
      • VB加载窗体属性设置后保存参数,适用于VB6.0的开发中,本源码功能介绍:  通过对配置文件的操作  1、判断程序是否异常关闭  2、实现使用次数的统计  3、记录窗体大孝位置  4、修改程序标题

      空空如也

      空空如也

      1 2 3 4 5 ... 20
      收藏数 10,911
      精华内容 4,364
      关键字:

      vb统计文件