- 浏览: 1450978 次
- 性别:
- 来自: 苏州
文章分类
- 全部博客 (564)
- 算法 (7)
- 流金岁月 (1)
- Javascript (30)
- actionscript (108)
- as3.0 game (14)
- flex (84)
- fms2 (27)
- 正则表达式 (7)
- 开源组件代码(as3.0) (1)
- Pv3d (13)
- Cairngorm (4)
- vbs (54)
- VB程序设计 (26)
- 计算机应用与维护 (4)
- 职场实用穿衣技巧 (3)
- 历史风云 (15)
- 淡泊明志,宁静致远 (12)
- 情感 (26)
- 杂谈 (41)
- 越南风 (14)
- DirectX (9)
- Dev-cpp (11)
- 回望百年 (2)
- 建站经验 (2)
- Python (24)
- 网络赚钱 (4)
- php (2)
- html (1)
- ob0短址网 (1)
- ob0.cn (1)
- wordpress (1)
- pandas logistic (1)
- haxe (1)
- opencv (1)
- 微信小程序 (3)
- vue (3)
- Flutter (1)
最新评论
-
GGGGeek:
第一个函数滚动监听不起作用,onPageScroll可以
微信小程序--搜索框滚动到顶部时悬浮 -
naomibyron:
解决办法:工具 -> 编译选项 -> 编译器 ...
dev-c++中编译含WINSOCK的代码出现错误的解决方法 -
haichuan11:
这个…… 代码不全真的是让人很憋屈的感觉啊
actionScript 3.0 图片裁剪及旋转 -
chenyw101:
老兄能留个QQ号吗?具体的我有些东西想请教下你
用VB制作网站登陆器 -
yantao1943:
貌似有点问题,只派发一次事件啊
使用ActionScript 2.0或ActionScript 3.0处理音频文件的提示点(cue
电子邮件(EMAIL)是INTERNET上应用最广泛的一种服务之一。我们每天都在使用电子邮件,有时为了宣传我们的产品、网站等,更是离不开电子邮件,这就需要收集很多的EMAIL地址。下面我们将向大家介绍用VB自编一个EMAIL地址提取器,用来提取保存在我们硬盘中的HTML文件中所包含的EMAIL地址。
一 设计界面
进入VB,选择“标准EXE”新建一工程,选择“工程”菜单下的“引用”,选中Microsoft scripting Runtime”,然后再选择“工程”菜单中的“部件”,在弹出的对话框中选择“Microsoft common dialog control 6.0”,在工具箱中加入通用对话框控件。接下来在默认窗体FORM1上添加三个标签控件,一个文本框控件text1,一个列表框控件LIST1,并命名为lstemail,三个命令command1~command3,其Caption属性分别设置为“提取”、“整理”、“保存”,设置完成的界面如下图所示:
二 输入源程序
Dim X, Y, St1, St2, tmpY As Integer
'提取EMAIL地址子程序
Private Sub StripEmail(FilePath As String)
Dim tmpEmail1, tmpEmail2 As String
Open FilePath For Input As #1
Do Until EOF(1)
On Error Resume Next
Input #1, tmpEmail1
For X = 1 To Len(tmpEmail1)
tmpEmail2 = Mid(tmpEmail1, X, 7)
'查找EMAIL标志
If tmpEmail2 = "mailto:" Then
St1 = X
tmpY = X + 1
For Y = 1 To Len(tmpEmail1)
tmpEmail2 = Mid(tmpEmail1, tmpY, 1)
If tmpEmail2 = Chr(34) Or tmpEmail2 = "?" Then
St2 = tmpY
tmpEmail2 = Mid(tmpEmail1, St1 + 7, ((St2 - St1) - 7))
If (Left(tmpEmail2, 2) <> "//") And (Left(tmpEmail2, 1) <> " ") Then
lstEmail.AddItem tmpEmail2
Exit For
End If
End If
tmpY = tmpY + 1
Next Y
End If
Next X
Loop
Close #1
End Sub
Private Sub Command1_Click()
Dim fs As New FileSystemObject ' 建立 FileSystemObject
Dim fd As Folder ' 定义 Folder 对象
Dim sfd As Folder
Set fd = fs.GetFolder(Text1)
Command1.Enabled = False
Screen.MousePointer = vbHourglass
FindFile fd, "*.htm" 'Text1.Text
Command1.Enabled = True
Screen.MousePointer = vbDefault
End Sub
Sub FindFile(fd As Folder, FileName As String)
Dim sfd As Folder, f As File
' Part I查找该文件夹的所有文件
For Each f In fd.Files
If UCase(f.Name) Like UCase(FileName) Then
Label2 = f.Path
StripEmail (f.Path)
lblEmail = "已查找到的地址数为: " & lstEmail.ListCount
End If
DoEvents
Next
' Part II循环查找所有子文件夹
For Each sfd In fd.SubFolders
FindFile sfd, FileName ' 循环查找
Next
End Sub
Private Sub Command2_Click()
'去掉重复的EMAIL地址
For i = 0 To lstEmail.ListCount - 1
For X = 0 To lstEmail.ListCount - 1
If i = X Then GoTo Nextx
If LCase(lstEmail.List(X)) = LCase(lstEmail.List(i)) Then
On Error Resume Next
lstEmail.RemoveItem X
End If
Nextx:
Next X
Next i
lblEmail = "共有" & lstEmail.ListCount & "个地址"
End Sub
'保存
Private Sub Command3_Click()
'设置文件名
Dim strname As String
commondialog1.Filter = "文本文件(*.txt)|*.txt"
commondialog1.ShowSave
If commondialog1.FileName <> "" Then
strname = commondialog1.FileName
Else
strname = App.Path & "\emailaddress.txt"
End If
'保存文件
Open strname For Output As #1
On Error Resume Next
For i = 0 To lstEmail.ListCount - 1
Print #1, lstEmail.List(i)
Next
Close #1
End Sub
本程序在WINDOWS ME、VB6.0中文企业版中运行通过。以上程序稍加修改即可实现提取其他类型文件中的EMAIL地址。
发表评论
-
wxpython学习笔记
2011-01-13 21:21 2026出处:http://www.cnblogs.com ... -
ADO编程实用宝典
2009-05-08 13:05 1472目录 ADO编程实用宝典 目录 一引入A ... -
创建ACCESS的存储过程
2008-09-11 22:52 4796在Access自身的帮助中看到了Create Procedu ... -
实现服务器端的多线程SOCKET Server
2008-09-11 16:45 3408实现服务器端的多线程SOCKET Server 想要实现 ... -
轻量级xml读写模块 tinyXML
2008-09-11 16:32 2895文档和使用例子: http://www.grinningl ... -
基于TinyXML的XML文档操作(部分测试代码)
2008-09-11 16:31 2432#include <stdio.h> #incl ... -
使用tinyxml类解析XML
2008-09-11 16:26 2444读取和设置xml配置文件是最常用的操作,试用了几个C++的XM ... -
用VB制作网站登陆器
2008-08-25 20:59 4093Private Sub Command1_Click() Wb ... -
vb+Webbrowser控件详解
2008-08-25 20:54 3280方法 说明 GoBack 相当 ... -
VB自动提交表单问题
2008-08-25 14:32 2471需要知道表单名称呢,比如 <Form name=&quo ... -
BBS灌水机脚本(vb scritp, telnet, bbs, sterm)
2008-08-16 11:32 2510'****************************** ... -
c++下载网页的代码,VC6.0编译通过
2008-05-30 19:21 3854#include <winsock2.h> ... -
【译】C/S 多线程Socket类
2008-05-30 19:16 1668Multi-threaded Client/Server So ... -
C++ Socket Class for Windows
2008-05-30 18:59 1630Here, I present the source c ... -
C++ socket程序
2008-05-30 17:58 11510C++ socket程序 下面是一个C++调用windows ... -
字符串提取
2008-05-05 11:24 1298Function bTest(ByVal s As Strin ... -
VB用正则表达式提取网页中的链接
2008-05-05 10:37 2901VBScript code Function getUrl ... -
VB6.0如何使用正则表达式
2008-05-04 20:39 8006最近在用VB6解决一个网页解析的应用,涉及到了正则。如何在VB ... -
VB写一个IE插件
2008-05-04 18:20 3063Q: 就类似于3721的插件一样,当用户浏览我的网站的时候,提 ... -
破解VisualStudio2005(vs2005) 的180天限制
2008-04-19 11:53 4556中文版本的软件本身是正式版,但内置的序列号却是180天试用版的 ...
相关推荐
VB编程源代码 29提取可执行文件内部所有图标VB编程源代码 29提取可执行文件内部所有图标VB编程源代码 29提取可执行文件内部所有图标VB编程源代码 29提取可执行文件内部所有图标VB编程源代码 29提取可执行文件内部...
最后,值得注意的是,虽然VB6及之前的版本提供了直接操作二进制文件的API,但在VB.NET中,我们可以利用.NET Framework的强大功能,如`System.IO`和`System.Drawing`命名空间,来简化这个过程,使代码更加简洁和高效...
标题中的“VB提取FLV流媒体音频文件”指的是使用Visual Basic(VB)编程语言来从FLV(Flash Video)格式的流媒体文件中提取音频数据。FLV是一种常见的网络视频格式,尤其在早期的网页视频中广泛应用。VB作为微软开发...
在VB中,我们可以利用API(Application Programming Interface)函数来实现对其他文件的操作,比如DLL(Dynamic Link Library)和EXE(可执行文件)。在给定的标题和描述中,提到的是如何使用VB来提取这些文件中的...
在VB(Visual Basic)编程中,读取DAT文件是一种常见的数据操作任务。DAT文件本身并不是一种特定格式,它通常被用作存储各种类型的数据,如文本、二进制或结构化数据。VB提供了多种方法来处理这些文件,下面将详细...
vb提取查看thumbs.db文件中的图像内容,VB6.0编写开发的Windows XP缩略图缓存文件查看提取工具,把有图片的文件夹中的Thumbs.db拖到下面的列表框中(在资源管理器的文件夹选项设置中要取消“隐藏受保护的系统文件...
在VB6.0(Visual Basic 6.0)中,我们经常遇到需要从一串混合的字符中提取出数字的情况。这可能涉及到处理用户输入、数据解析或是从文本文件中提取有用信息等任务。本教程将详细介绍如何在VB6.0中实现这个功能。 ...
通过合理利用RES资源文件,可以显著提升VB6.0程序的开发效率和用户体验。 #### 五、注意事项 在使用RES资源文件时,还需要注意以下几点: - **资源ID唯一性**:每个资源必须有一个唯一的ID,以便在加载时正确区分...
VB在二进制文件中提取图像文件,提取VB源码中二进制文件中的所有图片资源ReadFrxRes,程序将最先分析一些二进制文件,诸如frm/frx,ctl/ctx等文件内的图像文件存储方式,然后把图像文件的Byte数组转换成StdPicture...
在IT领域,编程语言Visual ...总之,利用VB从字库中提取汉字字模代码是一项技术含量较高的任务,涉及到字体处理、API调用、文件操作以及数据编码等多个方面。掌握这项技能将使你在处理汉字相关应用时更加得心应手。
本教程将深入探讨如何利用Visual Basic (VB)编程语言和Windows注册表来为特定类型的文件或任意文件在系统右键菜单中添加自定义功能。 首先,我们需要了解注册表在其中的作用。注册表是Windows操作系统用来存储系统...
本教程将深入探讨如何利用VB进行随机文件的读写操作,帮助你理解并掌握这一核心概念。 随机文件,也称为顺序文件,是一种非结构化的数据存储方式,数据在文件中的位置不是固定的,可以根据需要随时插入或删除。这种...
【标题】"totxt从 HTML 文档中提取 TEXT 文件.zip" 涉及的主要知识点是使用VB(Visual Basic)编程语言来实现从HTML文档中提取纯文本内容,并将其转化为TXT文件。这一过程对于数据处理、网页抓取或者文本分析等场景...
在VB6(Visual Basic 6)环境中,我们可以利用其强大的编程能力来处理各种数据操作,如从文本文件中提取数据并生成Excel报表。这个过程通常包括以下步骤: 1. **读取文本文件**:VB6提供了`OpenTextFile`函数,通过...
在VB(Visual Basic)编程环境中,读取DXF(Drawing Exchange Format)文件是AUTOCAD二...通过理解DXF文件格式和VB的编程语法,我们可以构建出能够有效提取和利用坐标信息的程序,为AUTOCAD的二次开发提供强大的支持。
在VB(Visual Basic)编程环境中,我们可以利用内置的控件和功能来实现从网页上下载文件。这个过程通常涉及到HTTP协议的理解以及VB中的Winsock控件或者MSXML库的使用。接下来,我们将深入探讨如何利用VB进行URL下载...
在VB(Visual Basic)编程环境中,我们可以利用Winsock控件来实现文件的传输,这是一个基于TCP/IP协议的通信工具。本示例中的“利用VB传输文件的例子.rar”提供了一个具体的VB应用实例,它展示了如何在局域网内进行...
VB 读写 ini文件 相当使用的一个类,建议大家看以下
在VB中获取临时文件,我们可以利用内置的`System.IO`命名空间中的类,特别是`Path`和`TempFileName`方法。`Path.GetTempPath()`方法用于获取系统的临时文件夹路径,这是存放临时文件的默认位置。`TempFileName`方法...
在VB6.0编程环境中,有时我们需要从复杂的字符串中提取出数字部分,这在处理数据、解析用户输入或分析文本时非常常见。本教程将详细介绍如何利用VB封装一个DLL动态链接库来实现这一功能。DLL文件是一种可重用的代码...