Ms-Dos - eliminar ultimo caracter de txt

   
Vista:

eliminar ultimo caracter de txt

Publicado por German Lorenz (5 intervenciones) el 14/01/2016 18:22:33
Buenas tengo un TXT que genere unificando otros TXT (algunos que se generan al ejecutar el BATCH)

1
2
3
4
5
6
7
8
SET/P ANCHO=       Ancho: %=%
CLS
SET/P LARGO=       Largo: %=%
ECHO %ANCHO% > TEXTO2.TXT
ECHO %LARGO% > TEXTO4.TXT
DEL /Q /F PLOTEO.AU3
FOR %%f in (*.txt) do type "%%f" >> PLOTEO.AU3
START /W PLOTEO.AU3


El problema es que ECHO guarda un ENTER al final y la idea de PLOTEO.AU3 es que solo tenga el numero del ancho y largo... y no el ENTER

COmo podria generar un TXT con ECHO o algo similar en CMD sin el ENTER para despues "pegarlos" con el FOR o alguna forma de sacarle el ENTER a los TEXTO2.TXT y TEXTO4.TXT para el mismo fin
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Antoni Masana

eliminar ultimo caracter de txt

Publicado por Antoni Masana (269 intervenciones) el 15/01/2016 08:33:09
Esto hace parte de lo que deseas


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
@ECHO OFF
CLS
ECHO.
    SET /P ANCHO=Ancho: %=%
ECHO.
ECHO.
    SET /P LARGO=Largo: %=%
ECHO.
ECHO.
    ECHO %ANCHO% %LARGO% >PLOTEO.AU3
ECHO.
ECHO.
    TYPE PLOTEO.AU3
ECHO.
ECHO.
    PAUSE
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar

eliminar ultimo caracter de txt

Publicado por German Lorenz (5 intervenciones) el 18/01/2016 17:37:03
Eres un Genioi

el proyecto Terminado quedo asi


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
@ECHO OFF
::Ploteando... v1.0
TITLE Ploteando....
MODE con lines=3 cols=30
COLOR fc
CLS
ECHO Configurar Impresora
ECHO --------------------
SET/P ANCHO=     Ancho: %=%
CLS
ECHO Configurar Impresora
ECHO --------------------
SET/P LARGO=     Largo: %=%
CLS
ECHO Configurar Impresora
ECHO --------------------
SET/P CANTIDAD=     Copias: %=%
DEL /Q /F TEXTO2.TXT
DEL /Q /F TEXTO4.TXT
DEL /Q /F PLOTEO.AU3
ECHO | SET/P DATO1=%LARGO%{TAB}%ANCHO%>TEXTO2.TXT
ECHO | SET/P DATO2=%CANTIDAD%{TAB}{TAB}{TAB}{TAB}{TAB}{TAB}V>TEXTO4.TXT
TYPE *.TXT > PLOTEO.AU3
START PLOTEO.AU3
@EXIT %0

Los archivos de Texto quedaron asi

TEXTO1.TXT

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Opt("WinWaitDelay",100)
Opt("WinTitleMatchMode",4)
Opt("WinDetectHiddenText",1)
Opt("MouseCoordMode",0)
WinWaitActive("Autodesk AutoCAD 2014")
Send("{CTRLDOWN}p{CTRLUP}")
WinWait("Trazar - Modelo")
If Not WinActive("Trazar - Modelo") Then WinActivate("Trazar - Modelo")
WinWaitActive("Trazar - Modelo")
Send("{HOME}")
WinWait("Trazar - Modelo")
If Not WinActive("Trazar - Modelo") Then WinActivate("Trazar - Modelo")
WinWaitActive("Trazar - Modelo")
MouseMove(192,154)
MouseDown("left")
MouseUp("left")
MouseMove(186,288)
MouseDown("left")
MouseMove(186,289)
MouseUp("left")
WinWait("Trazar - Modelo","HP Designjet 500 42 ")
If Not WinActive("Trazar - Modelo","HP Designjet 500 42 ") Then WinActivate("Trazar - Modelo","HP Designjet 500 42 ")
WinWaitActive("Trazar - Modelo","HP Designjet 500 42 ")
Send("{TAB}{SPACE}")
WinWait("Editor de par")
If Not WinActive("Editor de par") Then WinActivate("Editor de par")
WinWaitActive("Editor de par")
Send("{TAB}{TAB}{TAB}{TAB}{SPACE}")
WinWait("Propiedades: \\DISTRIBUIDORA\HP Designjet 500 42 by HP","Configuraci")
If Not WinActive("Propiedades: \\DISTRIBUIDORA\HP Designjet 500 42 by HP","Configuraci") Then WinActivate("Propiedades: \\DISTRIBUIDORA\HP Designjet 500 42 by HP","Configuraci")
WinWaitActive("Propiedades: \\DISTRIBUIDORA\HP Designjet 500 42 by HP","Configuraci")
Send("{TAB}{TAB}{TAB}{SPACE}")
WinWait("Tama")
If Not WinActive("Tama") Then WinActivate("Tama")
WinWaitActive("Tama")
Send("{TAB}{TAB}

TEXTO 2.TXT

Varia segun carga de datos

TEXTO3.TXT

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
{TAB}{TAB}{TAB}{TAB}{SPACE}")
WinWait("Propiedades: \\DISTRIBUIDORA\HP Designjet 500 42 by HP","Configuraci")
If Not WinActive("Propiedades: \\DISTRIBUIDORA\HP Designjet 500 42 by HP","Configuraci") Then WinActivate("Propiedades: \\DISTRIBUIDORA\HP Designjet 500 42 by HP","Configuraci")
WinWaitActive("Propiedades: \\DISTRIBUIDORA\HP Designjet 500 42 by HP","Configuraci")
Send("{TAB}{TAB}{TAB}{SPACE}{TAB}{TAB}{TAB}{TAB}{SPACE}")
WinWait("Editor de par")
If Not WinActive("Editor de par") Then WinActivate("Editor de par")
WinWaitActive("Editor de par")
Send("{TAB}{SPACE}")
WinWait("Modificar un archivo de configuraci")
If Not WinActive("Modificar un archivo de configuraci") Then WinActivate("Modificar un archivo de configuraci")
WinWaitActive("Modificar un archivo de configuraci")
Send("{SPACE}")
WinWait("Trazar - Modelo")
If Not WinActive("Trazar - Modelo") Then WinActivate("Trazar - Modelo")
WinWaitActive("Trazar - Modelo")
Send("{TAB}{TAB}{TAB}{TAB}{TAB}

TEXTO4.TXT

Varia segun Carga de datos

TEXTO5.TXT

1
")


La magia la hace esta linea

1
ECHO | SET/P DATO1=%LARGO%{TAB}%ANCHO%>TEXTO2.TXT

Porque los SET anteriores tienen el stdout y al mandar un set prestableciendo dentro de un ECHO, no captura el STDIN del ECHO el Enter porque el mismo no esta...

Gracias
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar