lo tomàs avança » Informàtica

El grep -r de Solaris

Tomàs Reverter — Tue, 30 Jan 2007 12:12:29 +0000

find ./ -type f -a -exec grep text_a_buscar \{\} \; -a -print

Automatitzacio d’impressio VBA (versió PDFCreator)

Tomàs Reverter — Fri, 24 Nov 2006 01:39:48 +0000

Aquesta rutina d’VBA serveix per aplicar un format concret i transformar a PDF tots els fitxers .xls que pengin de les subcarpetes d’un directori.

Option Explicit

Sub ArreglarMargeITransformarAPDF()

Dim fs, f, f1, sf
Dim folderspec
Dim MiNombre As String

folderspec = “C:\Directori\”

Set fs = CreateObject(“Scripting.FileSystemObject”)
Set f = fs.GetFolder(folderspec)
Set sf = f.SubFolders
For Each f1 In sf
Debug.Print f1.Name
MiNombre = Dir(folderspec & f1.Name & “\”)
Do While MiNombre <> “”
If MiNombre Like “*.xls” Then
Workbooks.Open folderspec & f1.Name & “\” & MiNombre
Call arreglarFormat
Call imprimirPDF(folderspec & f1.Name & “\”, Replace(MiNombre, “.xls”, “.pdf”))
ActiveWorkbook.Close savechanges:=True
End If
MiNombre = Dir
Loop
Debug.Print “Imprimit ” & f1.Name
Next

End Sub

Public Sub arreglarFormat()

With ActiveSheet.PageSetup
.LeftMargin = Application.InchesToPoints(0.15)
.RightMargin = Application.InchesToPoints(0.15)
.TopMargin = Application.InchesToPoints(0.15)
.BottomMargin = Application.InchesToPoints(0.15)
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
.PrintErrors = 0
.PaperSize = xlPaperA3
End With

End Sub

Private Sub imprimirPDF(Directori, Fitxer)

Dim PSFileName As String
Dim PDFFileName As String
PSFileName = “c:\tempPOA.ps”
PDFFileName = Directori & Fitxer

‘ Imprimir la fulla
Dim MySheet As Worksheet
Set MySheet = ActiveSheet

‘ Convertir a PDF
Dim pdfjob As PDFCreator.clsPDFCreator
Set pdfjob = New PDFCreator.clsPDFCreator

With pdfjob
If .cStart(“/NoProcessingAtStartup”) = False Then
MsgBox “Can’t initialize PDFCreator.”, vbCritical + _
vbOKOnly, “PrtPDFCreator”
Exit Sub
End If

‘Set details on where to save file to, and flag it automatic
.cOption(“UseAutosave”) = 1
.cOption(“UseAutosaveDirectory”) = 1
.cOption(“AutosaveDirectory”) = Directori
.cOption(“AutosaveFilename”) = Fitxer
.cOption(“AutosaveFormat”) = 0 ‘ 0 = PDF

‘Get ready for the print job
.cClearCache
End With

MySheet.PrintOut copies:=1, ActivePrinter:=”PDFCreator”

‘Wait until the print job has entered the print queue
Do Until pdfjob.cCountOfPrintjobs = 1
DoEvents
Loop
pdfjob.cPrinterStop = False

‘Wait until the PDF file shows up then release the objects
Do Until Dir(Directori & Fitxer) <> “”
DoEvents
Loop

pdfjob.cClose
Set pdfjob = Nothing
End Sub

Automatitzacio d’impressio VBA (versió Acrobat Distiller)

Tomàs Reverter — Fri, 24 Nov 2006 00:38:27 +0000

Aquesta rutina d’VBA serveix per aplicar un format concret i transformar a PDF tots els fitxers .xls que pengin de les subcarpetes d’un directori

Option Explicit

Sub ArreglarMargeITransformarAPDF()

Dim fs, f, f1, sf
Dim folderspec
Dim MiNombre As String

folderspec = “C:\Directori”

Set fs = CreateObject(“Scripting.FileSystemObject”)
Set f = fs.GetFolder(folderspec)
Set sf = f.SubFolders
For Each f1 In sf
Debug.Print f1.Name
MiNombre = Dir(folderspec & f1.Name & “\”)
Do While MiNombre <> “”
If MiNombre Like “*.xls” Then
Workbooks.Open folderspec & f1.Name & “\” & MiNombre
Call arreglarFormat
Call imprimirPDF(folderspec & f1.Name & “\”, Replace(MiNombre, “.xls”, “.pdf”))
ActiveWorkbook.Close savechanges:=True
End If
MiNombre = Dir
Loop
Debug.Print “Imprimit ” & f1.Name
Next

End Sub

Public Sub arreglarFormat()

With ActiveSheet.PageSetup
.LeftMargin = Application.InchesToPoints(0.15)
.RightMargin = Application.InchesToPoints(0.15)
.TopMargin = Application.InchesToPoints(0.15)
.BottomMargin = Application.InchesToPoints(0.15)
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
.PrintErrors = 0
.PaperSize = xlPaperA3
End With

End Sub

Private Sub imprimirPDF(Directori, Fitxer)

Dim PSFileName As String
Dim PDFFileName As String
PSFileName = “c:\tempPOA.ps”
PDFFileName = Directori & Fitxer

‘ Imprimir la fulla
Dim MySheet As Worksheet
Set MySheet = ActiveSheet
MySheet.Activate
MySheet.PrintOut copies:=1, preview:=False, ActivePrinter:=”PDFCreator”, _
printtofile:=True, collate:=True, prtofilename:=PSFileName

‘ Convertir a PDF
Dim myPDF As PdfDistiller
Set myPDF = New PdfDistiller
myPDF.FileToPDF PSFileName, PDFFileName, “”

‘Esborrar el fitxer temporal ps i el de log
Kill PSFileName
Kill Directori & Replace(Fitxer, “.pdf”, “.log”)
End Sub

Recurs informàtico-literari: PDF CHM eBooks

Tomàs Reverter — Tue, 31 Oct 2006 09:37:11 +0000

Buscant un llibre m’he trobat amb aquesta bona web d’on es pot descarregar eBooks en format pdf o chm. A més, la presentació és gairebé com Amazon

PDF CHM eBooks

Val la pena fer-hi un cop d’ull, de debó.

Com no administrar geeks al treball

Tomàs Reverter — Mon, 29 May 2006 08:27:23 +0000

La primera vegada que vaig llegir el Cómo no administrar geeks en el trabajo em vaig quedar pensant quanta raó que tenia:

Cómo no tratar a los geeks en el trabajo

1. Subestimar el entrenamiento.
2. No dar reconocimiento.
3. Demasiado trabajo, más alla de las horas de oficina (creer que los geeks no tienen vida).
4. Hablar como administrador, los geeks no se la creen.
5. Intentar ser más inteligente que los geeks.
6. Actuar inconsistentemente
7. Ignorar a los geeks
8. Tomar decisiones sin consultar a los geeks
9. Insistir en no darles las herramientas de trabajo necesarias (sí, esa computadora carísima nos sirve y mucho).
10. Olvidar que los geeks somos creativos.

Però la que més ajuda a la creació de bon ambient al lloc de treball és la que han afegit a microsiervos:

1. ¡Cámbiales de ordenador a menudo! Eso les mantendrá entretenidos, felices, se sentirán apreciados y además mejorará su productividad

I es que com a mínim jo faria innumerables hores extres a canvi de tenir un parell de Work Cinema de 23” (pq Home Cinema no serien xD) conectat a un futur Mac Pro..

Concurs d’OpenOffice.org Calc

Tomàs Reverter — Mon, 08 May 2006 20:44:21 +0000

Interessant participar al I Concurs Internacional d’OpenOffice.org Calc, que ja fa temps que tinc ganes de començar a tocar l’OpenOffice.org Calc.

Recull de CheatSheets

Tomàs Reverter — Thu, 04 May 2006 10:37:35 +0000

Dios, m’encanten aquest reculls de cheatsheets, va de meravella tenir-los ben a mà.

Com rescatar un disc dur del més enllà

Tomàs Reverter — Fri, 28 Apr 2006 08:30:05 +0000

200 formes de reviure un disc dur (via Alt1040)

Més sobre QuickSilver

Tomàs Reverter — Fri, 28 Apr 2006 08:25:02 +0000

Llegint el blog d’Alt1040 he trobat que els nois de theappleblog han gravat un screencast sobre QuickSilver.

Subversion Screencast

Tomàs Reverter — Thu, 27 Apr 2006 08:57:12 +0000

A ClickableBliss han publicat un screencast de 18 minuts anomenat “Introduction to Subversion Screencast” on realitzen una introducció al control de versions, explicant els principals conceptes i exposant exemples d’ús des de l’escriptori OS X