VB 源码删除重复行程序函数

代码如下：

'通过VB脚本改写而成，可以直接使用放入程序中可以直接使用

'删除重复行程序 '

'foutPathName 为待删除的文本文件。注：输入文件不能有空行，别外扩展名必需为.TXT

'Fout   为输出的文本文件
Private Function DelSameLine(foutPathName As String, Fout As String) As Boolean   'foutPathName="c:\miaozk.txt"
    ' On Error GoTo errDel
    DelSameLine = True

Const adOpenStatic = 3
    Const adLockOptimistic = 3
    Const adCmdText = &H1
    Set objConnection = CreateObject("ADODB.Connection")
    Set objRecordset = CreateObject("ADODB.Recordset")

strPathtoTextFile = GetFilePath(foutPathName)
strFile = GetFileName(foutPathName)

objConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & strPathtoTextFile & ";" & _
"Extended Properties=""text;HDR=NO;FMT=Delimited"""

objRecordset.Open "Select DISTINCT * FROM " & strFile, _
objConnection, adOpenStatic, adLockOptimistic, adCmdText

Do Until objRecordset.EOF

Set objFso = CreateObject("Scripting.FileSystemObject")
        Set fp = objFso.OpenTextFile(Fout, 8, True, 0)
        fp.WriteLine objRecordset.Fields.Item(0).Value
        fp.Close
        Set objFso = Nothing
        objRecordset.MoveNext
    Loop
    Exit Function
errDel:
    DelSameLine = False
End Function

'路径名如：c:\miaozk2006.txt
'获取文件名
Public Function GetFileName(FilePathFileName As String) As String '获取 miaozk2006.txt

On Error Resume Next
    Dim i As Integer, J As Integer
    i = Len(FilePathFileName)
    J = InStrRev(FilePathFileName, "\")
    GetFileName = Mid$(FilePathFileName, J + 1, i)
End Function
'获取文件路径
Public Function GetFilePath(FilePathFileName As String) As String '获取   c:\
    On Error Resume Next
    Dim J As Integer
    J = InStrRev(FilePathFileName, "\")
    GetFilePath = Mid$(FilePathFileName, 1, J)
End Function

摘自：网络整理

VB 源码删除重复行程序函数相关推荐

熊猫删除重复行– drop_duplicates（）函数
Pandas drop_duplicates()函数语法 (Pandas drop_duplicates() Function Syntax) Pandas drop_duplicates() fun ...
用vb编制一个计算机程序,VB程序题：编一模拟袖珍计算器的完整程序，界面如下图所示。要求：输入两个操作数和一个操作符，根据操作符决定所做的运算。 VB源码龚沛曾...
VB程序题:编一模拟袖珍计算器的完整程序,界面如下图所示.要求:输入两个操作数和一个操作符,根据操作符决定所做的运算. VB源码龚沛曾提示: 1.为了程序运行正确,对存入操作符的文本框Text3, ...
pandas使用drop_duplicates函数基于subset参数指定的数据列子集删除重复行、并设置keep参数保留重复行中的最后一个数据行
pandas使用drop_duplicates函数基于subset参数指定的数据列子集删除重复行.并设置keep参数保留重复行中的最后一个数据行目录
NetShopForge网上商店程序(VB)源码—讨论-发布
我前天在51aspx上发布了NetShopForge网上商店程序(VB)源码,大家可以看看.代码还算工整,有什么建议和疑问大家可以和我联系,QQ:10982610 MSN:rippleyong@hot ...
^_^ 给力,找了好久,终让我找到了,好多VB源码免费下载,路过的朋友快看看吧
找了好多源码,不知道在那里和朋友们分享啊,,,,,,,,,,,,,,,,,,,,, www.2e3.org/upload/文件属性修改器(比较完善).rar http://www.2e3.org/up ...
获取网关IP和MAC 的VB源码
'窗体上加入控件command1,然后复制下面代码,运行,按command1即可. Option Explicit Private Declare Function OpenProcess Lib & ...
QQ日志刷人气工具 VB源码
QQ日志刷人气工具 VB源码 2010年01月20日 'download by http://www.codefans.net '**系统名称:疯狂QQ日志人气 v1.1 '**模块描述:可刷QQ日志 ...
sql删除表中重复记录_SQL从SQL表中删除重复行的不同方法
sql删除表中重复记录 This article explains the process of performing SQL delete activity for duplicate rows f ...
boost源码剖析之：泛型函数指针类boost::function(rev#3)
boost源码剖析之:泛型函数指针类boost::function(rev#3) 刘未鹏 C++的罗浮宫(http://blog.csdn.net/pongba) Note: 并非新作,03年曾放 ...

VB 源码删除重复行程序函数

VB 源码删除重复行程序函数相关推荐

最新文章

热门文章

VB 源码 删除重复行程序 函数

VB 源码 删除重复行程序 函数相关推荐

最新文章

热门文章

VB 源码删除重复行程序函数

VB 源码删除重复行程序函数相关推荐