https://www.aforo.es/ Aforo el sitio de los Foros es-es Fri, 16 Feb 2018 17:44:09 GMT 1440 Webnaranja Aforo.es Forums - Lenguajes de programacion y Bases de Datos https://cyber.harvard.edu/rss/rss.html https://www.aforo.es/images/logo.gif https://www.aforo.es/ https://www.aforo.es/index.php?name=Forums&file=viewtopic&p=1832#1832 Macro VBA para Word que limpia retornos de carro anómalos en texto procedente de Word. No es perfecta pero al menos hace el 90% del trabajo. Code:: Sub JoinLowercaseLine() ' Macro Word para limpiar retornos de carro de texto de PDF Rem PASO 1. Sustituir espacios de no separación por espacios normales. Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "^s" .Replacement.Text = " " .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True End With Rem PASO 4.1 Elimino espacios antes de minuscula. With Selection.Find .Text = "[^13^l^t] {1;}([a-z])" .Replacement.Text = "\1" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True End With Selection.Find.Execute Replace:=wdReplaceAll ' Mio Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "^phttp" .Replacement.Text = "^pWeb: http" .Forward = True .Wrap = wdFindAsk .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "^pwww" .Replacement.Text = "^pWeb: www" .Forward = True .Wrap = wdFindAsk .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' fin mio Rem PASO 2. Segundo, unimos a la anterior linea las lineas que empiezan por lowercase (minuscula). With Selection.Find .Text = "([^13^l^t])([a-z])" .Replacement.Text = " \2" ' .Replacement.Text = "\1$popo$\2" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True End With Selection.Find.Execute Replace:=wdReplaceAll Rem PASO 3. Eliminar todos los espacios redundantes. With Selection.Find .Text = "( ){1;}" .Replacement.Text = "\1" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True End With Selection.Find.Execute Replace:=wdReplaceAll End Sub Fri, 16 Feb 2018 17:44:09 GMT https://www.aforo.es/index.php?name=Forums&file=viewtopic&p=1831#1831 Versión 2 del conversor de Word a BBcode mejorada con sustitución de las imágenes por un indice de imagen y simplificación de la conversión de tamaño de letra: Code:: 'Word2BBCode-Converter v0.1, June 2, 2006 'Matthew Kruer 'Some parts adapted from 'Word2Wiki-Converter V0.4, May 28, 2006 'http://de.wikipedia.org/wiki/Wikipedia:Helferlein/Word2MediaWikiPlus 'Original Version by InfPro: http://www.infpro.com/downloads/downloads/wordmedia.htm 'Major improvements by Gunter Schmidt, Mail me: Word2MediaWikiPlus@beadsoft.de 'Works only with Word 2000 and above 'License: GPL: Feel free to use and modify. Keep the credits and do not sell. Sub Word2BBCode() Application.ScreenUpdating = False ConvertItalic ConvertBold 'ConvertUnderline 'ConvertLists ConvertHyperlinks 'ConvertColor ReplaceInlineShapes_WithIndex ConvertSize ActiveDocument.Content.Copy Application.ScreenUpdating = True End Sub Private Sub ConvertBold() ActiveDocument.Select With Selection.Find .ClearFormatting .Font.Bold = True .Text = "" .Format = True .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False .Forward = True .Wrap = wdFindContinue Do While .Execute With Selection If InStr(1, .Text, vbCr) Then ' Just process the chunk before any newline characters ' We'll pick-up the rest with the next search .Font.Bold = False .Collapse .MoveEndUntil vbCr End If ' Don't bother to markup newline characters (prevents a loop, as well) If Not .Text = vbCr Then .InsertBefore "[b]" .InsertAfter "[/b]" End If .Font.Bold = False End With Loop End With End Sub Private Sub ConvertItalic() ActiveDocument.Select With Selection.Find .ClearFormatting .Font.Italic = True .Text = "" .Format = True .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False .Forward = True .Wrap = wdFindContinue Do While .Execute With Selection If InStr(1, .Text, vbCr) Then ' Just process the chunk before any newline characters ' We'll pick-up the rest with the next search .Font.Italic = False .Collapse .MoveEndUntil vbCr End If ' Don't bother to markup newline characters (prevents a loop, as well) If Not .Text = vbCr Then .InsertBefore "[i]" .InsertAfter "[/i]" End If .Font.Italic = False End With Loop End With End Sub Private Sub ConvertUnderline() ActiveDocument.Select With Selection.Find .ClearFormatting .Font.Underline = True .Text = "" .Format = True .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False .Forward = True .Wrap = wdFindContinue Do While .Execute With Selection If InStr(1, .Text, vbCr) Then ' Just process the chunk before any newline characters ' We'll pick-up the rest with the next search .Font.Underline = False .Collapse .MoveEndUntil vbCr End If ' Don't bother to markup newline characters (prevents a loop, as well) If Not .Text = vbCr Then .InsertBefore "[u]" .InsertAfter "[/u]" End If .Font.Underline = False End With Loop End With End Sub Private Sub ConvertLists() Dim para As Paragraph For Each para In ActiveDocument.ListParagraphs With para.Range .InsertBefore "[List]" For i = 1 To .ListFormat.ListLevelNumber If .ListFormat.ListType = wdListBullet Then .InsertBefore "[*]" Else .InsertBefore "[#]" End If Next i .InsertBefore "[List]" .ListFormat.RemoveNumbers End With Next para End Sub Private Sub ConvertHyperlinks() 'converts Hyperlinks '24-MAY-2006: only convert http..., mark others with error marker Dim hyperCount& Dim i& Dim addr$ ', title$ hyperCount = ActiveDocument.Hyperlinks.Count For i = 1 To hyperCount With ActiveDocument.Hyperlinks(1) 'must be 1, since the delete changes count and position addr = .Address If Trim$(addr) = "" Then addr = "no hyperlink found" 'title = .Range.Text 'http, ftp If LCase(Left$(addr, 4)) = "http" Or LCase(Left$(addr, 3)) = "ftp" Then .Delete 'hyperlink .Range.InsertBefore "[url=" & addr & "]" .Range.InsertAfter "[/url]" GoTo ConvertHyperlinks_Next End If 'mailto: If LCase(Left$(addr, 7)) = "mailto:" Then .Delete 'hyperlink .Range.InsertBefore "[email]" & addr & " " .Range.InsertAfter "[/email]" GoTo ConvertHyperlinks_Next End If 'file guess If Len(addr) > 4 Then 'the reason for not nice goto If Mid$(addr, Len(addr) - 3, 1) = "." Then .Delete .Range.InsertBefore "[file://" & Replace(addr, " ", "_") & " " .Range.InsertAfter "]" GoTo ConvertHyperlinks_Next End If End If 'unidentified .Delete .Range.InsertBefore UnableToConvertMarker & "[" & addr & " " .Range.InsertAfter "]" ConvertHyperlinks_Next: End With Next i End Sub Private Sub ReplaceInlineShapes_WithIndex() Dim oILShp As InlineShape Dim ILShpIndex As Integer For Each oILShp In ActiveDocument.InlineShapes ILShpIndex = ILShpIndex + 1 'insert text in place where InlineShape is located ActiveDocument.Range(oILShp.Range.Start, oILShp.Range.End).Text = _ "[Image" & ILShpIndex & ".Jpg]" 'delete picture is not needed- it was simply replaced with text Next End Sub Private Sub ConvertSize() ' tag all text of font size <> dfSize Dim rDcm As Range Dim l As Long Dim m As Long Dim n As Long ' m = ActiveDocument.Styles("Standard").Font.Size ' german ' m = ActiveDocument.Styles("Normal").Font.Size ' english m = 11 'get the curent normal size of the document n = m - 13 'calculate the differencebetween the normal size of the document and the web size (12) Set rDcm = ActiveDocument.Range ' set all paragraph marks to standard value ' and exclude them by this from processing With rDcm.Find .Text = Chr(13) While .Execute rDcm.Font.Size = m ' <<< Wend End With For l = 1 To 54 Set rDcm = ActiveDocument.Range ' <<<< If l <= m - 2 Then ' <<<< With rDcm.Find .Font.Size = l While .Execute rDcm.Select ' for testing only rDcm.Font.Size = m ' <<<<<<<<<<<<< rDcm.InsertBefore "[size=9]" rDcm.InsertAfter "[/size]" rDcm.Start = rDcm.End rDcm.End = ActiveDocument.Range.End Wend End With End If If l > m + 2 And l < m + 6 Then ' <<<< With rDcm.Find .Font.Size = l While .Execute rDcm.Select ' for testing only rDcm.Font.Size = m ' <<<<<<<<<<<<< rDcm.InsertBefore "[size=18]" rDcm.InsertAfter "[/size]" rDcm.Start = rDcm.End rDcm.End = ActiveDocument.Range.End Wend End With End If If l >= m + 6 Then ' <<<< With rDcm.Find .Font.Size = l While .Execute rDcm.Select ' for testing only rDcm.Font.Size = m ' <<<<<<<<<<<<< rDcm.InsertBefore "[size=24]" rDcm.InsertAfter "[/size]" rDcm.Start = rDcm.End rDcm.End = ActiveDocument.Range.End Wend End With End If Next End Sub Thu, 08 Feb 2018 14:28:56 GMT https://www.aforo.es/index.php?name=Forums&file=viewtopic&p=1825#1825 Algunos patrones curiosos con Notepad++ Ejemplo: eliminar enlaces imageshack [URL=https://imageshack.com/i/idypSoTnj][IMG]http://imagizer.imageshack.us/v2/640x480q90/661/ypSoTn.jpg[/IMG][/URL] Para eliminar la parte de antes del enlace marcar la opción de expresiones regulares y utilizar el patron: \[URL=https://imageshack.com(.*)\]\[IMG\] Y sustituir por: [IMG] La segunda parte se puede eliminar con: [/IMG][/URL] y sutituir por: [/IMG]\n (para salta linea). Como patrón de busqueda tambien se puede usar: \[URL=https://imageshack.com(.*)\](.*)\[/URL\] Un patron que filtra completamente el enlace y nos deja solo la imagen es: (\[URL=https://imageshack.com.*\])(\[IMG\].*\[/IMG\])\[/URL\] Si le damos como patron a sustituir: "\2" Este se queda con el campo 2 que es la imagen sin enlace. Nos presentará la imagen limpia sin enlace: [IMG]http://imagizer.imageshack.us/v2/640x480q90/911/XX4R77.jpg[/IMG] Mon, 22 Jun 2015 11:48:41 GMT https://www.aforo.es/index.php?name=Forums&file=viewtopic&p=1824#1824 A veces la cola de postfix se atasca con miles de correos de basura tras un problema de base de datos. Mientras no los borre no se reciben los correos interesantes, porque esta bloqueado. Intento acceder al panel de plesk para gestionarlo, pero la pagina de cuelga de tantos email como tiene que presentar... Asi que me abro una sesion de unix/linux y meto el siguiente comando: postsuper -d ALL Quote:: -bash-4.1# postsuper -d ALL postsuper: Deleted: 40280 messages -bash-4.1# Y desbloqueados en un par de minutos lo que si no habria bloqueado el buzon de correo del Admin durante semanas. <img src="/images/smiles/icon_biggrin.gif" alt="Muy feliz" title="Muy feliz" /> Thu, 17 Jul 2014 17:24:28 GMT https://www.aforo.es/index.php?name=Forums&file=viewtopic&p=1822#1822 Necesito contar el numero de ficheros que hay en un determinado path, en linux... y no es tarea sencilla. Vamos a solucionarlo en dos shell csh y con bash BASH Nos abrimos una shell de bash: /bin/bash Y ejecutamos un bucle ls en una sola linea: for i in $( ls ); do echo "$i ".(ls -l $i | wc -l) ; done Este comando nos da la respuesta: Quote:: for i in $( ls ); do echo $i; ls -l $i | wc -l 1077 1 Calls 20673 CMI 86094 COBA 1 CRC 1 Dual 1 ser@server1-01:~/rbirun/send> exit CSH Ahora lo solucionamos en un entorno csh, con un bucle foeach. Al comando: "foreach x (`/bin/ls`)" nos respondera con una prompt en la que debemos ir metiendo las lineas de comando. Quote:: <1059 pop1-01 [ser] :/home/send>foreach x (`/bin/ls`) foreach? echo $x foreach? ls -l $x | wc -l foreach? end1077 1 CallCompletion 20745 CMI 86102 COBA 1 <1060 pop1-01 [ser] :/home/send> Ya ta.... Tue, 03 Jun 2014 12:43:44 GMT https://www.aforo.es/index.php?name=Forums&file=viewtopic&p=1821#1821 Intentando un BCP en modo caracteres de una base de datos Sybase 11, me surge un error y no ejecuta nada. El comando ejecutado fue este: bcp sdp_db1..appl00_main in "/opt/bcpdir/bcp_moviles" -T -c -U sa -P sybase -S SYB_SDP5 Sin embargo el BCP in me contesta con numerosos errores, uno por linea, con el texto: Quote:: CSLIB Message: - L0/O0/S0/N36/1/0: cs_convert: cslib user api layer: common library error: The result is truncated because the conversion/operation resulted in overflow. El problema venía de que al tratar el fichero BCP de caracteres (en origen procedía de un servidor UNIX) en un editor de texto en mi PC me había cambiado los finales de linea de UNIX por los de windows. Como el Windows nos hizo la jugada hemos tenido que cambiar el fin de linea en el comando BCP por defecto con la siguiente opción: -r “\n” bcp sdp_db1..appl00_main in "/opt/bcpdir/bcp_moviles" -T -c -r "\r" -Usa -P sybase -S SYB_SDP5 Ahora entran las lineas sin problema. Bueno, da un error: Quote:: Unexpected EOF encountered in BCP data-file. 5014193 rows copied. Clock Time (ms.): total = 1049000 Avg = 0 (4779.97 rows per sec.) Porque también cambio el final de fichero, pero no es grave y ejecuta el fichero completo (en este caso más de 5 millones de líneas). Wed, 05 Feb 2014 03:54:47 GMT https://www.aforo.es/index.php?name=Forums&file=viewtopic&p=1820#1820 Otra opcion para borrado de ficheros por fecha es: Quote:: find . -type f -mtime +365 -exec rm -f {} \; Borra todos los ficheros mas antiguos de 360 días, en el directorio actual. Por ejemplo: en "/var/lib/php/session", para borrar sesiones anteriores a un año. Mon, 16 Sep 2013 15:33:53 GMT https://www.aforo.es/index.php?name=Forums&file=viewtopic&p=1819#1819 Para borrar logs o ficheros acumulados con mas de una cierta antiguedad (90 dias en el ejemplo), de forma masiva y sin el problema del "rm ‘Error: Too many arguments’" se puede usar: find /var/logs/ -name "*nombre_fichero*" -atime +90 -type f -print -exec rm {} \; Por ejemplo aqui se explica: http://www.alejandroarco.es/administracion-de-sistemas/linux/borrar-ficheros-por-fecha-en-linux/ Mon, 12 Aug 2013 08:59:49 GMT https://www.aforo.es/index.php?name=Forums&file=viewtopic&p=1818#1818 Para evitar catastrofes de borrados accidentales de ficheros en csh se pude utilizar un alias de rm, en el que el comando rm interactua y consulta al usuario por cada borrado. Para ello se usa el alias de rm: rm -i "rm -i" consulta un borrado siempre antes de realizarlo. Antes de utilizar el alias, en mi servidor unix, se podia efectuar el borrado del siguiente modo: Quote:: fserver 1003: touch pp # cero un fichero vacio llamado "pp" fserver 1005: rm pp # pido el borrado del fichero "pp" y se ejecuta sin consultar fserver 1005: Como estoy en csh el perfil del usuario se carga a traves del fichero .login, lo cual me permite modificar el comportamiento del usuario. Edito el fichero .login y le añado la siguiente línea: alias rm '/bin/rm -i \!* 'Después de esto hay que entrar de nuevo al usuario, por ejemplo son el comando su - <nombre de usuario> Ahora hago la misma operación.Quote:: server 1003: touch pp # cero un fichero vacio llamado "pp" fserver 1005: rm pp # pido el borrado del fichero "pp" y se ejecuta pero consulta pp: ? (y/n) y fserver 1005: Con ello evitamos borrados accidentales de ficheros en UNIX. Wed, 13 Feb 2013 12:53:50 GMT https://www.aforo.es/index.php?name=Forums&file=viewtopic&p=1808#1808 Para comprimir con Gzip, si se utiliza el metodo comun "gzip -q archivo", nos ecnontramos con que el comando Gzip comprime el archivo y lo renombra como "archivo.gz". Ese comportamiento es indeseable en muchos casos, por ejemplo si el archivo es un log de sistema, en el que se esta escribiendo de forma continua y lo se puede tocar. Para comprimir, pero sin destruir el archivo origen se puede hacer: Si es solo un archivo: Quote:: cat fichero_a_comprimir | gzip > fichero_salida.gz Si son varios ficheros a comprimir en uno solo Quote:: cat fichero1 fichero2 | gzip > fichero_salida.gz Tue, 05 Jun 2012 09:25:49 GMT