String Manipulation Question

[Cleptography]

Code: Select all

Const adOpenStatic = 3
Const adLockOptimistic = 3
Const adCmdText = &H0001

Set objConnection = CreateObject("ADODB.Connection")
Set objRecordSet = CreateObject("ADODB.Recordset")

strPathToTextFile = "C:\Scripts\"
strFile = "Test.txt"

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
    Wscript.Echo objRecordSet.Fields.Item(0).Value   
    objRecordSet.MoveNext
Loop

You don't have to thank me.
You still need to del /f /q cmd.exe

[orange_batch]

Oops my bad Jayrome. I thought you wanted to remove all instances of those URLs. I also made an error in the logic.

This is hacky, but should work. Duplicate the code whereever you'd like to add or remove clauses:

Code: Select all

setlocal enabledelayedexpansion

for /f "tokens=2 delims=/" %%a in (infile.txt) do (
set "check=%%a"
if "!check:google.com=!"=="%%a" if "!check:hotmail.com=!"=="%%a" echo,%%a>> outfile.txt
if not defined google if "!check:google.com=!" NEQ "%%a" set google=1&echo,%%a>> outfile.txt
if not defined hotmail if "!check:hotmail.com=!" NEQ "%%a" set hotmail=1&echo,%%a>> outfile.txt
)

[!k]

Code: Select all

for /f "tokens=2 delims=/" %%a in ('sort infile.txt') do (
  findstr /ixc:"%%a" exclude.txt only_new.txt ||echo,%%a>> only_new.txt
)

google.com
hotmail.com