Foro de elhacker.net

@Echo OFF
 
:: Foro.ElHacker.Net
 
For /F "tokens=*" %%# in ('Dir /B "*.txt"') do (
	For /F "tokens=*" %%a in ('type "%%#"') do (
		Echo %%#: | MORE
		Set "String=000^|%%a"
		Set /A Next=2
		Call :Loop
		Echo __________________ | MORE
	)
)
 
Pause
Exit
 
:Loop
For /F "tokens=%Next%,1,* delims=|" %%a in ('Echo "%STRING%"') do (
	Set /A "BLOCK=%%b" 2>NUL
	Echo %%b | FINDSTR "[0-9]"  || (Goto :EOF)
	Set /A Next+=1
	Call :Loop
)

Echo %Var:~4,4%
Echo %Var:~8,4%
Echo %Var:~12,4%
Etc...

#!/usr/bin/env python
# -*- coding: utf-8 -*-
archivo,lista,acumulador = (open("archivox.txt","r"),[],"")
for letra in archivo.read():
	if letra != "|":
		acumulador = acumulador + letra
	else:
		lista.append(acumulador)
		acumulador = ""
for elemento in lista:
	print elemento + "|"
archivo.close()
 

#!/usr/bin/env python
# -*- coding: utf-8 -*-
import string
archivo = open("archivox.txt","r")
lista = archivo.read().split("|")
for elemento in lista:
	print elemento.replace("\n","") + "|"
archivo.close()
 

lista = archivo.read().split("|")

# -*- coding: UTF-8 -*-
 
archivo = 'archivo.txt'
File.open(archivo, "r").each_line { |bloque|
	puts bloque.split('|')
}

# Pon este código en la carpeta donde tengas los archivos de texto que quieras listar en vertical...
# Este código creará un nuevo archivo con el mismo nombre de cada texto que se vaya procesando...
# Ejemplo: archivo1.txt < > archivo1_NUEVO.txt
 
for file in Dir.glob("*.{txt}") do 
	puts "[+] #{file}:\n\n"
	File.open(file[0..-5] + "_Nuevo.txt", 'a+') do |newfile|	
		File.open(file, "r").each_line { |bloque|
			puts bloque.gsub('|', '|elektro;').split('elektro;'), "\n"
			newfile.puts bloque.gsub('|', '|elektro;').split('elektro;'), "\n"
	}
	end # arrays
end # for
 
print '
			Proceso finalizado.
			Gracias por usar!
 
			Elektro H@cker
			Foro.ElHacker.Net
'
sleep 8