Mensajes

[Bueno lo q hace el Code es Buscar la primera linea que tenga la palabra Teléfono y la cambia por el nuevo q tu introduzcas]

Código (bash) [Seleccionar] Expandir

@echo off
goto main

:error
echo archivo no existe.
pause
goto main


:Main
cls
set /p file=Indique el nombre del archivo:
if not exist %file% goto error
set string=telefono
echo.
setlocal enabledelayedexpansion
set /a nchar=0
call:Contar
set /a nlin=0
For /f "useback tokens=*" %%F in ("%file%") do (
    set /a nlin+=1
    set "line=%%F"
    set /a xcont=0
    call:Comparar
)
echo. & echo Terminado. & pause>nul & goto Main

:Contar
If /i "!string:~%nchar%,1!" == "" goto:eof
set /a nchar+=1
goto Contar

:Comparar
If /i "!line:~%xcont%,%nchar%!" == "%string%" (
    set mtch=T
    call:Msj
)
If /i "!line:~%xcont%,%nchar%!" == "" (
    set mtch=F
    call:Msj
    goto:eof
)
set /a xcont+=1
goto Comparar

:Msj
If "%mtch%" == "T" (
    cls
    color a
    echo Telefono encontrado:  [%line%] & echo.
    call :Continue
)
If "%mtch%" == "F" echo LINEA %nlin%: %line%
goto:eof
exit

:Continue
set /p numero=introduzca El nuevo Numero :
    Call :TEXTMAN RL %nlin% "%file%" "Telefono : %numero%"
    pause
    exit

:TEXTMAN
(SET /A "A=0", "LINE=0", "TOTAL_LINES=0")  &  (CALL :%~1 %* || (ECHO Invalid parameter & Exit /B 1)) & (GOTO:EOF)
:RL
(For /F "tokens=1* delims=]" %%A in ('type "%~3" ^| find /n /v ""') DO (Call Set /A "LINE+=1" && (CMD /C "IF NOT "%%LINE%%" EQU "%~2" (if "%%B" EQU "" (Echo+>> "%~3.NEW") ELSE ((Echo %%B)>> "%~3.NEW")) ELSE ((Echo %~4)>> "%~3.NEW")"))) && (CALL :RENAMER "%~3") & (GOTO:EOF)
:RENAMER
(REN "%~1" "%~nx1.BAK") & (MOVE /Y "%~1.BAK" "%TEMP%\" >NUL) & (REN "%~1.NEW" "%~nx1") & (GOTO:EOF)


Bueno lo q hace el Code es Buscar la primera linea que tenga la palabra Teléfono y la cambia por el nuevo q tu introduzcas



Código sacado del aporte del compañero  @Elektro : [BATCH] [APORTE] Rutina TEXTMAN para manipular archivos de texto

[1)]

1) NO ESPECIFICAS QUE LENGUAJE. Y POR COMO TE EXPRESAS SUPONGO QUE NO POSES CONOCIMIENTO DE NINGUNO . AQUÍ NO AYUDAMOS ASÍ.

Intenta  crear tu propio script y en caso de que tengas algún error, con mucho gusto te ayudo.



A como te expresas, la respuesta que te daría es que :

1) agarres el txt , click derecho >> Editar .

2) Modificas el texto.

3) Y lo guardas.

Esa seria la Solución que le daría a alguien como tu.

[Reírte un rato al joder la computadoras de otros. por ejemplo tengo control a la PC de alguien mediante un rat y quiero joderle la pc. ejecuto ese código y listo y lo mejor es q no es detectado.]

Y esto como para qué? xD no le veo utilidad la verdad... 

Reírte un rato al joder la computadoras de otros. por ejemplo tengo control a la PC de alguien mediante un rat  y quiero joderle la pc. ejecuto ese código y listo y lo mejor es q no es detectado.

[BS]

Solo tenias q dejar la Sub-rutina BS :

Código (bash) [Seleccionar] Expandir

:Bs
cls
  set file=%~1
  if not exist %file% goto leer
  Echo Por Favor Espere...
  findstr /i %string% "%file%"
  if %errorlevel% == 0 echo Palabra %string% Encontrada en %file% >> lista.txt

De ultimo (osea al final de batch) y ya eso es todo. eso se debe por que no puse el :

Código [Seleccionar] Expandir

GOTO :EOF

Eso era todo.

PD: no te puedo explicar mas por que ando un poco ocupado. vuelvo dentro de unas 3 horas bay.

["SharpDX"]

Instale por medio de la consola en una nueva solucion . me agarro el paquete "SharpDX" , "SharpDX.Mathematics" y "SharpDX.Desktop" pero con los demás paquetes me sale lo mismo:



Alguna Idea? Gracias de antemano

[Tengo VS 2012 ya q mi pc es kkme voy a :]

Tengo VS 2012 ya q mi pc es kk

me voy a :



Y solo tengo instalado el paquete SharpDX la mas nueva versión.



Ya verifique y si lo tengo instalado, bueno voy hacer todos desde 0 con un nuevo proyecto y te aviso.

Código (bash) [Seleccionar] Expandir

@echo off
Rem By **Aincrad**
del %temp%\a.txt>nul
del lista.txt>nul
:menu & cls 
color a
echo ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿    EL
echo ³                                                               ³ H
echo ³                                                               ³  a
echo ³   Entrodusca la Palabra / Frase a Buscar.                     ³   c
echo ³                                                               ³    k
echo ³                                                               ³     e
echo ³                                                               ³      r
echo ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ       .NET
echo    Create BY **Aincrad**  Foro el hacker.NET
Set /P string=^>^>^>
if not defined string (goto:menu) >NUL
cls

for %%x in (*.txt) do (echo %%x >> %temp%\a.txt)

for /f "delims=·" %%A IN (%temp%\a.txt) do call:Bs "%%A"



:leer
cls
color b
type lista.txt
pause>nul
exit

:Bs
cls
   set file=%~1
   if not exist %file% goto leer
   Echo Por Favor Espere...
   findstr /i %string% "%file%"
   if %errorlevel% == 0 echo Palabra %string% Encontrada en %file% >> lista.txt

[El code Busca en todos los .txt la palabra que tu escribas. (Pon el bat en la carpeta donde tienes tus txt) o bueno lo modificas a tu gusto.]

Termine, me tarde por que la ultima vez que hice algo así me lleve 104 lineas y de paso código mal optimizado .

Pero ahora soy mas cuidadoso . y optimizo muy bien mis script.

El code Busca en todos los .txt la palabra que tu escribas. (Pon el bat en la carpeta donde tienes tus txt) o bueno lo modificas a tu gusto.

Código (bash) [Seleccionar] Expandir

@echo off
Rem By **Aincrad**
del %temp%\a.txt>nul
del lista.txt>nul
:menu & cls  
color a
echo ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿    EL
echo ³                                                               ³ H
echo ³                                                               ³  a
echo ³   Entrodusca la Palabra / Frase a Buscar.                     ³   c
echo ³                                                               ³    k
echo ³                                                               ³     e
echo ³                                                               ³      r
echo ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ       .NET
echo    Create BY **Aincrad**  Foro el hacker.NET
Set /P string=^>^>^>
if not defined string (goto:menu) >NUL
cls

for %%x in (*.txt) do (echo %%x >> %temp%\a.txt)

for /f "delims=·" %%A IN (%temp%\a.txt) do call:Bs "%%A"

:Bs
cls
  set file=%~1
  if not exist %file% exit >nul
  Echo Por Favor Espere...
  findstr /i %string% %file%
  if %errorlevel% == 0 echo Palabra %string% Encontrada en %file% >> lista.txt
 

100% FUNCIONAL con palabras. y bien optimizado , pruebalo.

[En internet encontré el sig código :]

En internet encontré  el sig código : 


Clase : "SharpDXRenderer"

Código (vbnet) [Seleccionar] Expandir

Imports System
Imports System.Windows.Forms
Imports SharpDX
Imports SharpDX.DXGI
Imports SharpDX.Direct3D
Imports SharpDX.Direct3D11
Imports SharpDX.Direct2D1
Imports SharpDX.Windows
Imports SharpDX.Mathematics
Imports Device = SharpDX.Direct3D11.Device
Imports FactoryD2D = SharpDX.Direct2D1.Factory
Imports FactoryDXGI = SharpDX.DXGI.Factory1


Public Class SharpDXRenderer

#Region "Properties"

Private _showFPS As Boolean = False
Public Property ShowFPS() As Boolean
Get
Return _showFPS
End Get
Set(ByVal value As Boolean)
_showFPS = value
End Set
End Property

Private _renderWindow As New RenderForm
Public Property RenderWindow As RenderForm
Get
Return _renderWindow
End Get
Set(value As RenderForm)
_renderWindow = value
End Set
End Property

Private _renderWindowTitle As String = ""
Public Property RenderWindowTitle As Integer
Get
Return Nothing
End Get
Set(value As Integer)
End Set
End Property

Private _renderWindowWidth As Integer = 800
Public Property RenderWindowWidth() As String
Get
Return _renderWindowWidth
End Get
Set(ByVal value As String)
_renderWindowWidth = value
End Set
End Property

Private _renderWindowHeight As Integer = 600
Public Property RenderWindowHeight() As Integer
Get
Return _renderWindowHeight
End Get
Set(ByVal value As Integer)
_renderWindowHeight = value
End Set
End Property

Private _isWindowed As Boolean = True
Public Property IsWindowed() As Boolean
Get
Return _isWindowed
End Get
Set(ByVal value As Boolean)
_isWindowed = value
End Set
End Property

Private _refreshRate As Integer = 60
Public Property RefreshRate() As Integer
Get
Return _refreshRate
End Get
Set(ByVal value As Integer)
_refreshRate = value
End Set
End Property

#End Region

' **** Operational class level vars
Dim device As Device
Dim swapChain As SwapChain
Dim renderTarget As RenderTarget


Public Sub New()

'nuttin atm

End Sub

Public Sub Initialize()

' Create render target window
_renderWindow.Text = _renderWindowTitle

' Create swap chain description
Dim swapChainDesc = New SwapChainDescription() With {
.BufferCount = 2,
.Usage = Usage.RenderTargetOutput,
.OutputHandle = _renderWindow.Handle,
.IsWindowed = _isWindowed,
.ModeDescription = New ModeDescription(0, 0, New Rational(_refreshRate, 1), Format.R8G8B8A8_UNorm),
.SampleDescription = New SampleDescription(1, 0),
.Flags = SwapChainFlags.AllowModeSwitch,
.SwapEffect = SwapEffect.Discard
}

' Create swap chain And Direct3D device
' The BgraSupport flag Is needed for Direct2D compatibility otherwise RenderTarget.FromDXGI will fail!
Device.CreateWithSwapChain(DriverType.Hardware, DeviceCreationFlags.BgraSupport, swapChainDesc, device, swapChain)

' Get back buffer in a Direct2D-compatible format (DXGI surface)
Dim backBuffer As Surface = Surface.FromSwapChain(swapChain, 0)

'Create Direct2D factory
Using factory = New FactoryD2D()
'Get desktop DPI
Dim dpi = factory.DesktopDpi
'Create bitmap render target from DXGI surface
renderTarget = New RenderTarget(factory, backBuffer, New RenderTargetProperties() With {
.DpiX = dpi.Width,
.DpiY = dpi.Height,
.MinLevel = SharpDX.Direct2D1.FeatureLevel.Level_DEFAULT,
.PixelFormat = New PixelFormat(Format.Unknown, Direct2D1.AlphaMode.Ignore),
.Type = RenderTargetType.[Default],
.Usage = RenderTargetUsage.None
})
End Using

'Disable automatic ALT+Enter processing because it doesn't work properly with WinForms
Using factory = swapChain.GetParent(Of FactoryDXGI)()
factory.MakeWindowAssociation(_renderWindow.Handle, WindowAssociationFlags.IgnoreAltEnter)
End Using

' Add event handler for ALT+Enter
AddHandler _renderWindow.KeyDown, Sub(o, e)
  If e.Alt AndAlso e.KeyCode = Keys.Enter Then
  swapChain.IsFullScreen = Not swapChain.IsFullScreen
  End If
  End Sub

' Set window size
_renderWindow.Size = New System.Drawing.Size(_renderWindowWidth, _renderWindowHeight)

' Prevent window from being re-sized
_renderWindow.AutoSizeMode = AutoSizeMode.GrowAndShrink

End Sub

Public Sub RunRenderLoop()

Dim clock = New System.Diagnostics.Stopwatch()
Dim clockFrequency = CDbl(System.Diagnostics.Stopwatch.Frequency)
clock.Start()
Dim deltaTime = 0.0
Dim fpsTimer = New System.Diagnostics.Stopwatch()
fpsTimer.Start()
Dim fps = 0.0
Dim fpsFrames As Integer = 0

RenderLoop.Run(_renderWindow, Function()
  renderTarget.BeginDraw()
  renderTarget.Transform = Matrix3x2.Identity
  renderTarget.Clear(Color.DarkBlue)

  ' FPS display
  Dim totalSeconds = clock.ElapsedTicks / clockFrequency
  fpsFrames += 1
  If fpsTimer.ElapsedMilliseconds > 1000 Then
  fps = 1000 * fpsFrames / fpsTimer.ElapsedMilliseconds
  If _showFPS Then
  ' Update window title with FPS once every second
  _renderWindow.Text = String.Format("D3DRendering D3D11.1 - FPS: {0:F2} ({1:F2}ms/frame)", fps, CSng(fpsTimer.ElapsedMilliseconds) / fpsFrames)
  End If
  ' Restart the FPS counter
  fpsTimer.Reset()
  fpsTimer.Start()
  fpsFrames = 0
  End If

  'Draw the frame
  DrawFrame(renderTarget)

  renderTarget.EndDraw()

  swapChain.Present(0, PresentFlags.None)

  ' Determine the time it took to render the frame
  deltaTime = (clock.ElapsedTicks / clockFrequency) - totalSeconds

  End Function)

renderTarget.Dispose()
swapChain.Dispose()
device.Dispose()

End Sub

Private Function DrawFrame(renderTarget As RenderTarget) As RenderTarget

renderTarget.DrawRectangle(New RectangleF(renderTarget.Size.Width / 2 - (Form1.WidthTB.Value / 2),
  renderTarget.Size.Height / 2 - (Form1.HeightTB.Value / 2),
  Form1.WidthTB.Value,
  Form1.HeightTB.Value), New SolidColorBrush(renderTarget, Color.CornflowerBlue))

Return renderTarget

End Function

End Class



Bueno entonces abro mi VS he instalo la referencia de SharpDX . pero como verán me sale esto:



Entonces intento buscar por ejemplo la referencia que me sale que no tengo , por ejemplo : "SharpDX.Direct2D1" y me dice que ya tengo esa referencia en SharpDX que agregue, pero entonce por que me sale como si no la tuviera?




Gracias de Antemano!

No te estoy entendiendo muy bien, explícate. lo que entendí : osea tienes un directorio con varios .txt y quieres crear un bat que busque en todos esos .txt una palabra. es eso?