中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » VBS去除去重复行含有 " 符号运行不正常

luckywlx
新手上路

积分 14
发帖 9
注册 2007-10-10
状态离线

Quote:

On Error Resume Next
Const adOpenStatic = 3
Const adLockOptimistic = 3
Const adCmdText = &H0001
Set fso = CreateObject("Scripting.FileSystemObject")
If Not (fso.FolderExists("ok")) then
Set fd = fso.CreateFolder("ok")
Else
Set fd = fso.GetFolder("ok")
End If
Set objConnection = CreateObject("ADODB.Connection")
Set objRecordSet = CreateObject("ADODB.Recordset")
strPathToTextFile = ".\id\"
Set fs = fso.GetFolder("id")
Set fs = fs.Files
For Each f in fs
  If fso.GetExtensionName(f.Name)="txt" then
strFile = f.Name
Set MyFile = fso.CreateTextFile(fd.Name&"\"&f.Name,true)
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
   MyFile.WriteLine objRecordSet.Fields.Item(0).Value
   objRecordSet.MoveNext
Loop
MyFile.Close
Set Myfile = Nothing
objRecordSet.Close
objConnection.Close
  End If

Next
Set fs = Nothing
Set fd = Nothing
Set fso = Nothing
Set objRecordSet = Nothing
Set objConnection = Nothing
MsgBox "去除成功"

2007-12-17 20:11

luckywlx
新手上路

积分 14
发帖 9
注册 2007-10-10
状态离线

『第 2 楼』:

顶一下啊，大家帮帮忙啊

2007-12-18 11:56

请注意：您目前尚未注册或登录，请您注册或登录以使用论坛的各项功能，例如发表和回复帖子等。

可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题

论坛跳转: