1=Bienvenido a mi programa
2=Porfavor seleccione una opcion para continuar...
3=Codeado por Elektro H@cker
4=opcion

1=Welcome to my program
2=Please choose an option to continue...
3=Coded by Elektro H@cker
4=option

@Echo OFF
 
Echo What language you will to use? \ Que lenguaje quiere usar? | MORE
Echo [1] English, [2] Spanish, [3] Catalan.                     | MORE
Choice /C 123 /M "Choose a language"
If %Errorlevel% EQU 1 (Set LANG=English)
If %Errorlevel% EQU 2 (Set LANG=Spanish)
 
For /F "Tokens=2 Delims==" %%a in ('Type "%LANG%.ini" ^| Find "1="') Do (set saludo=%%a)
For /F "Tokens=2 Delims==" %%a in ('Type "%LANG%.ini" ^| Find "2="') Do (set Selecciona=%%a)
For /F "Tokens=2 Delims==" %%a in ('Type "%LANG%.ini" ^| Find "3="') Do (set autor=%%a)
For /F "Tokens=2 Delims==" %%a in ('Type "%LANG%.ini" ^| Find "4="') Do (set opcion_menu=%%a)
 
:Menu
Echo+ 
Echo %Saludo%
Echo %autor%           | MORE
Echo %Selecciona%      | MORE
Echo: %opcion_menu% 1
Echo: %opcion_menu% 2
Echo: %opcion_menu% 3  | MORE
 
Set /P option= ^>^> 
Pause
Exit

@Echo OFF
 
Goto :Program
:Langs
If /I "%lang%" EQU "English" (
	Title Language Test Menu
	Set saludo=Welcome to my program
	Set Selecciona=Please choose an option to continue...
	Set opcion_menu=Option
	Set Autor=Coded by Elektro H@cker
)
 
If /I "%lang%" EQU "Spanish" (
	Title Test de menu de idiomas
	Set saludo=Bienvenido a mi programa
	Set Selecciona=Porfavor seleccione una opcion para continuar...
	Set opcion_menu=Opcion
	Set Autor=Codeado por Elektro H@cker
)
 
If /I "%lang%" EQU "Catalan" (
	Title Test de menu d'idiomes
	Set saludo=Benvingut al meu programa
	Set Selecciona=Si us plau seleccioneu una opcio per continuar ...
	Set opcion_menu=Opcio
	Set Autor=Codeaixat per Elektro H@cker
)
Goto :EOF
 
:Program
Echo What language you will to use? \ Que lenguaje quiere usar? \ Que llenguatge voleu utilitzar? | MORE
Echo [1] English, [2] Spanish, [3] Catalan.                                                       | MORE
Choice /C 123 /M "Choose a language"
If %Errorlevel% EQU 1 (Set LANG=English)
If %Errorlevel% EQU 2 (Set LANG=Spanish)
If %Errorlevel% EQU 3 (Set LANG=Catalan)
Call :Langs
 
:Menu
Echo+ 
Echo %Saludo%
Echo %autor%           | MORE
Echo %Selecciona%      | MORE
Echo: %opcion_menu% 1
Echo: %opcion_menu% 2
Echo: %opcion_menu% 3  | MORE
 
Set /P option= ^>^> 
Pause
Exit

# 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

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

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

@echo off
dism /online /disable-feature /featurename:InboxGames /quiet /norestart
dism /online /disable-feature /featurename:"More Games" /quiet /norestart
dism /online /disable-feature /featurename:"Internet Games" /quiet /norestart
exit

@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...