troubleshooting Question
VB Script to mimic this DOS Batch Script
asked on
I have a DOS script working great. Problem is it takes 45 min to churn through files. Some are pretty big. Was wondering if there could be and equivalent VB script that could possibly churn through this faster?
@echo off
setlocal EnableDelayedExpansion
REM get a file name and the YEAR column
for /F "tokens=1,2 delims=|" %%A in (filelist.txt) do call :Extract %%A %%B
exit /b
:Extract FileName YearColNo
set filename=%1
set colno=%2
@echo Processing file %filename%
REM Get the header line
set head=
for /F "usebackq delims=" %%F in ("%filename%") do if not defined head set head=%%F
REM Construct RegEx for matching the correct year column
set pat=
for /L %%L in (2,1,%colno%) do set "pat=!pat![^^|]*|"
set "pat=^^!pat!2004^|"
> 2004_%filename% echo,!head!
>>2004_%filename% findstr /R "%pat%" %filename%
REM Head will be added automatically
REM > Non_2004_%filename% findstr /V /R "%pat%" %filename%
@echo off
setlocal EnableDelayedExpansion
REM get a file name and the YEAR column
for /F "tokens=1,2 delims=|" %%A in (filelist.txt) do call :Extract %%A %%B
exit /b
:Extract FileName YearColNo
set filename=%1
set colno=%2
@echo Processing file %filename%
REM Get the header line
set head=
for /F "usebackq delims=" %%F in ("%filename%") do if not defined head set head=%%F
REM Construct RegEx for matching the correct year column
set pat=
for /L %%L in (2,1,%colno%) do set "pat=!pat![^^|]*|"
set "pat=^^!pat!2004^|"
> 2004_%filename% echo,!head!
>>2004_%filename% findstr /R "%pat%" %filename%
REM Head will be added automatically
REM > Non_2004_%filename% findstr /V /R "%pat%" %filename%
Join the community to see this answer!
Join our exclusive community to see this answer & millions of others.
Unlock 1 Answer and 36 Comments.
Learn from the best
Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.
Andrew Hancock - VMware vExpert
See if this solution works for you by signing up for a 7 day free trial.
Unlock 1 Answer and 36 Comments.
Try for 7 days”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.