@echo off
setlocal
for /f "tokens=*" %%s in ('type "file.txt"') do (
	set "record=%%s"
	call :output
)
endlocal
goto :EOF
 
:output
if not defined prev_rec goto:write
if "%record%" EQU "%prev_rec%" goto:EOF
 
:write
@echo %record% >> final.txt
set "prev_rec=%record%"
 
DeL /f /q file.txt
REn final.txt file.txt

ASi quedaria

Lo mismo de siempre.

Es que de verdad no entiendo como hacerlo. Saludos.

Ya pero por si no te das cuenta no tengo idea de como hacerlo, es por eso que estoy pidiendo ayuda.

Pero parace que hay que rogarles para que ayuden.

Saludos y gracias por nada.

Ya, pero si eso es lo mismo que tengo ya, ahora el problema es como lo aplico para leer esos dtos desde un tXT.


sludos

Ah que fome xD, porque lo intenté ayer de nuevo,  y "me funcionó". Pero el problema es que no se como decirle que lea los datos desde un TXT y no desde una variable predefinida :S

Me prodrías ayudar con eso NovLucker?

De ante mano muchas gracias.

Si usan "^a" es porque son sistemas en ingles, y para seleccionar todo usan CTRL + A, y nosotros usamos CTRL + E xD

@Leo, la idea es no usar elementos externos.

Gracias por las respuestas, voy a revisar el link.

Saludos.

Hola, saludos XD

Hago este tema para preguntar como copiar el contenido de un Archivo .TXT al portapapeles de Windows. Nada mas que eso xD.

Busque en en la Web y encontré un par de formas sobre como hacerlo, pero la de copiar "desde" IExplorer no me sirve porque pregunta a cada rato si quiero copiar al portapapeles y no me sirve xD. El de Word.Aplicattion (o algo así), tampoco porque no sé como aplicarlo a mi código.

Tengo el código listo, solo me falta eso.

El archivo lo almaceno en "C:\Pedido_Digitado.txt"


Por favor si alguien me puede ayudar se los agradeceía mucho.

Atento a sus comentarios.

Saludos.

Aca lo que llevo. Intente con SendKeys pero por alguna razon no funciona y tampoco me tira ningun error.

'Dim i
set Wss=CreateObject("WScript.Shell")
Set objfso = createobject("scripting.filesystemobject")
Set objshell = createobject("wscript.shell")
Set PedidoDigitado = objfso.createtextfile("C:\Pedido_Digitado.txt",True)	'creamos el archivo
'For i=1 To 10 Step 1
CodSAP = InputBox("Ingrese Codigo SAP", "CARRO LLENO", "Cod SAP")
CantMat = InputBox("Ingrese Cantidad", "CARRO LLENO", "Cantidad")
PedidoDigitado.writeline CodSAP & " " & CantMat
'Next
PedidoDigitado.close
 
Set ObjFsoTwo = CreateObject("Scripting.FileSystemObject")
Set ArchivoACopiar = ObjFso.OpenTextFile("C:\Pedido_Digitado.txt",1,True)
Wss.SendKeys "^e"
Wss.SendKeys "^c"
ArchivoACopiar.Close
	MsgBox "Pedido Copiado.-" & vbCrLf & "Genere Orden de Compra.-", vbInformation, "CARRO LLENO -> INFORMACIÓN"

Saludos y gracias de ante mano !

Hola, a todos estoy empezando en VBS y quiero hacer que un programa me pregunte dos datos y los vaya copiando en un TXT.

Eso lo hago, pero el problema es que necesito que llegue a DIEZ y cuando sea diez me diga que esta listo y copie los datos el porta papeles.

Lo que llevo

Set objfso = createobject("scripting.filesystemobject")
Set objshell = createobject("wscript.shell")
Set PedidoDigitado = objfso.createtextfile("C:\Pedido_Digitado.txt",True)	'creamos el archivo
CodSAP = InputBox("Ingrese Codigo SAP", "CARRO LLENO", "Cod SAP")
CantMat = InputBox("Ingrese Cantidad", "CARRO LLENO", "Cantidad")
PedidoDigitado.writeline CodSAP & " " & CantMat
PedidoDigitado.close
 

Me guie por la guia de Novlucker.

Ojala alguien me pueda decir como lo hago, o me diga donde buscar.


Muchas gracias de ante mano.

Atento a sus comentarios.

Saludos