六子技术网首页

六子技术网

  • 网站首页
  • HTML/CSS
  • javascript
  • seo优化
  • PS美工
  • 系统安全
  • 漏洞预警
  • 编程学习
  • 原创专区
  • 【六子技术网】是一家综合技术门户,为您提供网站建设,编程开发,安全维护,漏洞预警等技术文章

    技术文章MAP

    文章

    VB读取本地文本并且逐行处理代码分享

    日期:2019/10/4 17:02:01来源分类:编程开发

    VB读取本地文本并且逐行处理代码分享这里拿读取IIS日志为例

       ' 进度条刷新也可以放这儿:ProgressBar1.Value = I,

    List1.Clear
    CommonDialog1.FileName = vbNullString
    CommonDialog1.Filter = "log文档(*.log)|*.log|文本文档(*.txt)|*.txt"

    'CommonDialog1.Filter = "文本文件|*.txt文本文件|*.txt"
    CommonDialog1.ShowOpen
    Dim file As String: file = CommonDialog1.FileName
    If file = vbNullString Then Exit Sub
    Open file For Input As #1 '打开文件的这句稍改一改


     While Not EOF(1)

        Input #1, T

        I = InStr(1, T, "GET") + 5

        i1 = InStr(I, T, " Mozilla/5.0+(compatible;+Baidu")

        If I > 0 And i1 > 0 Then

           For i2 = 0 To List1.ListCount - 1

               If List1.List(i2) = Mid(T, I, i1 - I) Then List1.RemoveItem i2
              
           Next

          List1.AddItem Mid(T, I, i1 - I)

        End If
    DoEvents
     Wend

     Close #1
    If List1.ListCount > 0 Then
    Label6.Caption = List1.ListCount
    ProgressBar1.Max = List1.ListCount - 1

    For I = 0 To List1.ListCount - 1
       ' 如果“在处理前指示进度”,写在这个位置;
       ' 要在处理后指示,下面两行移到后面的 Next 之前。
       ProgressBar1.Value = I
       DoEvents
       ' 事务处理代码……
       ' …………
       ' 进度条刷新也可以放这儿:ProgressBar1.Value = I
       ProgressBar1.Value = I
       ' ProgressBar1 ...........
    Next

    Else
    MsgBox "没有从日志中读取到百度蜘蛛的踪迹,或者您服务器是linux则无法读取", 60, "提示"
    End If

    本文由六子技术网小编:屌爆侠编辑整理 - 转载请注明来源 - http://www.liuzi.net/bc/html/3870.html

    随机推荐

    • 该分类还没有添加任何内容!
    • 该分类还没有添加任何内容!

    Copyright 2005-2019 【六子技术网】 版权所有 黑ICP备16886888号

    声明:本站所有文章来自互联网 如有异议 请联系本站管理员