DosTips.com

Code: Select all

@echo off & setlocal enableextensions enabledelayedexpansion
set fs=%~z1

set "dummy=%tmp%\dummy.txt"
<nul set /p "=#" >"%dummy%"
start "" /b /w cmd /q /c for /l %%i in (^) do (^
type "%dummy%" ^>^>"%dummy%" ^& for %%f in ("%dummy%") do ^
if %%~zf geq %fs% exit 0^)

set /a lc=longlen=0,prevoffset=-1
for /f "delims=:" %%a in ('
fc /b "%~1" "%dummy%" ^| findstr /ec:": 0A 23"
') do (set /a lc+=1
set /a len=0x%%a - prevoffset - 2
if !len! gtr !longlen! set /a longlen=len,longline=lc
set /a prevoffset=0x%%a)
echo("%~1": line %longline% is %longlen% bytes long

:end
del "%dummy%"
endlocal & goto :EOF

Code: Select all

@if (@X==@Y) @then
@echo off & setlocal enableextensions disabledelayedexpansion

for /f "tokens=1,2" %%A in ('
cscript //nologo //e:jscript "%~f0" "%~dpnx1"
') do set /a num=%%A,len=%%B
echo(line %num% of file "%~dpnx1" is %len% chars long

endlocal & exit /b 0

@end

// http://rosettacode.org/wiki/Longest_string_challenge

var fso = new ActiveXObject("Scripting.FileSystemObject");
var file = fso.OpenTextFile(WScript.Arguments(0).replace(/\\/g,"\\\\"),1,false);
var current=lc=previous=0, longStr='';

while (!file.AtEndOfStream) {
    lc++;
    current = file.ReadLine().length;
    if (current > previous) {
        longStr = lc + ' ' + current;
        previous = current;
    }
}
WScript.Echo(longStr);

file.Close();
WScript.Quit(0);

Code: Select all

@echo off
setlocal EnableDelayedExpansion

set /A ofs=0, max=0
for /F "tokens=1,2 delims=:" %%a in ('findstr /N /O "^" %1') do (
   set /A len=%%b-ofs, ofs=%%b
   if !len! geq !max! (
      set /A line=%%a-1
      if !len! gtr !max! (
         set "lines=Longest lines (length !len!):"
         set "max=!len!"
      )
      set "lines=!lines! !line!"
   )
)
echo %lines%