vb大数据处理技术问题

no000on 2014-07-02 01:58:33
我在前面提过这个问题
问题描述，从一个TXT文件取出所有身份证号码，身份证号码所在分割位置不一定

txt文件内容格式如下
"0100000000002013030003","姓名","","1","1963/10/13","1963/10/13","37062019631013301X","110108","地址地址在地址地址地址","110108",
"0201000009992012060001","姓名","","","1","1978/01/08","1978/01/08","120104197801086036","110106","地址地址在地址地址地址","11",
"1105280009992006030003",,"姓名","1","1978/01/08","1978/01/08","41280119770827231X","110106","地址地址在地址地址地址","11",
"1105280009992006030002",,"姓名","1","1978/01/08","1978/01/08","350181197808116571","110106","地址地址在地址地址地址","11",
"1105280009992006060011",,"姓名","1","1978/01/08","1978/01/08","350181198306105877","110106","地址地址在地址地址地址","11",
"1105280009992006060012",,"姓名","","","1","1978/01/08","1978/01/08","42070319840510277X","110106","地址地址在地址地址地址","11",
"1105280009992006090015",,"姓名","","","1","1978/01/08","1978/01/08","341623198605018311","110106","地址地址在地址地址地址","11",
"1105280009992006110018",,"姓名","1","1978/01/08","1978/01/08","410305690215031","110106","地址地址在地址地址地址","11",
"1105280009992006120019",,"姓名","1","1978/01/08","1978/01/08","410527700303295","110106","地址地址在地址地址地址","11",
.........
一行一条数据，总共有将近50W行数据，文件大小在14M多
身份证号码有15位 18位（虽然有逗号分隔，但是号码位置不固定的，分隔截取是完全拿不到的）
我用普通方式来逐行读取数据，用正则表达式可以提出号码，但是整个过执行完差不多在400秒

最后找到相关资料看到 内存映射 相关的技术，处理大文件比较快
对于这块资料网上基本都是介绍函数的时候没有具体的实例
也不知道用内存映射方式来出来这个文件效果如何？或者有其他什么方法
...全文
412 22 打赏 收藏 转发到动态 举报
写回复
用AI写文章
22 条回复
切换为时间正序
请发表友善的回复…
发表回复
no000on 2014-07-06
  • 打赏
  • 举报
 回复
引用 21 楼 Chen8013 的回复:
应该是不必用正则。 你在19楼说的“没规律”那种， ①是不是每行只有一个身份证号码？ ②是不是每行一定有身份证号码？ 你还是可以发一个样本文档，给我看看。 记住把文件压缩后再发。 ^_^
我先结贴，另外开一个帖子
舉杯邀明月 2014-07-06
  • 打赏
  • 举报
 回复
应该是不必用正则。

你在19楼说的“没规律”那种，
①是不是每行只有一个身份证号码？
②是不是每行一定有身份证号码？
你还是可以发一个样本文档，给我看看。
记住把文件压缩后再发。 ^_^
no000on 2014-07-05
  • 打赏
  • 举报
 回复
我的帖子只能加到100分
no000on 2014-07-05
  • 打赏
  • 举报
 回复
如果处理固定格式的文件速率真的比正则表达式快很多 以前很少接触文件处理的业务 这两天通过这些高人的热心指点学了不少东西 上述方法只能处理固定数据格式 如果格式不固定是不是又该返回用正则表达式了 例如如下格式： "0100000000002013030003","姓名","","1","1963/10/13","1963/10/13","37062019631013301X","110108","地址地址在地址地址地址","110108", "120104197801086036","0201000009992012060001","姓名","","","1","1978/01/08","1978/01/08","110106","地址地址在地址地址地址","11", 37062019631013301X 110103197912110686,372924197403010316 511111196803261013 510321197711148336 41272219700612874X 文件格式没有一定规律，这样的话是不是得通过正则表达式来？
no000on 2014-07-05
  • 打赏
  • 举报
 回复
引用 15 楼 Chen8013 的回复:
Option Explicit

Private Sub Command1_Click()
   Const SEPSTR   As String = ""","""
      Dim strRlt() As String
      Dim strTemp As String
      Dim dTime   As Double
      Dim lNum    As Long
      Dim iFn     As Integer
      Dim i&, p&, ps&, pe&

   iFn = FreeFile()
   dTime = Timer()
   Open "E:\Tools\2.txt" For Input As #iFn
   Line Input #iFn, strTemp
   lNum = LOF(iFn) / Seek(iFn)
   ReDim strRlt(lNum)
   p = -1&: Seek iFn, 1
   Do
      If (EOF(iFn)) Then Exit Do
      p = p + 1&
      If (p > lNum) Then
         lNum = lNum + 160
         ReDim Preserve strRlt(lNum)
      End If
      Line Input #iFn, strTemp
      i = InStr(20, strTemp, "/")
      ps = InStr(i + 12, strTemp, SEPSTR) + 3
      pe = InStr(ps, strTemp, SEPSTR)
      strRlt(p) = Mid$(strTemp, ps, pe - ps)
   Loop
   Close
   Me.Print "耗时：" & Format$(Timer() - dTime, "0.00秒")
   Me.Print "提取数据：" & p + 1
   ' 结果检查：
   pe = -1&
   For i = 0 To p
      ps = Len(strRlt(i))
      If (ps <> 15& And ps <> 18&) Then
         Me.Print i + 1; "出错"
         pe = 0
      End If
   Next
   If (pe) Then Me.Print "数据检验合格。"
End Sub
楼主提供给我的样本文件 3.83MB，共15456条数据， 我复制5倍，　共19.1MB、77280条数据。 在我的一台配置比较差的办公电脑上，全部处理完仅1秒钟。 单读取文件，约0.9秒。
这个确实牛X，20W行数据测试2秒完成
引用 9 楼 Tiger_Zhao 的回复:
1)读文件不无需优化 （这个比较符合我的预期，系统和硬盘都有缓存，就算一个个字符读也不应该慢的，5楼那种“快很多”的情况前提不明确。） 2)输出优化 自己做个类似 StringBuilder 的拼字符串功能，文本框只需赋值一次。 3)解析优化 a.正则需要看具体代码了 b.个人感觉这种特定规则的自己查找应该比正则快 
Function GetID(sLine As String) As String
    Dim lLength     As Long
    Dim i1          As Long    '字段开始位置
    Dim i2          As Long    '字段结束的逗号位置
    Dim s           As String

    lLength = Len(sLine)
    If lLength = 0 Then Exit Function

    i1 = 1
    While i1 <= lLength
        i2 = InStr(i1, sLine, ",")
        If i2 = 0 Then i2 = lLength + 1

        If (i2 - i1) <= 2 Then GoTo NextField
        If Mid$(sLine, i1, 1) <> """" Then GoTo NextField
        If Mid$(sLine, i2 - 1, 1) <> """" Then GoTo NextField

        Select Case (i2 - i1 - 2)
            Case 15
                s = Mid$(sLine, i1 + 1, 15)
                If s Like "###############" Then
                    GetID = s
                    Exit Function
                End If
            Case 18
                s = Mid$(sLine, i1 + 1, 18)
                If s Like "#################[0-9X]" Then
                    GetID = s
                    Exit Function
                End If

        End Select

NextField:
        i1 = i2 + 1
    Wend
End Function
他的代码也已测试，同样的文件跟15楼Chen8013的方式运行时间不相上下
Tiger_Zhao 2014-07-04
  • 打赏
  • 举报
 回复
引用 11 楼 of123 的回复:
你用 Input 方式打开一个几 G 的文件试试就知道了。用 Binary 瞬间完成。
你确定你的计时程序是正常的？ 你确定你感觉的瞬间没有在秒这个数量级？ SATA2硬盘的理论传输速度是3Gbps(300MB/sec)，SATA3硬盘的理论传输速度是6Gbps(600MB/sec)。
CuiCanBin 2014-07-04
  • 打赏
  • 举报
 回复
首先说注意： 1. 如果在意性能问题，请勿用正则表达式。正则表达式可能比用自己的代码分析慢几十倍。只不过平时我们处理的量小，感觉不出来。 2. 最好不要用 ODBC 等过渡方式，因为你不能保证每台机都有相应 ODBC 的驱动。再说了，自己分析读取代码并不复杂，很简单。 方法： 1. 14M 的大小在以前来说是很大，但针对现在的硬件来说很容易了。因此建议一次性读入 String 中，为了防止区域、中英文等问题，最好以二进制方式读取如下： Open strYourFileName For Binary As #intFreeFileNum 然后用 InputB 语句读入到字符串 2. 可以用 Instr 来逐个定位位置来解析出身份证；若想简单但，用 Split 拆分，先拆分回车换行，这样就得到了每一行的内容，然后对每一行再以逗号拆分，这样就得到每个具体元素了（姓名、日期、身份证等等） 备注： 1. 如果是用 VB.NET，有逐行读取的方法，这样可以避免首次加载的长时间问题。 2. 如果还是觉得性能不够，可以用 C 写一个 DLL 来读取分析文件，然后开放给 VB，作为 COM 来调用。
yachong 2014-07-04
  • 打赏
  • 举报
 回复
看楼主贴的这几行，从左向右数身份证号位置不确定，从右向左数是固定的。
of123 2014-07-04
  • 打赏
  • 举报
 回复
你用 Input 方式打开一个几 G 的文件试试就知道了。用 Binary 瞬间完成。
Tiger_Zhao 2014-07-04
  • 打赏
  • 举报
 回复
正则对象适合多重复杂的匹配，使得代码能保持简洁。
但是易用性通常和效率成反比的。
身份证号这种匹配实在太简单了，没有用正则对象的必要。

又：VB 的 Like 运算因为支持的表达式很简单，速度和一般的字符串操着比并不慢。
舉杯邀明月 2014-07-04
  • 打赏
  • 举报
 回复
看来用正则，速度上是比较慢的啊。
舉杯邀明月 2014-07-04
  • 打赏
  • 举报
 回复 
Option Explicit

Private Sub Command1_Click()
   Const SEPSTR   As String = ""","""
      Dim strRlt() As String
      Dim strTemp As String
      Dim dTime   As Double
      Dim lNum    As Long
      Dim iFn     As Integer
      Dim i&, p&, ps&, pe&

   iFn = FreeFile()
   dTime = Timer()
   Open "E:\Tools\2.txt" For Input As #iFn
   Line Input #iFn, strTemp
   lNum = LOF(iFn) / Seek(iFn)
   ReDim strRlt(lNum)
   p = -1&: Seek iFn, 1
   Do
      If (EOF(iFn)) Then Exit Do
      p = p + 1&
      If (p > lNum) Then
         lNum = lNum + 160
         ReDim Preserve strRlt(lNum)
      End If
      Line Input #iFn, strTemp
      i = InStr(20, strTemp, "/")
      ps = InStr(i + 12, strTemp, SEPSTR) + 3
      pe = InStr(ps, strTemp, SEPSTR)
      strRlt(p) = Mid$(strTemp, ps, pe - ps)
   Loop
   Close
   Me.Print "耗时：" & Format$(Timer() - dTime, "0.00秒")
   Me.Print "提取数据：" & p + 1
   ' 结果检查：
   pe = -1&
   For i = 0 To p
      ps = Len(strRlt(i))
      If (ps <> 15& And ps <> 18&) Then
         Me.Print i + 1; "出错"
         pe = 0
      End If
   Next
   If (pe) Then Me.Print "数据检验合格。"
End Sub
楼主提供给我的样本文件 3.83MB，共15456条数据， 我复制5倍，　共19.1MB、77280条数据。 在我的一台配置比较差的办公电脑上，全部处理完仅1秒钟。 单读取文件，约0.9秒。
Tiger_Zhao 2014-07-03
  • 打赏
  • 举报
 回复
1)读文件不无需优化
（这个比较符合我的预期，系统和硬盘都有缓存，就算一个个字符读也不应该慢的，5楼那种“快很多”的情况前提不明确。）
2)输出优化
自己做个类似 StringBuilder 的拼字符串功能，文本框只需赋值一次。
3)解析优化
a.正则需要看具体代码了
b.个人感觉这种特定规则的自己查找应该比正则快
Function GetID(sLine As String) As String

    Dim lLength     As Long

    Dim i1          As Long    '字段开始位置

    Dim i2          As Long    '字段结束的逗号位置

    Dim s           As String



    lLength = Len(sLine)

    If lLength = 0 Then Exit Function



    i1 = 1

    While i1 <= lLength

        i2 = InStr(i1, sLine, ",")

        If i2 = 0 Then i2 = lLength + 1



        If (i2 - i1) <= 2 Then GoTo NextField

        If Mid$(sLine, i1, 1) <> """" Then GoTo NextField

        If Mid$(sLine, i2 - 1, 1) <> """" Then GoTo NextField



        Select Case (i2 - i1 - 2)

            Case 15

                s = Mid$(sLine, i1 + 1, 15)

                If s Like "###############" Then

                    GetID = s

                    Exit Function

                End If

            Case 18

                s = Mid$(sLine, i1 + 1, 18)

                If s Like "#################[0-9X]" Then

                    GetID = s

                    Exit Function

                End If



        End Select



NextField:

        i1 = i2 + 1

    Wend

End Function
赵4老师 2014-07-03
  • 打赏
  • 举报
 回复
为什么不直接InputB到一个String变量中，然后用正则表达式提取呢？
no000on 2014-07-03
  • 打赏
  • 举报
 回复
引用 6 楼 Tiger_Zhao 的回复:
这样拍脑袋假象的分析，真不靠谱！ A: 全程400秒 B: 只解析不输出，多少时间？ C: 只读文件不解析，多少时间？ 判断哪部分最花时间，在考虑如何优化。
我用NtReadFile ，OpenFile读取文件内容，用了17M文本文件测试 只读不输出基本都在15-30毫秒左右 输出到文本框在600-1500毫秒 处理数据这块消耗时间比较长
no000on 2014-07-03
  • 打赏
  • 举报
 回复
引用 9 楼 Tiger_Zhao 的回复:
1)读文件不无需优化 （这个比较符合我的预期，系统和硬盘都有缓存，就算一个个字符读也不应该慢的，5楼那种“快很多”的情况前提不明确。） 2)输出优化 自己做个类似 StringBuilder 的拼字符串功能，文本框只需赋值一次。 3)解析优化 a.正则需要看具体代码了 b.个人感觉这种特定规则的自己查找应该比正则快 
Function GetID(sLine As String) As String
    Dim lLength     As Long
    Dim i1          As Long    '字段开始位置
    Dim i2          As Long    '字段结束的逗号位置
    Dim s           As String

    lLength = Len(sLine)
    If lLength = 0 Then Exit Function

    i1 = 1
    While i1 <= lLength
        i2 = InStr(i1, sLine, ",")
        If i2 = 0 Then i2 = lLength + 1

        If (i2 - i1) <= 2 Then GoTo NextField
        If Mid$(sLine, i1, 1) <> """" Then GoTo NextField
        If Mid$(sLine, i2 - 1, 1) <> """" Then GoTo NextField

        Select Case (i2 - i1 - 2)
            Case 15
                s = Mid$(sLine, i1 + 1, 15)
                If s Like "###############" Then
                    GetID = s
                    Exit Function
                End If
            Case 18
                s = Mid$(sLine, i1 + 1, 18)
                If s Like "#################[0-9X]" Then
                    GetID = s
                    Exit Function
                End If

        End Select

NextField:
        i1 = i2 + 1
    Wend
End Function
我试试你这个方法，回头告诉结论 我先说说我自己方法测试的结果 17M文件 13W多数据 NtReadFile ，OpenFile用这个两个函数读取文件内容 优化了一下正则表达式 将数据加载到listview用时5秒左右 6M文件 20W多数据 同样的操作用了10秒多 处理文件看来跟文件的大小没有关系
Tiger_Zhao 2014-07-02
  • 打赏
  • 举报
 回复
这样拍脑袋假象的分析，真不靠谱！

A: 全程400秒
B: 只解析不输出，多少时间？
C: 只读文件不解析，多少时间？
判断哪部分最花时间，在考虑如何优化。
of123 2014-07-02
  • 打赏
  • 举报
 回复
用 Input 方式打开，大文件载入就需要较长时间。 我以前做过大文件数据提取和格式转换的工作，是采用 Binary 方式打开，每次取入 4096 或更多字节数据。用 Byte 数组读入，用 StrConv 函数转成字符串。 你也可以试试。 这样做的好处是，你可以采用 Globe 方式用正则表达式在一个大块中找到多个身份证号码。需要解决的问题是，你每次截取的数据很可能不是整行的结尾。因此，你需要从反向找到换行符，截掉后面的尾巴，连接到下一块的前头。 我以前的任务，采用这样的方式，处理几个 G 的数据，比 Input 方式快很多。
no000on 2014-07-02
  • 打赏
  • 举报
 回复
引用 2 楼 sysdzw 的回复:
ODBC Standard: "Driver={Microsoft Text Driver (*.txt; *.csv)};Dbq=c:\txtFilesFolder\;Extensions=asc,csv,tab,txt;" OLE DB Standard: "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\txtFilesFolder\;Extended Properties=""text;HDR=Yes;FMT=Delimited"""
数据库引擎已经试过了，不行的
舉杯邀明月 2014-07-02
  • 打赏
  • 举报
 回复
楼主，你用附件的形式，
发个样本文件到我邮箱里，
我试一下有没有别的方法。
你这样贴出来的，我在手机上看着不方便。
加载更多回复（2）
VB串口通信源码210个
001、VB串口通讯视频教程源码41个 002、Visual Basic串口通信工程开发实例导航随书源码7个 003、Visual Basic串口通信与测控应用技术实战详解 源代码(15个全) 004、GE PLC串口通讯，VB编制，读取内存单元 005、PC机与51单片机之间的串口通讯,VB编的,分PC和单片机两部分 006、VB6的串口通信程序,还有crc校验 007、VB Modbus RTU源码,其中协议部分已生成DLL,可直接调用 008、VB.net开发的串口调试程序 009、VB.net实现串口编程，希望大家有用 010、VB版串口调试程序，包含VB源码及安装文件，适合调试串口 011、VB编程RS232串口控制DA数模转换 012、VB编程实现的串口调试工具源码 013、VB编写的RS232串口通信测试程序,以txt格式接受,可定义发送字符 014、VB编写的SouthStar串口测试与51串口烧写器V1.0版 015、VB编写的串口调试助手1.0的源码 016、VB编写的串口短信发送程序,需要数据线支持 017、VB编写的串口通信程序,实现多机通信 018、VB编写的串口通信程序，主要用于上位机与下位机间的通信 019、VB编写的串口通信程序界面参考网上的程序较简单 020、VB编写的串口通讯界面，主要面向51单片机的串口通信 021、VB编写的单片机和PC串口通信的调试程序 022、VB编写的仿真实电子琴操作界面，包含与FPGA串口通信的功能 023、VB串口API通讯,附带BAS文件全部源码,实现与饭卡读卡器通讯 024、VB串口编程,关于上位机的应用,特别适合初级学习VB的学员 025、VB串口编程调试精灵源码 026、VB串口编程实现完整的多费率电表读数软件 027、VB串口程序,,是一个串口使用例程,对初学者有用,特别是工控类的 028、VB串口传输文本,实现2台PC间的通信,类似简单的聊天工具 029、VB串口的一个电子称的项目 030、VB串口调试程序,用于通过串口控制松下空调测试 031、VB串口调试程序及源码 032、VB串口调试软件源代码,可以参考修改为其它通讯程序 033、VB串口调试软件源文件 034、VB串口控制步进电机程序完整源码 035、VB串口通信 6路10位AD转换数据采集源程序 036、VB串口通信,API串口通信模块源码 037、VB串口通信,适用简单,适合初学者 038、VB串口通信操作界面,进行数据采集,画实时曲线 039、VB串口通信程序,可以读取串口并显示保存数据,且能显示数据曲线 040、VB串口通信的源码,学习的好资料 041、VB串口通信调试器的源码程序 042、VB串口通信设计视频演示源码 043、VB串口通信示例 044、VB串口通信数据源码 045、VB串口通信之串口接收程序 046、VB串口通讯测试源代码，有文本和图形两种端口数据观察方式 047、VB串口通讯程序,用来跟单片机通讯 048、VB串口通讯代码(部分) 049、VB串口通讯的参考源程序 050、VB串口通讯实例 高精度电压表(24bit) VB源程序 051、vb串口通讯示例 052、VB串口与伺服电机DSP2407通讯完整代码源程序 053、VB串口源码,动力电池检测数据采集,内含电导巡检模块通讯报文,可,读写,保存,备份数据 054、VB串口字节通信程序，包括：1字节发送子程序，n字节接收子程序 055、VB串行口通信测试示例 056、VB串行通信试验程序 057、VB的MODEM通信源代码,智能化水电远端数据读取系统 058、VB的串口源程序,包括串口的配置界面,接收功能和发送功能 059、VB访问串口，并读取电子秤上显示的数据 060、VB和西门子S7-300 PLC串口通讯程序能实现读写功能 061、VB检测串口工作状态 062、VB简单的串口短信收发功能,使用短信猫测试通过 063、VB开发串口通信,关于生物医学工程专业的血氧饱和度的设计 064、VB开发串口通信软件,利用按钮控件控制高清晰数字展示台 065、VB开发的RS232串口图像处理器驱动(摄像头驱动) 066、VB开发的串口通信源码 067、VB开发的串口与三菱FX PLC通讯源码 068、VB控制串口232通讯,对飞利浦M1卡内数据进行处理,支持密码修改等 069、VB利用Mscomm控件编写的通讯终端，可做串口通讯编程参考示例 070、VB平台单片机与PC机串口通信的PC端程序。小巧易用，功能丰富 071、VB嵌入式串口通讯波形分析显示软件 072、VB实现串口调试LED信息显示屏设备主要代码 073、VB实现串口调试工具的完整源码 074、vb实现串口通信 文件传送系统，用vb以及mscomm控件实现 075、VB实现串口通信，发送命令从而接收相应数据 076、VB使用mscom控件实现PC机与单片机串口通信 077、VB通过COM串口读取条形码设备 078、VB通过串口控制单片机读写24C02源代码 079、VB通讯程序，连接串口可在电脑显示来电号码 080、VB下的串口发短信程序,可选择端口，设置短信中心号码 081、VB写的串口通信，发送和接收实例 082、VB写的串口通信分析程序源码 083、VB写的串口通讯,通过串口对单片机进行控制 084、VB写的串口通讯软件，简单易学，适合初学者 085、VB写的通过串口与考勤机连接通讯的程序 086、vb用控件的写的串口程序，是vb的经典之作 087、VB与USB转串口的通讯完整程序,有详细说明,不需要安装驱动 088、vb与串口通信的关于回路测试的小程序很实用 089、vb语言开发的串口通信，可实现拨号传送文件等 090、VB中串口事件处理函数的示例 091、VB中的串口通讯，串口通讯作为一种古老而又灵活的通讯方式，被广泛地应用 092、VB自动枚举系统串口加摄象头图象采集，坐标系变换 093、Visual Basic2005与自动化系统监控（串并行控制）光盘
VB网络编程实例
◆ 01.htm 1、怎么用mscomm控件检测modem是否与计算机联接正确？2、如何用mscomm挂断modem与别的电话机间的连接？（已接通） ◆ 02.htm CWinInetConnection---一个封装了WinInet API函数的类 ◆ 03.htm MODEM通讯意外处理 ◆ 04.htm MsComm 文字传输 ◆ 05.htm PING一个IP地址(向它发送一个数据包并等待回应) ◆ 06.htm SMTP协议简介 (Simple Mail Transfer Protocol) ◆ 07.htm VB5.0 中远程数据库的访问 ◆ 08.htm VB下如何编写CRC校验程序 ◆ 09.htm VB中Winsock控制的UDP协议的使用 ◆ 10.htm Visual Basic 6中发送邮件的新方法 ◆ 11.htm Visual Basic通信程序设计 ◆ 12.htm Whois 示例程序 ◆ 13.htm Winsock Terminal示例程序 ◆ 14.htm WinSock断开导致客户端问题 ◆ 15.htm 把Outlook信箱中的附件另存为 ◆ 16.htm 保证连网计算机时间同步 ◆ 17.htm 编写网络寻呼机 ◆ 18.htm 编制自已的电话录音小程序 ◆ 19.htm 程序中如何启动默认的拨号连接 ◆ 20.htm 程序中如何启动默认的拨号连接？ ◆ 21.htm 打开器并进入指定网址 ◆ 22.htm 打开一个直接到自己主页的器 ◆ 23.htm 得到用户的IP地址 ◆ 24.htm 电话拨号 ◆ 25.htm 电子邮件的标准格式 (RFC 822) ◆ 26.htm 断开拨号网络的连接 ◆ 27.htm 断开与 Internet 的连接 ◆ 28.htm 发送电子邮件附件 ◆ 29.htm 发送电子邮件附件1 ◆ 30.htm 发送电子邮件附件2 ◆ 31.htm 发送电子邮件附件3 ◆ 32.htm 发送电子邮件附件4 ◆ 33.htm 获得用户网络登录名 ◆ 34.htm 基 于Win95 的VB5 串 口 通 信 程 序 ◆ 35.htm 基于Win95的VB5串口通信程序 ◆ 36.htm 几个设置IE的API ◆ 37.htm 检测运程数据传送的断线 ◆ 38.htm 简单的聊天程序 ◆ 39.htm 简单电子邮件发送程序 ◆ 40.htm 建立拨号联接 ◆ 41.htm 将所有窗口最小化 ◆ 42.htm 利用IE控件访问Internet ◆ 43.htm 利用IE控件设计简易器 ◆ 44.htm 利用Mscomm32控件判断MODEM是否打开，或者正在工作，并且判断拨号时是否遇忙音 ◆ 45.htm 利用TAPI进行电话拨号 ◆ 46.htm 利用VB访问Internet ◆ 47.htm 利用VB设计聊天室 ◆ 48.htm 利用Visual Basic实现无线通讯 ◆ 49.htm 利用Winsock控件实现局域网通信 ◆ 50.htm 强制一个本地或远程NT系统关闭 ◆ 51.htm 取得网卡序列号 ◆ 52.htm 如何从 Internet 上取回某一个网页的內容？ ◆ 53.htm 如何检测是否已连接到Internet？ ◆ 54.htm 如何利用Winsock控件编写自己的Internet程序 ◆ 55.htm 如何每天抓取 Internet 上某一个网页中的图片来更换桌面的壁纸？ ◆ 56.htm 如何启动拨号网路中的连线？ ◆ 57.htm 如何使用MSCOMM32.OCX发送大于80H的字符，可否给个示例程序 ◆ 58.htm 如何通过VB获取网卡地址 ◆ 59.htm 如何用VB打开默认器或默认发信程序？ ◆ 60.htm 如何用Visual Basic编写小型的网络系统 ◆ 61.htm 如何在程序中启动 NT 的【拨号连接】对话框 ◆ 62.htm 如何在程序中启动 NT 的【拨号连接】对话框？ ◆ 63.htm 如何在网页上使用 VB5 制作的 ActiveX 控件？ ◆ 64.htm 如何中断【拨号网络连接】 ◆ 65.htm 设计Browser及FTP程序 ◆ 66.htm 设计Chat程序 ◆ 67.htm 设计E-mail程序 ◆ 68.htm 设置计算机名称 ◆ 69.htm 使用VB获得一页的HTML代码 ◆ 70.htm 使用VB收发电子邮件 ◆ 71.htm 使用标签控件调出器 ◆ 72.htm 使用超链接和发送Email ◆ 73.htm 使用器的文件复制对话框 ◆ 74.htm 输入／输出篇 ◆ 75.htm 通过WnetEnumResource函数获得网络资源 ◆ 76.htm 通往 Internet 的捷径 ◆ 77.htm 显示计算机的名称 ◆ 78.htm 用 MAPI 控件实现发送邮件 ◆ 79.htm 用 WinSock 控件下载文件 ◆ 80.htm 用 Winsock 实现聊天的程序 ◆ 81.htm 用Internet Transfer编写FTP程序 ◆ 82.htm 用Sockets发送电子邮件 ◆ 83.htm 用VB 创 建 自 己 的 通 信 程 序 ◆ 84.htm 用VB5.0开发通信软件的技巧 ◆ 85.htm 用VB5开发IE ◆ 86.htm 用VB编写网络寻呼 ◆ 87.htm 用VB编写小型的网络系统 ◆ 88.htm 用VB创建自己的通信程序 ◆ 89.htm 用VB构建Internet的应用[微软提供] ◆ 90.htm 用VB开发标准CGI程序 ◆ 91.htm 用VB实现客户——服务器（TCP IP）编程实例 ◆ 92.htm 用VB实现客户服务器（TCP、IP）编程实例 ◆ 93.htm 用VB实现聊天讨论室和点对点会话 ◆ 94.htm 用VB写一个定时PING某IP的程序 ◆ 95.htm 用VB制作器 ◆ 96.htm 用Visual Basic 5.0设计E-mail程序(MAPI) ◆ 97.htm 用Visual Basic6.0编写客户服务器程序 ◆ 98.htm 用Visual Basic创建FTP组件 ◆ 99.htm 用Visual Basic开发数据库器 ◆ 100.htm 用Visual Basic轻松地设计Browser及Ftp程序 ◆ 101.htm 用Winsock控件发信Email ◆ 102.htm 用Winsock控件实现文件的下载 ◆ 103.htm 用Winsock实现点对点通信 ◆ 104.htm 邮件检查程序（二） ◆ 105.htm 邮件检查程序（一） ◆ 106.htm 在VB程序中怎样挂断拨号网络 ◆ 107.htm 在VB中操纵OLE服务器应用程序 ◆ 108.htm 在VB中利用UDP协议编写聊天程序 ◆ 109.htm 在VB中模拟实现邮件传输 ◆ 110.htm 在VB中如何得到网络中某一台电脑(电脑名)的网卡地质？ (自己的) ◆ 111.htm 在VB中实现文件上传 ◆ 112.htm 在VB中实现文件上载 ◆ 113.htm 在VB中使用UDP协议 ◆ 114.htm 在VB中用Outlook发电子邮件 ◆ 115.htm 在WindowsNT网络中广播消息 ◆ 116.htm 在程序中打开 Internet 拨号连接窗口 ◆ 117.htm 在一个单位内部或通过广域协议（如X.25）互联的行业内部都有几十或上万台计算机互联，用Intranet虽然可以建立聊天室，但实现点对点实时对话却比较困难。本人用Winsock和VB自制了一套聊天室和对话系统，特拿来供同行们参考。 ◆ 118.htm 在应用中集成器 ◆ 119.htm 在桌面上建立一个 Internet 快捷键 ◆ 120.htm 怎样接收电子邮件（POP3协议简介） ◆ 121.htm 怎样用VB得知系统当前是否处于internet链结状态 ◆ 122.htm 制作自己的网络搜索软件 ◆ 123.htm 自动更新工作站的应用程序 ◆ 124.htm 自己的IE——用VB制作器 ◆ 125.htm HTTP协议（学习笔记） ◆ 126.htm HTTP协议四--关于Chunked编码 ◆ 127.htm IE器完全控制 ◆ 128.htm OICQ服务器系统通讯协议 ◆ 129.htm POP3协议的基本命令 ◆ 130.htm RAS API上的其他Function ◆ 131.htm VB + API 获取 IE 的 “代理服务器” 配制 ◆ 132.htm vb调用winInet API接口post数据到指定的url ◆ 133.htm vb开发通信软件 ◆ 134.htm vb设计数据库电子邮件程序(1) ◆ 135.htm vb设计数据库电子邮件程序(2) ◆ 136.htm vb设计数据库电子邮件程序(3) ◆ 137.htm vb设计数据库电子邮件程序(4) ◆ 138.htm vb设计数据库电子邮件程序(5) ◆ 139.htm vb设计数据库电子邮件程序(6) ◆ 140.htm VB实现应用程序在局域网上自动更新 ◆ 141.htm VB邮件检查程序 ◆ 142.htm vb中从域名得到IP及从IP得到域名 ◆ 143.htm VB中检测是否连网 ◆ 144.htm WebClass实现动态WEB编程之理论篇 ◆ 145.htm Winsocket网络编程谈 ◆ 146.htm Winsock编程框架 ◆ 147.htm Winsock错误代码一览表 ◆ 148.htm 程式自动呼叫拨号网络(RAS API) ◆ 149.htm 打开一个超连接 ◆ 150.htm 得到登入windows 的人的id ◆ 151.htm 访问Internet并调用Explorer ◆ 152.htm 非同步文件下载类 ◆ 153.htm 给Outlook的所有用户发送信件 ◆ 154.htm 获得网卡的MAC地址 ◆ 155.htm 基于WinSock的小型网络管理系统及其实现 ◆ 156.htm 检测是否连接到Internet ◆ 157.htm 检测网络是否连通 ◆ 158.htm 建立Web的超链接树形图 ◆ 159.htm 建立你自己的器－Properties ◆ 160.htm 建立你自己的器－查看源文件 ◆ 161.htm 建立你自己的器－打印 ◆ 162.htm 建立你自己的器－打印设置 ◆ 163.htm 建立你自己的器－发送到FontPage ◆ 164.htm 建立你自己的器－发送到Visual Interdev ◆ 165.htm 建立你自己的器－发送到软盘 ◆ 166.htm 建立你自己的器－复制 ◆ 167.htm 建立你自己的器－另存为 ◆ 168.htm 建立你自己的器－全选 ◆ 169.htm 建立你自己的器－页面设置 ◆ 170.htm 开发通信软件的技术与技巧 ◆ 171.htm 开发网络应用的5个技巧 ◆ 172.htm 利用RAS调用在VB6.0中实现拨号上网 ◆ 173.htm 利用VB提取HTML文件中的EMAIL地址 ◆ 174.htm 枚举出局域网上所有网络资源 ◆ 175.htm 面向Internet的开发工具 ◆ 176.htm 你也可以YAI--VB5中Winsock控件的使用 ◆ 177.htm 判断一个文件是否在IE的缓存中 ◆ 178.htm 启动拨号网络中的连接 ◆ 179.htm 浅谈HTTP协议（二）--返回值 ◆ 180.htm 浅谈HTTP协议（一）--结构 ◆ 181.htm 如何利用 WebBrowser 控件显示 .GIF 动画？ ◆ 182.htm 如何映射(中断网络磁盘) ◆ 183.htm 设计E-mail的接收部分 ◆ 184.htm 设置器默认网址 ◆ 185.htm 实现端口对端口的聊天 ◆ 186.htm 使用ASP建立Http组件 ◆ 187.htm 使用VB编写纯ASP程序 ◆ 188.htm 使用vb获取网上邻居里的计算机名 ◆ 189.htm 使用VB建立Web Server ◆ 190.htm 使用Visual Basic开发通讯软件 ◆ 191.htm 使用资源工具包执行本地和远程重新启动 ◆ 192.htm 谈谈远程控制中关于搜索、控制计算机的功能 ◆ 193.htm 压缩 Html ◆ 194.htm 用ASP、VB和XML建立互联网应用程序(1) ◆ 195.htm 用ASP、VB和XML建立互联网应用程序(2) ◆ 196.htm 用ASP、VB和XML建立互联网应用程序(3) ◆ 197.htm 用ASP、VB和XML建立互联网应用程序(4) ◆ 198.htm 用COMMUNICATION控件进行数据采集（学习笔记） ◆ 199.htm 用OLE自动化Outlook ◆ 200.htm ActiveX控件用于ＤＨＴＭＬ开发 ◆ 201.htm 用VB编写ActiveX DLL实现ASP编程 ◆ 202.htm 用VB编写Windows CGI应用程序 ◆ 203.htm 用VB编写标准CGI程序（上） ◆ 204.htm 用VB编写标准CGI程序（下） ◆ 205.htm 用VB编写收发电子邮件程序 ◆ 206.htm 用VB编写网络监控软件 ◆ 207.htm 用VB编写异步多线程下载程序 ◆ 208.htm 用VB导入导出IE器收藏夹 ◆ 209.htm 用VB定制合路器 ◆ 210.htm 用VB和XML建立集中式应用程序 ◆ 211.htm 用VB将Html转换为文本文件 ◆ 212.htm 用VB开发分布式应用 ◆ 213.htm 用VB设计基于代理服务器的网络计费系统 ◆ 214.htm 用VB制作文件下载程序 ◆ 215.htm 用Visual Basic 实现无线通讯 ◆ 216.htm 用Winsock制作一套聊天室和对话系统 ◆ 217.htm 远程共享显示及声音的实现 ◆ 218.htm 远程启动机器ABC API解决方案 ◆ 219.htm 远程启动机器ABC WMI解决方案 ◆ 220.htm 在VB5中利用Winsock和msDNS控件进行 ◆ 221.htm 找出计算机上当前登录入网的用户 ◆ 222.htm 用VB5 Winsock控件创建TCP(IP)客户机 服务器程序
ChatGPT自动生成代码+数据处理自动化实战
本课程试图让不会编程的你也能借助ChatGPT生成代码，轻松实现数据处理自动化，让你从小白秒变高手。懂编程的你也能收获良多，十倍提升工作效率。课程用ChatGPT自动生成代码，实现了数据处理自动化的绝大部分内容，包括数据导入和导出、数据整理、数据预处理、数据统计分析、数据可视化和与Excel工作表交互等。相关套餐：所属系列课程：Python+VBA办公自动化系列课程-CSDN程序员研修院。20+课程，不断增加和更新。 讲师：童大谦图书《代替VBA！用Python轻松实现Excel编程》和《对比VBA学Python 高xiao实现数据处理自动化》作者。 致力于Office和WPS Office办公自动化，提供VBA和Python全系列视频课程。熟悉Power BI, Python, R, SPSS, MATLAB等数据分析软件。有多年VB和.NET软件开发经验。
高中信息技术——VB数据类型和基础语句结构
前言：下面是针对初学VB同学的刷题总结。 1. 数据类型 1.1 数值类型 数值类型数据可以直接参与运算，代表的数据类型有：Integer(整型)、Long(长整型)、Single(单精度)、Double(双精度)等，囊括了整数、小数、日期、货币等直接可以参与运算的数据类型。 布尔值：数据类型为Boolean，是一种特殊数值类型。只有两种值：True或者False。True对应数值为-1，False对应数值为0。 1.2 字符串类型   字符串类型的数据不能直接参与运算，像字母或者中文字符很容易理解为
基于VB 实时数据采集与处理的多线程设计
0 引言 　在多种可视化编程语言中,VB 具有界面设计功 能强的特点 ,选择它作为开发平台 ,可以快速地创建 应用程序。该特点使其在测控系统的数据采集和处 理中应用比较广泛 ,但是在数据实时处理时 ,往往出 现执行操作界面的菜单命令明显反应变慢 ,操作不 便 ,实时监控数据时引发了程序阻塞。导致此问题 的原因是仅通过一个任务体系解决大数据量的实时 传输与处理 ,而应用多线程的编程思想 ,把实时数据...
VB基础类

7,763

社区成员

197,609

社区内容

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章