Shell 16-01-2022, 14:16
Buenas!.

Hoy estaba buscando un comando para comparar archivos.

Tenía un problema con un archivo de cinta de un emulador y quería comparar la misma cinta con distintos archivos de cintas que eran el mismo juego.
Algo así como versiones o cambios que han añadido, cambiado o incluso imitado del mismo archivo. Clones en parte. Copias iguales con distinto nombre.

Lógicamente no me iba a valer un comando de comparación de línea a línea de texto. Cosa que hace el comando diff.Tenía que usar algo como comparación binaria.
Aunque tenía idea del comando,decidí usar una búsqueda de las palabras. Comparar archivo

Código:
apropos -a compare file

No me mostraba el que lo hace y conocía. "cmp", es que" era de cajón"(expresión). Aun me acordaba de el, aunque no lo he usado mucho.
Así que fui a solicitar una descripción sobre el comando "cmp". Voy a buscar con el comando apropos la palabra exacta.

Código:
apropos -e cmp

Para sorpresa me muestra esto:
 
Cita:cmp (1)              - (tema desconocido)

¿ Por qué muestra eso ?. ¿ Problemas con el manual ?.

El problema es que la búsqueda se trata por encontrar el comando que hace algo, no que te muestre la ayuda sobre un comando que desconoces cual es.
Este ejemplo no me vale. Muestro la descripción del comando que conozco cual es  usando la ayuda del comando y recortando la salida.
( No es algo optimizado ). No he usado un comando mejor como sed.

Código:
man cmp | head -n 4| tail -n 1
 
Cita: 
GNU cmp - compare two files byte by byte

Creo que valdría para otros comandos. Pero no me vale, estoy buscando un comando que hace algo, no conozco el comando.

Es raro que diga "tema desconocido". ¿ Os ha pasado a vosotros alguna vez ?.

Saludos
alessandri 14-01-2022, 15:34
Saludos amigos.

Alguien conoce alguna forma para bloquear la función de
-pegado- en un control ValueBox o TextBox ?
vuott 12-01-2022, 04:03
Hola,
en este mi siguiente programa, haciendo clic con el botón derecho del ratón, se dibujan secuencias temporales de círculos concéntricos en el punto donde se ha hecho clic.
Al final, quedará un punto rojo.
En cambio, al hacer clic con el botón central del ratón, los puntos previamente dibujados se borrarán.
Hay que activar el componente gb.map .

Código:
Private MapView1 As MapView
Private pn As Panel
Private mmpp As MapPoint[]
Private ct As Short

Public Sub Form_Open()
 
  With Me
    .W = Screen.AvailableWidth
    .H = Screen.AvailableHeight
    .Arrangement = Arrange.Fill
  End With
  With MapView1 = New MapView(Me) As "MapView1"
    .Map.AddTile("GoogleMap", "https://mt0.google.com/vt/lyrs=s&hl=&x={x}&y={y}&z={z}")
    .Map.Zoom = 14
' Establece el centro del mapa al principio:
    .Map.Center = New MapPoint(36.5139777, -6.2727421) ' ...Gades !  Consuli romano Shell antiquissima patria est !
  End With 

' Identifica el Objeto "Hijo" de la "Mapview", que es un "Panel":
   pn = MapView1.Children[0]
   
   mmpp = New MapPoint[]

End

Public Sub MapView1_MouseUp()
  
' Al hacer clic con el botón central del ratón, se dibujan en la superficie de la "Mapview" unos círculos concéntricos en el punto donde se ha hecho clic, y también se confirman los puntos previamente establecidos:
  If Mouse.Right Then 
    Dim pt As Point
    Dim c As Short
    pt = New Point(Mouse.X, Mouse.Y)
    mmpp.Push(MapView1.Map.PixelToMapPointRel(pt))
' Provee los datos para hacer dibujar unos círculos concéntricos secuencialmente sobre el mapa mostrada por el Objeto "Mapview":
    For c = 28 DownTo 1 Step 3
      ct = c
      MapView1.Refresh
      Wait 0.1
    Next 
    Me.Text = Format(MapView1.Map.PixelToMapPointRel(pt).Lat, "0.000000") & "   " &
              Format(MapView1.Map.PixelToMapPointRel(pt).Lon, "0.000000")
  Endif 
  
' Al hacer clic con el botón central del ratón, los puntos previamente dibujados son cacelados por la superficie de la "Mapview":
  If Mouse.Middle Then 
    mmpp.clear
    MapView1.Refresh
  Endif 
 
End

Public Sub MapView1_Draw()
  
  If mmpp.Count == 0 Then Return 
  
  Dim n As Integer
  With Paint
    .Begin(pn.Children[0])
    .Brush = .Color(Color.Red)
    For n = 0 To mmpp.Max - 1
      .Arc(MapView1.Map.MapPointToPixelRel(mmpp[n]).X, MapView1.Map.MapPointToPixelRel(mmpp[n]).Y, 2, Rad(0), Rad(360), False)
      .Fill
    Next 
    .Arc(MapView1.Map.MapPointToPixelRel(mmpp[mmpp.Max]).X, MapView1.Map.MapPointToPixelRel(mmpp[mmpp.Max]).Y, 2 * ct, Rad(0), Rad(360), False)
    If ct > 1 Then 
      .Stroke
    Else 
      .Fill
    Endif 
    .End
  End With
  
End
Páginas (564):    1 332 333 334 335 336 564   
Bienvenido, Invitado
Tienes que registrarte para poder participar en nuestro foro.
Recordarme?
Miembros: 292
Último miembro: DarkWolf
Temas del foro: 1,742
Mensajes del foro: 9,031
Últimos temas
Ordenar en un TableView
Foro: General
Último mensaje por: guizans, 05-11-2025, 23:26
Respuestas: 5 - Vistas: 139
Odio a gb.Report
Foro: General
Último mensaje por: guizans, 02-11-2025, 13:36
Respuestas: 9 - Vistas: 1,577
Reportes de Gambas
Foro: Aplicaciones/Fragmentos de Código
Último mensaje por: Alberto59, 27-10-2025, 16:34
Respuestas: 2 - Vistas: 1,342
Ordenando las carpetas
Foro: Programación en otros lenguajes
Último mensaje por: tercoide, 22-10-2025, 15:57
Respuestas: 0 - Vistas: 118
Powered By MyBB, © 2002-2025 MyBB Group.
Made with by Curves UI.