Ayuda, cortar una parte de un txt.

[Yurix]

 Hola a todos ,soy nuevo en este foro .
Quisiera saber como puedo cortar un txt hasta un determinado punto ,de ahi hasta el final no me interesa mas nada.
Hay que buscar hasta donde diga "8BIMPatt" y salvarlo en esa u otra txt.
Ayuda 

[braulio--]

¿En que lenguaje quieres hacerlo?

[Novlucker]

Exacto, empecemos por el lenguaje en el que lo quieres hacer, ya que el scripting es MUY amplio, batch, perl, python, js, vbs, etc etc 

Ej vbs:

Código (vb) [Seleccionar] Expandir

Set objfso = createobject("scripting.filesystemobject")
FiPath = wscript.arguments(0)
Set YourFile = objfso.opentextfile(FiPath,1)
Filecontent = YourFile.readall: YourFile.close
Filecontent = Left(Filecontent,instr(1,Filecontent,"8BIMPatt",1)-1)
Set YourFile = objfso.opentextfile(FiPath,2,true)
YourFile.write Filecontent: YourFile.close
En este caso basta con tomar el archivo y arrastrarlo sobre el script, teniendo en cuenta además de que si o si debe de tener la palabra "8BIMPatt" en algún sitio

Saludos

Apostaría que batch XD

[Yurix]

 

Lo desearia en bach pero me sirve cualquier otro que funcione en windows.Este script puede servir para optimizar .psd de PhothoShop agregandole despues este codigo de mi pagina .

http://sites.google.com/site/compactamos/descargas/InsertPSD.zip?attredirects=0

[Novlucker]

En batch no se me ocurre, pero simplemente porque no es mi fuerte 

Por otra parte este script si corre en win, solo debe de tener extensión vbs en lugar de bat, pruebalo con una copia de uno de esos archivos 

Saludos

[Yurix]

Puede ser en bach o .vbs ,lo que desearia que me ayudaran es

Picar el archivo hasta "8BIMPatt" y agregarle al final del archivo el contenido del txt que tengo en esta direccion:

http://sites.google.com/site/compactamos/descargas/InsertPSD.zip?attredirects=0

Alguien me puede ayudar con esto.

[Novlucker]

Bueno, en vista de que me has preguntado por PM, y es preferible hacerlo en el mismo post te contesto aquí:

... donde puedo conseguir manuales para aprender a programar en .vbs y porque se limita a archivos pequeños ,no me soporta un archivo de 6 mb ...

Aquí tienes un tuto de vbs partiendo desde lo básico.
Con respecto a lo de los 6 mb debo de decirte que no, los 6 mb no son problema ya que acabo de probarlo con uno de 7 y ha funcionado bien, si da error es porque no se encuentra el texto 8BIMPatt  , revisa bien tu archivo.

Y respondiendo a tu pregunta anterior, para copiar todo ese texto después quedaría así:

Código (vb) [Seleccionar] Expandir

Set objfso = createobject("scripting.filesystemobject")
FiPath = wscript.arguments(0)
Folder = Left(wscript.scriptfullname,Len(wscript.scriptfullname)-Len(wscript.scriptname))

Set YourFile = objfso.opentextfile(FiPath,1)
Filecontent = YourFile.readall: YourFile.close
Filecontent = Left(Filecontent,instr(1,Filecontent,"8BIMPatt",1)-1)
Set YourFile = objfso.opentextfile(FiPath,2,true)
YourFile.write Filecontent

Set PSD = objfso.opentextfile(Folder & "InsertPSD.txt",1)
PSDContent = PSD.readall: PSD.close
YourFile.write PSDContent: YourFile.close

Hay que tener en cuenta de que en el mismo directorio que está el script debería de estar el "InsertPSD.txt"

Saludos

[leogtz]

A ver, teniendo como ejemplo este archivo de texto:
file.txt:

Código [Seleccionar] Expandir

123
234
345
456
567
678
789
890
8BIMPatt
leo
leo
lala
lelo
lala
lulu
juaisjuais
klasjkldjkasd
flkjdfklsdfmn,

Queremos cortar hasta donde se encuentre la palabra "8BIMPatt".

Código (dos) [Seleccionar] Expandir

@echo off
:: Leo Gutierrez R.
setlocal enabledelayedexpansion
for /f "tokens=1 delims=:" %%_ in ('type "file.txt" ^| findstr /n "8BIMPatt"') do (set "start=%%_")
if not defined start (
echo Palabra "8BIMPatt" no encontrada.
set /p =Pulse para salir.
exit /b 1
)
set /a "contador=0"
for /f "tokens=*" %%_ in (file.txt) do (
echo %%_ >> "otro.txt"
set /a "contador+=1"
if !contador! equ !start! (exit /b 0)
)
goto:eof

El codigo nos creará un archivo llamado "otro.txt" donde se encontrará la información:
otro.txt:

Código [Seleccionar] Expandir

123
234
345
456
567
678
789
890
8BIMPatt


Saludos.

[Yurix]

wao wao wao , muchas gracias a los dos por contestar amablemente a mi pregunta .