DosTips.com

Code: Select all

@echo off&cls

setlocal enabledelayedexpansion

set initialPath=%~dp0
set /p rootPath=Path :

cd %rootPath%

for %%a in (*.sql) do (
    for /f "delims=" %%b in ('type "%%a"') do (
        set "$Line=%%b"
    )
    if not "!$Line:~-1!"=="/" (
        echo %%~nxa [!$Line:~-1!] =^> Not valid
        ) else (
        echo %%~nxa [!$Line:~-1!] =^> OK
        )
    echo.^**************
)

cd %initialPath%

:End
endlocal
pause >nul

Code: Select all

@echo off
setlocal disabledelayedexpansion
set prompt=$G$S
::Define LF variable containing a linefeed (0x0A)
(set ^"LF=^
%= Pseudo empty Line =%
) 
::Define CR variable containing a carriage return (0x0D)
for /f %%a in ('copy /Z "%~dpf0" nul') do set "CR=%%a"
setlocal enableDelayedExpansion

if "%~1" == "/?" echo ON &call :help &exit /b

if :==:SUB (
:help
 rem %~0 "%~f0"

 rem Letzte Zeile mit Text ohne Zeilenschaltung ausgeben
findstr /n /v /r /c:^".*^!CR^!^!LF^!*^!CR^!*^!LF^!*^" "%~f0"

 rem Letzte Zeile mit Text mit Zeilenschaltung ausgeben
findstr /n /v /r /c:^".*^!CR^!^!LF^!.*^!CR^!^!LF^!*^!CR^!*^!LF^!*^" "%~f0"

 rem Letzte Zeile mit Inhalt mit Zeilenschaltung ausgeben.
(type "%~f0" &type nul)|findstr /n . |findstr /v /r /c:^".*^!CR^!^!LF^!.*^!CR^!^!LF^!*^!CR^!*^!LF^!*^" |findstr /r \/$ &&echo   OK
 rem
exit /b
)

call :sql "Packages" "Package Bodies"

if : equ :SUB (
:sql this ERRORmessages filter 2>nul
rem %~0
set/aFP=0
set "Pipe=>&2 "
for /r %1 %%f in (*.sql )do (
  ( type "%%f" &type nul ) | findstr /n .  | findstr /v /r /c:^".*^!CR^!^!LF^!.*^!CR^!^!LF^!*^!CR^!*^!LF^!*^"  | findstr /r \/$  && (
    echo %%~nxf      / =^> OK
    set "pipe="
  ) || @ >&2 (echo %%~nxf =^> Not valid
  )
  if "%%~dpf" neq "!FP!" @ %PIPE% (
    echo **************
    echo       "%%~dpf"
    set "FP=%%~dpf"
    set "Pipe=>&2 "
  )
)
if "%~2" neq "" shift & goto :sql
exit /b
)

rem END Script
Exit /b

Testlines
/abcde
xyz / End
000/
/abc
/xyz
22/2
999/