DosTips.com

Code: Select all

RGRGRKRGRHRGRGRGIGRMKHIGRMRRIGKMKMIGRHRLIGRIRNIGRLRGIGRKRGIGRGRGIGRQRHIGKLKHIGRGRIIGRGRGIGRGRGIGRGRGIGRRRRIGKKKKGDGARGRGRKRGRHRGRHRGIGRMKHIGRGRGIGKMKMIGRHRLIGRIRMIGRLRGIGRKRGIGRGRGIGRGRRIGKMKLIGRGRRIGRNRIIGR------KKHIGRGRGIGKMKMIGRHRLIGRLKLIGRLRGIGRK
|||||||||||||||||||||||||.|.||.||.|||...|||...|||...||....|||.|.|||.|.||....|||.|.|||||||||...|||...|||...||....|||||||||||||||||||||||||||||...|||||||||||||||.|.|||.|||||||.|||||||||...||....|||...|||.|.|||      |..||||||||.||.|||||.|||.|.|||.|.|||.
RGRGRKRGRHRGRGRGIGRMKHIGRGRKIGRMKHIGRLKHIGRMKHIGRHKLIGKMKMIGRHRLIGRGRGIGRQRGIGRKRNIGRGRGIGRMKHIGRNKMIGRMKHIGRRRQGDGARGRGRKRGRHRGRHRGIGRMKHIGRRKMIGKMKMIGRHRLIGRGRKIGRQRGIGRKRNIGRGRGIGRMKHIGRHRRIGRMKHIGRGRQIGRQRGIGRKRNIGRGRGIGRMKHIGRHRPIGRMKHIGRNRRIGRM

Code: Select all

RGRGRKRGRHRGRGRGIGRMKHIGR
|||||||||||||||||||||||||
RGRGRKRGRHRGRGRGIGRMKHIGR

R
|
R

IG
||
IG

MK
||
MK

IGR
|||
IGR

IGR
|||
IGR

IGR
|||
IGR

IG
||
IG

IGR
|||
IGR

R
|
R

IGR
|||
IGR

R
|
R

IG
||
IG

IGR
|||
IGR

R
|
R

IGRGRGIGR
|||||||||
IGRGRGIGR

IGR
|||
IGR

IGR
|||
IGR

IG
||
IG

GDGARGRGRKRGRHRGRHRGIGRMKHIGR
|||||||||||||||||||||||||||||
GDGARGRGRKRGRHRGRHRGIGRMKHIGR

IGKMKMIGRHRLIGR
|||||||||||||||
IGKMKMIGRHRLIGR

R
|
R

IGR
|||
IGR

RGIGRKR
|||||||
RGIGRKR

IGRGRGIGR
|||||||||
IGRGRGIGR

IG
||
IG

IGR
|||
IGR

IG
||
IG

R
|
R

R
|
R

IGR------K
|||      |
IGRQRGIGRK

IGRGRGIG
||||||||
IGRGRGIG

MK
||
MK

IGRHR
|||||
IGRHR

IGR
|||
IGR

K
|
K

IGR
|||
IGR

R
|
R

IGR
|||
IGR

Code: Select all

@echo off 
SetLocal DisableDelayedExpansion
set ^"LF=^

^" don't remove previous line     & rem line feed
set ^"\n=^^^%LF%%LF%^%LF%%LF%^^"  & rem newline with line continuation

:: get string length (macro definition)
:: ------------------------------------------------------------------------------------------------------------------------------------------------------------------------
:: http://www.dostips.com/forum/viewtopic.php?f=3&t=2518

set STRLEN=for %%{ in (1 2) do if %%{==2 (%\n%
  for /F "tokens=1,2 delims=, " %%1 in ("!argv!") do (%\n%
    set "S=A!%%~2!"^&set "L=0"%\n%
    for /L %%A in (12,-1,0) do (set/a "L|=1<<%%A"^&for %%B in (!L!) do if "!S:~%%B,1!"=="" set/a "L&=~1<<%%A")%\n%
    for /F "delims=" %%} in ("!L!") do EndLocal^& set "%%1=%%~}"%\n%
  )%\n%
) else SetLocal EnableDelayedExpansion ^& set argv=,


set "inputFile=yourfile.txt"
set "outputFile=result.txt"

SetLocal EnableExtensions EnableDelayedExpansion

rem read three lines from file
<"%inputFile%" (
  set /p line1=
  set /p line2=
  set /p line3=
) 

rem split string into substrings based on delimiter 
rem http://www.dostips.com/forum/viewtopic.php?f=3&t=6429#p41035
set/a i=1
set "x!i!=%line2:.=" & set /A i+=1 & set "x!i!=%"

set/a next=0

rem parse splitted string. any string length of 0 means concurrent dots
>"%outputFile%" (
  for /L %%i in (1,1,!i!) do (

    set/a start%%i=!next!
    
    %STRLEN% len%%i,x%%i

    rem if len not 0 then 
    if !len%%i! NEQ 0 (
      set/A next+=len%%i
      for %%a in (!start%%i!) do (
        for %%b in (!len%%i!) do (
          echo !line1:~%%a,%%b!
          echo !line2:~%%a,%%b!
          echo !line3:~%%a,%%b!
          echo/
        )
      )
    )
    rem advance start pointer
    set/A next+=1
  )
)
EndLocal
EndLocal
exit/B

Code: Select all

@echo off
setlocal EnableDelayedExpansion

rem Read the lines
set "i=0"
for /F "delims=" %%a in (input.txt) do (
   set /A i+=1
   set "line[!i!]=%%a"
)

rem Extract the lengths from second line
set "lens="
set "len=0"
set "lastChar=%line[2]:~0,1%"
for /L %%i in (0,1,8191) do if defined lastChar (
   set "newChar=!line[2]:~%%i,1!"
   if "!newChar!" equ "!lastChar!" (
      set /A len+=1
   ) else (
      set "lens=!lens! !len!"
      set "len=1"
      set "lastChar=!newChar!"
   )
)

rem Generate output over first three lines
set /A i=0, show=0
if "%line[2]:~0,1%" equ "|" set "show=1"
(for %%n in (%lens%) do (
   if !show! equ 1 (
      for %%i in (!i!) do for /L %%j in (1,1,3) do (
         echo !line[%%j]:~%%i,%%n!
      )
      echo/
   )
   set /A "i+=%%n, show=^!show"
)) > output.txt

Code: Select all

@echo off
setlocal EnableDelayedExpansion

rem Read the lines
set "i=0"
for /F "delims=" %%a in (input.txt) do (
   set /A i+=1
   set "line[!i!]=%%a"
)

rem Extract lengths from second line
set /A i=0, len=0, show=0
set "lastChar=%line[2]:~0,1%"
if "%lastChar%" equ "|" set "show=1"
(for /L %%i in (0,1,8191) do if defined lastChar (
   set "newChar=!line[2]:~%%i,1!"
   if "!newChar!" equ "!lastChar!" (
      set /A len+=1
   ) else (
      rem Generate output over first three lines
      if !show! equ 1 (
         for /F "tokens=1,2" %%i in ("!i! !len!") do for /L %%k in (1,1,3) do (
            echo !line[%%k]:~%%i,%%j!
         )
         echo/
      )
      set /A "i+=len, len=1, show=^!show"
      set "lastChar=!newChar!"
   )
)) > output.txt

Code: Select all

@echo off
setlocal enableDelayedExpansion
set "input=test.txt"
set "output=output.txt"

for /f "delims=: tokens=1*" %%A in ('findstr /n "^" "%input%"') do set "ln%%A=%%B"

set "beg="
>"%output%" (
  for /l %%N in (0 1 8191) do (
    if "!ln2:~%%N,1!" equ "|" (
      if not defined beg set /a beg=%%N
    ) else if defined beg (
      set /a len=%%N-beg
      for %%A in ("!beg!,!len!") do for /l %%N in (1 1 3) do echo !ln%%N:~%%~A!
      echo(
      set "beg="
    )
  )
  if defined beg for /l %%N in (1 1 3) do echo !ln%%N:~%beg%!
)

Code: Select all

@echo off
setlocal enableDelayedExpansion
set "input=test.txt"
set "output=output.txt"

for /f "delims=: tokens=1*" %%A in ('findstr /n "^" "%input%"') do set "ln%%A=%%B"

set /a pos=0
>"%output%" (
  for /f "tokens=1,2" %%A in (
    'jrepl "(.)\1*" "$txt=$0.length+' '+$1" /inc 2 /jmatchq /f "%input%"'
  ) do (
    if "%%B" == "|" (
      for %%P in (!pos!) do for /l %%N in (1 1 3) do echo !ln%%N:~%%P,%%A!
      echo(
    )
    set /a pos+=%%A
  )
 )

Code: Select all

IGR------K
|||      |
IGRQRGIGRK

Code: Select all

IGR
|||
IGR

K
|
K

Code: Select all

   set "newChar=!line[2]:~%%i,1!"
   if "!newChar!" equ "!lastChar!" (

Code: Select all

@echo off
setlocal EnableDelayedExpansion

rem Put here the maximum number of consecutive dots:
set "nDots=4"
set "dots=" & for /L %%i in (1,1,%nDots%) do set "dots=!dots!."

rem Read the lines
for /F "tokens=1* delims=:" %%a in ('findstr /N "^" input.txt') do set "ln%%a=%%b"

rem Extract lengths from second line
set "l2=%ln2: =|%."
for /L %%i in (%nDots%,-1,1) do for /F %%d in ("!dots:~0,%%i!") do set "l2=!l2:%%d="_"@"_/A"i+=%%i+j,j=!"
set "l2=%l2:@=n=^!n^! "^^^!i^^^!,^^^!j^^^!"%" & set "l2=!l2:|=+1!"
set "n=" & set "i=0" & 2> nul set /A "j=%l2:_= & set %0" & set "n=!n:"0,"=!"

rem Generate output over first three lines
(for %%n in (%n%) do (
   for /L %%j in (1,1,3) do echo !ln%%j:~%%~n!
   echo/
)) > output.txt

Code: Select all

Demonstration purposes only:
Not suitable:
Last lines of first set of 8191 characters:
..........IGRKRRIGKRKMGDGARGRGRGRIRIRN
..........||..|.||....||||||||||||||||
..........IGKMRQIGRGRPGDGARGRGRGRIRIRN
First lines of second set of 8191 characters:
RRRGIGRI------RMIGKMK..........
|||||||.|||||||.|||||..........
RRRGIGRMKLIGRHRLIGKMK..........

Suitable:
Last lines of first set of 8191 characters:
..........IGRKRRIGKRKMGDGARGRGRGRIRIRNRRRGIGR
..........||..|.||....|||||||||||||||||||||||
..........IGKMRQIGRGRPGDGARGRGRGRIRIRNRRRGIGR
First lines of second set of 8191 characters:
I------RMIGKMK..........
.|||||||.|||||..........
MKLIGRHRLIGKMK..........

Code: Select all

//>nul 2>nul||@goto :batch_code
/*
:batch_code
@echo off
setlocal
rem place desired exe name
set "theExeFile=myParser.exe"

rem input output files. place full path plus filename i.e)
rem set "inputFile=C:\Users\Michael\Desktop\input.txt"
rem set "outputFile=C:\Users\Michael\Desktop\output.txt"
set "inputFile=.\input.txt"
set "outputFile=.\output2.txt"

if not exist "%theExeFile%" call :build_the_exe || exit/B

echo Processing, wait...
rem for /F "tokens=*" %%a in ('%theExeFile% "%inputFile%" "%outputFile%"') do echo %errorlevel% %%a
%theExeFile% "%inputFile%" "%outputFile%"
if %errorlevel% NEQ 0 (
  echo Error code %errorlevel% 
) else (  
  echo Done.
)
endlocal
exit /b 0



:build_the_exe
:: find csc.exe
set "frm=%SystemRoot%\Microsoft.NET\Framework\"
for /f "tokens=* delims=" %%v in ('dir /b /a:d  /o:-n "%SystemRoot%\Microsoft.NET\Framework\v*"') do (
   set netver=%%v
   goto :break_loop
)
:break_loop
set "csc=%frm%%netver%\csc.exe"
:: csc not found
if "%csc%" == "\csc.exe" echo/&echo/Warning: Net Framework Not Found&exit/B 1
::csc found
call %csc% /nologo /out:"%theExeFile%" "%~dpsfnx0"
exit/B 0
*/


//begin c# code
using System;
using System.IO;
using System.Linq;
using System.Collections.Generic;

namespace ElZooilogico
{
  public class Parser
  {
    private static string[] readArray = new string[] {};

    private static void parse(string inputFile, string outputFile)
    {
      readArray = File.ReadLines(inputFile).Take(3).ToArray();

      using ( System.IO.StreamWriter output = new System.IO.StreamWriter(outputFile) )
      {
        char last = '\0';
        int start = 0, end = 0;

        foreach(char c in readArray[1])
        {
          if ( c == '.' )
          {
            if ( last == '.' )
              start++;
            else
            {
              for ( int j = 0; j < 3; j++ )
                output.WriteLine(readArray[j].Substring(start, end-start));

              output.WriteLine();
              start = end+1;
            }
          }
          last=c;
          end++;
        }
        if (end > start)
        {
          for ( int j = 0; j < 3; j++ )
            output.WriteLine(readArray[j].Substring(start, end-start));
          output.WriteLine();
        }
      } // output file is closed here

    }

    public static int Main(string[] args)
    {
      try {
        if ( args.Length != 2 )
          return 9;
        if ( !File.Exists(args[0]) )
          return 1;
        parse(args[0], args[1]);
      } catch { return 3; }
      return 0;
    }

  } // class Parser

} // namespace ElZooilogico

Code: Select all

@if (@X)==(@Y) @end /* Harmless hybrid line that begins a JScript comment

:: Batch Code
@cscript.exe //E:JScript //nologo "%~f0"
@exit /b

:: Jscript Code */
var ln1 = WScript.StdIn.ReadLine(),
    ln2 = WScript.StdIn.ReadLine(),
    ln3 = WScript.StdIn.ReadLine();

for (var beg=false, i=0; i<ln2.length; i++) {
  if (ln2.charAt(i) !== '.') {
    if (beg === false) beg=i;
  } else {
    if (beg !== false) output(beg,i);
    beg = false;
  }
}
if (beg !== false) output(beg,ln2.length);

function output( beg, end ) {
  WScript.StdOut.WriteLine( 
    ln1.substring(beg,end)+'\n'+
    ln2.substring(beg,end)+'\n'+
    ln3.substring(beg,end)+'\n'
  );
}

Code: Select all

ExtractRuns <input.txt >output.txt

Code: Select all

yourProgram | ExtractRuns >output.txt

Code: Select all

<# : begin Batch portion
@echo off & setlocal

set "infile=input.txt"
set "outfile=output.txt"

powershell -noprofile "iex (${%~f0} | out-string)"
echo Done.
exit /b

: end Batch / begin PowerShell hybrid code #>

$reader = new-object IO.StreamReader[] 3
0..2 | %{ $reader[$_] = new-object IO.StreamReader($env:infile) }
$writer = new-object IO.StreamWriter($env:outfile)
$reader[1,2,2].ReadLine() | out-null

write-host -n "Working... "

while (@(13,10) -notcontains $char) {
   [char[]]$chunk = @()
   $char = $reader[1].Read()

   while ($char -eq 46) {
      $reader[0,2].Read() | out-null
      $char = $reader[1].Read()
   }

   while (@(13,10,46,-1) -notcontains $char -and $chunk.length -lt 8191) {
      $chunk += ,$char
      $char = $reader[1].Read()
   }

   if ($chunk.Length) {

      $buffer = new-object char[] $chunk.Length
      [void]$reader[0].Read($buffer, 0, $buffer.length)
      $writer.WriteLine($buffer)
      $writer.WriteLIne($chunk)
      [void]$reader[2].Read($buffer, 0, $buffer.length)
      $writer.WriteLine($buffer)
      $writer.WriteLine()
      $reader[0,2].Read() | out-null
   }
}

$reader | %{ $_.Close() }
$writer.Close()