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
Conexión Bluetooth: RFCOM...
Foro: Hardware & IoTÚltimo mensaje por: jguardon, Ayer, 16:57
Respuestas: 5 - Vistas: 102
gb.db2: columnas calculad...
Foro: Bases de DatosÚltimo mensaje por: guizans, 04-05-2025, 21:02
Respuestas: 14 - Vistas: 491
Gambas + ERP = GamERP.
Foro: Aplicaciones/Fragmentos de CódigoÚltimo mensaje por: tercoide, 30-04-2025, 15:57
Respuestas: 25 - Vistas: 2,059
Manejando imágenes desde ...
Foro: VideotutorialesÚltimo mensaje por: Shordi, 30-04-2025, 06:00
Respuestas: 2 - Vistas: 115
Imprimir resultados en el...
Foro: GeneralÚltimo mensaje por: Turriano, 28-04-2025, 11:53
Respuestas: 5 - Vistas: 207