jsbsan 19-04-2021, 19:10
Con esta aplicación podemos guardar la situación de hasta 4 directorios y una nota (para explicar que estamos haciendo, en que nos hemos quedado, etc).
Permite renombrar archivos, copiarlos, moverlos, pegarlos entre los distintos directorios, ademas de dividir pdf, unirlos, editarlos (usando programas externos pdftk y libreoffice draw). Su código fuente se encuentra alojado en: https://github.com/jsbsan/situcarpetas
Espero que os sea útil
Permite renombrar archivos, copiarlos, moverlos, pegarlos entre los distintos directorios, ademas de dividir pdf, unirlos, editarlos (usando programas externos pdftk y libreoffice draw). Su código fuente se encuentra alojado en: https://github.com/jsbsan/situcarpetas
Espero que os sea útil
tincho 19-04-2021, 17:47
Hola a todos.
Resulta que el texto que sale de un pdf no esta formateado correctamente, pero si que se pueden hacer algunas cosas para mejorarlo.
Si por ejemplo una cadena termina en ".\n" (punto+nueva-linea) estamos casi con seguridad en el final de un párrafo.
Pero luego hay situaciones en las que se trata de un título y que la linea de texto no termina en "." pero por suerte sucede que luego la siguiente linea comienza por una mayúscula.
Bien ahora la pregunta ¿Cual es la expresión regular, u otra forma para reemplazar \n# por \n[::jump::]#? donde # es cualquier letra mayúscula.
Resulta que el texto que sale de un pdf no esta formateado correctamente, pero si que se pueden hacer algunas cosas para mejorarlo.
Si por ejemplo una cadena termina en ".\n" (punto+nueva-linea) estamos casi con seguridad en el final de un párrafo.
Pero luego hay situaciones en las que se trata de un título y que la linea de texto no termina en "." pero por suerte sucede que luego la siguiente linea comienza por una mayúscula.
Bien ahora la pregunta ¿Cual es la expresión regular, u otra forma para reemplazar \n# por \n[::jump::]#? donde # es cualquier letra mayúscula.
- Reemplazar \n# por \n[::jump::]#
vuott 18-04-2021, 00:45
Apuntar 
en el mapa de un MapView:
en el mapa de un MapView: Código:
Private MapView1 As MapView
Private mp As MapPoint = MapPoint(36.490590, -6.238170) ' en honor de mi amigo, Romanorum Consul Shell
Private DrawingArea1 As DrawingArea
Public Sub Form_Open()
Dim pn As Panel
With Me
.W = Screen.AvailableWidth
.H = Screen.AvailableHeight
.Arrangement = Arrange.Fill
.Mouse = Mouse.Blank
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 = 11
' Imposta il centro della mappa:
.Map.Center = mp
End With
pn = MapView1.Children[0]
DrawingArea1 = pn.Children[0]
End
Public Sub MapView1_MouseMove()
Dim pt As New Point(Mouse.X, Mouse.Y)
Dim lat As Float = MapView1.Map.PixelToMapPointRel(pt).Lat
Dim lon As Float = MapView1.Map.PixelToMapPointRel(pt).Lon
mp = MapPoint(lat, lon)
MapView1.Refresh
MapView1.Map.Refresh
End
Public Sub MapView1_Draw()
Dim c, x, y, r As Short
Dim po As Point = MapView1.Map.MapPointToPixelRel(mp)
With Paint
.Begin(DrawingArea1)
.Brush = .Color(Color.DarkOrange)
.LineWidth = 2.0
.Arc(MapView1.Map.MapPointToPixelRel(mp).X, MapView1.Map.MapPointToPixelRel(mp).Y, 50, 0, 360, False)
.Arc(MapView1.Map.MapPointToPixelRel(mp).X, MapView1.Map.MapPointToPixelRel(mp).Y, 30, 0, 360, False)
.Stroke
.Brush = .Color(Color.Red)
.Arc(MapView1.Map.MapPointToPixelRel(mp).X, MapView1.Map.MapPointToPixelRel(mp).Y, 1.5, 0, 360, False)
.Fill
r = 50
x = po.X
y = po.Y
For c = 0 To 360 Step 90
po.X = x + r * Cos(Rad(c))
po.Y = y + r * Sin(Rad(c))
.MoveTo(po.X, po.Y)
' Per ridurre la lunghezza della "x" per i gradi 0, 90, 180 e 270 è necessaria questa sequenza: +n 0 -n 0 che si ottiene con il Coseno di c.
' Per ridurre la lunghezza della "y" per i gradi 0, 90, 180 e 270 è necessaria questa sequenza: 0 -n 0 +n che si ottiene con il Coseno di c + 90.
.LineTo(x + (20 * Cos(Rad(c))), y - (20 * Cos(Rad(c + 90))))
.Stroke
Next
.Brush = .Color(Color.Yellow)
.DrawText(Format(mp.Lat, "0.######"), x + r * Cos(Rad(270)) - (Me.Font.TextWidth(Format(mp.Lat, "0.######")) / 2), (y + (r + 15) * Sin(Rad(270))), Me.Font.TextWidth(Format(mp.Lat, "0.######")), Me.Font.TextHeight(Format(mp.Lat, "0.######")), Align.Left)
.DrawText(Format(mp.Lon, "0.######"), x + r * Cos(Rad(0)) - (Me.Font.TextWidth(Format(mp.Lon, "0.######")) / 2), (y + (r + 15) * Sin(Rad(0))), Me.Font.TextWidth(Format(mp.Lon, "0.######")), Me.Font.TextHeight(Format(mp.Lon, "0.######")), Align.Left)
.End
End With
End
Bienvenido, Invitado
Últimos temas
Compile all in two pass
Foro: GeneralÚltimo mensaje por: guizans, Hace 3 horas
Respuestas: 0 - Vistas: 5
Duda con Report [SOLUCION...
Foro: GeneralÚltimo mensaje por: guizans, 24-10-2026, 14:50
Respuestas: 1 - Vistas: 1,624
Problemas con la versión ...
Foro: GeneralÚltimo mensaje por: alberto-moyano, 12-10-2026, 03:08
Respuestas: 4 - Vistas: 1,047
Me hace falta el dato de ...
Foro: Sobre gambas-es.orgÚltimo mensaje por: jguardon, 30-09-2026, 20:25
Respuestas: 1 - Vistas: 527
El conector de alimentaci...
Foro: Hardware & IoTÚltimo mensaje por: tincho, 23-09-2026, 23:03
Respuestas: 3 - Vistas: 675