Foro de elhacker.net

@echo off
setlocal enabledelayedexpansion
for /f "tokens=* delims=" %%x in ('type C:\Users\Isra\Desktop\Cap 01 B.srt') do (
set linea=%%x
set linea=!linea:. . .=...!
call :show !linea!
)
goto:eof
:show 
echo %* >> "C:\Users\Isra\Desktop\Cap 01 B mod.srt"
goto:eof

00:24:44,884 --> 00:24:46,927 
Los hombres cordero 
son buenos esclavos!

@echo off
for /f "tokens=*" %%X in ('type "%userprofile%\Desktop\Cap 01 B.srt"') do (
	set "linea=%%X"
	Call :Replace
	Call Echo %%Linea_final%% >> "%userprofile%\Desktop\Cap 01 B mod.srt"
)
Exit
 
:Replace
set "linea=%linea:. . .=...%"
set "linea=%linea:>=^>%"
set "linea=%linea:)=^)%"
Set "Linea_final=%LINEA%"
Goto:EOF

@echo off
for /f "tokens=*" %%X in ('type "%userprofile%\Desktop\1.srt"') do (
	set /A "linea=%%X" 2>NUL && Echo+ >>"%userprofile%\Desktop\Cap 01 B mod.srt"|| (set "linea=%%X")
	Call :Replace
	Call Echo %%Linea_final%% >> "%userprofile%\Desktop\Cap 01 B mod.srt"
)
pause
Exit
 
 
:Replace
set "linea=%linea:. . .=...%"
set "linea=%linea:>=^>%"
set "linea=%linea:)=^)%"
Set "Linea_final=%LINEA%"
Goto:EOF

Type archivo.srt > archivoNUEVO.srt

Option Explicit
 
Sub Save2File (sText, sFile)
    Dim oStream
    Set oStream = CreateObject("ADODB.Stream")
    With oStream
        .Open
        .CharSet = "utf-8"
        .WriteText sText
        .SaveToFile sFile, 2
    End With
    Set oStream = Nothing
End Sub
 
' Example usage: '
Save2File "The data I want in utf-8", "test.txt"

@echo off
 
REM El código de páginas para no tener que manipular el string para reemplazar caracteres latinos.
CHCP 1250 >NUL
 
For /R %%# in (*.srt) Do (
	Echo Procesando archivo "%%~nx#"
	FOR /F "tokens=*" %%X in ('Type "%%#"') do (
		Echo "%%X"| findstr /R ".[^0-9]." >NUL || (Echo+ >> "%TEMP%\%%~nx#.srt")
		set "linea=%%X"
		Call :Replace
		Call Echo %%Linea_final%% >> "%TEMP%\%%~nx#.srt"
	)
	Type "%TEMP%\%%~nx#.srt" | MORE +1 > "%%~n#.MOD.%%~x#"
	Del /Q "%TEMP%\%%~nx#.srt"
)
Exit
 
 
:Replace
set "linea=%linea:>=^>%"
set "linea=%linea:)=^)%"
set "linea=%linea:. . .=...%"
Set "Linea_final=%LINEA%"
Goto:EOF

@Echo OFF
CHCP 1250
Type archivoUNICODE.srt>ArchivoANSI.srt

set "linea=%linea:¿ =¿%"
set "linea=%linea:¡ =¡%"

@Echo off
wscript.exe convert.vbs "archivo"

objStream.Charset = AQUÍ EL CHARSET

Option Explicit
 
Dim objFSO, strFileIn, strFileOut
 
strFileIn = WScript.Arguments.Item(0)
 
Set objFSO = CreateObject( "Scripting.FileSystemObject" )
strFileOut = objFSO.GetBaseName( strFileIn ) & "_utf8.txt"
Set objFSO = Nothing
 
UTF8 strFileIn, strFileOut
 
 
Function UTF8( myFileIn, myFileOut )
' UTF8()  Version 1.00
' Written by Rob van der Woude
' http://www.robvanderwoude.com
 
    Dim objStream
 
    ' Valid Charset values for ADODB.Stream
    Const CdoBIG5        = "big5"
    Const CdoEUC_JP      = "euc-jp"
    Const CdoEUC_KR      = "euc-kr"
    Const CdoGB2312      = "gb2312"
    Const CdoISO_2022_JP = "iso-2022-jp"
    Const CdoISO_2022_KR = "iso-2022-kr"
    Const CdoISO_8859_1  = "iso-8859-1"
    Const CdoISO_8859_2  = "iso-8859-2"
    Const CdoISO_8859_3  = "iso-8859-3"
    Const CdoISO_8859_4  = "iso-8859-4"
    Const CdoISO_8859_5  = "iso-8859-5"
    Const CdoISO_8859_6  = "iso-8859-6"
    Const CdoISO_8859_7  = "iso-8859-7"
    Const CdoISO_8859_8  = "iso-8859-8"
    Const CdoISO_8859_9  = "iso-8859-9"
    Const cdoKOI8_R      = "koi8-r"
    Const cdoShift_JIS   = "shift-jis"
    Const CdoUS_ASCII    = "us-ascii"
    Const CdoUTF_7       = "utf-7"
    Const CdoUTF_8       = "utf-8"
 
    ' ADODB.Stream file I/O constants
    Const adTypeBinary          = 1
    Const adTypeText            = 2
    Const adSaveCreateNotExist  = 1
    Const adSaveCreateOverWrite = 2
 
    On Error Resume Next
 
    Set objStream = CreateObject( "ADODB.Stream" )
    objStream.Open
    objStream.Type = adTypeText
    objStream.Position = 0
    objStream.Charset = CdoUTF_8
    objStream.LoadFromFile myFileIn
    objStream.SaveToFile myFileOut, adSaveCreateOverWrite
    objStream.Close
    Set objStream = Nothing
 
    If Err Then
        UTF8 = False
    Else
        UTF8 = True
    End If
 
    On Error Goto 0
End Function

@echo off
CHCP 1250 >NUL
 
For /R %%# in (*.srt) Do (stringconverter.exe "%%#" "%%~n#.ANSI%%~x#" /ANSI)
 
For /R %%# in (*ANSI.srt) Do (
	Echo Procesando archivo "%%~nx#"
	FOR /F "tokens=*" %%X in ('Type "%%#"') do (
		Echo "%%X"| findstr /R ".[^0-9]." >NUL || (Echo+ >> "%TEMP%\%%~nx#.srt")
		set "linea=%%X"
		Call :Replace
		Call Echo %%Linea_final%% >> "%TEMP%\%%~nx#.srt"
	)
	Type "%TEMP%\%%~nx#.srt" | more +1 > "%%~n#.MOD.%%~x#"
	Del /Q "%TEMP%\%%~nx#.srt", "%%~nx#"
)
Exit
 
:Replace
set "linea=%linea:. . .=...%"
set "linea=%linea:¿ =¿%"
set "linea=%linea:¡ =¡%"
set "linea=%linea:Klilyn=Krilin%"
set "linea=%linea:Ginew=Ginyu%"
set "linea=%linea:>=^>%"
set "linea=%linea:)=^)%"
Set "Linea_final=%LINEA%"
Goto:EOF