Visual Basic

Editare file di Excel 2007 da VBA o VB6

Francesco Giossi — Fri, 08 May 2009 07:44:11 GMT

Interessante articolo su come editare il formato OPENXML di Excel 2007 utilizzando il buon vecchio VBA o, per estensione, il sempre valido Visual basic 6.

http://www.jkp-ads.com/articles/Excel2007FileFormat02.asp

How to zip a file using Visual Basic 6 and the Windows Shell

Francesco Giossi — Fri, 27 Mar 2009 10:40:32 GMT

When it was a matter of zipping a file, I always choosed the easy way: find a thirdy part activex or dll which could do the job for me.

This time, I wanted to find my away to zip a file using Visual Basic 6 (or Visual Basic for Application - aka VBA) and the windows shell. The consderation came from the fact that, since Windows XP, the support of zipping-unizzping files is a native feature of the OS.

After a long search and multiple fixes, I finally came up with a stable solution which I'm going to quickly explain and post right here. The source code is a mix of pieces of code collected here and there. the only att

Attached to the post it's a zip file containing a working example. It zips the files contained in the testFolder directory.

Click here to download the zip.

I'm going to post just the clsZip class I used to support my zipping project.

clsZip.cls

Option Explicit

Private objShell As Object
Private mvarZipFileName As String

Const FOF_NOCONFIRMATION = &H14

Private Sub Class_Initialize()
Set objShell = CreateObject("Shell.Application")
End Sub

Private Sub Class_Terminate()
Set objShell = Nothing
End Sub

Public Property Let ZipFileName(ByVal vData As String)
    mvarZipFileName = vData
End Property

Public Property Get ZipFileName() As String
    ZipFileName = mvarZipFileName
End Property


Private Sub CreateEmptyZip(sPath)

    Dim strZIPHeader As String
    
    Dim fso As Object
    
    strZIPHeader = Chr$(80) & Chr$(75) & Chr$(5) & Chr$(6) & String(18, vbNullChar)
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    With fso
        .CreateTextFile(sPath).Write strZIPHeader
    End With
    
    Set fso = Nothing
    
End Sub

Public Function AddFilesToZip(sFileNames() As String) As Boolean

Dim i As Long
Dim iCount As Long

    On Error GoTo AddFilesToZip_Error
    
    CreateEmptyZip mvarZipFileName
    
    On Error Resume Next
    For i = LBound(sFileNames) To UBound(sFileNames)
        objShell.Namespace("" & mvarZipFileName).CopyHere "" & sFileNames(i), FOF_NOCONFIRMATION
        
        iCount = objShell.Namespace("" & mvarZipFileName).items.Count
    
        Do Until iCount = i + 1
            Sleep 100
            iCount = objShell.Namespace("" & mvarZipFileName).items.Count
        Loop
        
    Next
        
    On Error GoTo 0
    Exit Function

AddFilesToZip_Error:

    MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure AddFilesToZip of Modulo di classe clsZip"

End Function
Public Function UnzipToFolder(sFolderName As String) As Boolean

    objShell.Namespace("" & sFolderName).CopyHere objShell.Namespace("" & mvarZipFileName).items

End Function

Technorati tags: zip, Visual basic 6, vba, windows shell

10 source code highlighters

Francesco Giossi — Tue, 16 Oct 2007 01:16:44 GMT

While writing your new post to your blog, you need to highlight a piece of source code. Now, what? Here is a list of 10 online services which could save you.

ToHtml.com by Oleg Parashchenko
The most "usable" online code highlighter service, supports a LOT of different languages including SQL, scripts, ancient language (*asm) and newest (.NET)

Quick HighLighter by Veign
A very easy to use website, supports a lot of languages, including PHP, ASP, VB.NET, C#, Ruby and "robots.txt" <--LOL

CodeColor by Asp.NET Resources
It has not many languages to work with and I don't like the idea to have a popoup window with the final highlighted code. It works pretty good though.

GeSHi by Nigel McNie
As written there... "Support for a wide range of popular languages, Easy to add a new language for highlighting, Highly customisable output formats". Excellent idea the option to setup your own highlighiting rules. A must have if you are the owner of a phpbb forum or a Mambo website.

ColorCode by Thomas Johansen hosted @ CsharpFriends by Salman Ahmed
Another very easy interface, altough with no options at all. It just supports C#, VB.NET, J# and T-SQL.

Pygments by Pocoo
Sntax highlighting engine written in Python. It supports many different languages. You can store your pieces of highlighted code for later use. Nice and clean interface. Does not support Visual Basic (which is like incredible)

Code Colorizer by Chami.com
"It can convert your ASP, C/C++, Clipper, Delphi/Pascal, HTML, Java, JavaScript and Visual Basic source code to colorized (syntax highlighted) HTML documents". Very simple interface with few languages supported.

Code Format by manoli.net
Another simple interface. It supports just C#, vb, aspx, html, xml, t.-sql and msh. The output conforms to the HTML 4.01 specification

ActiPro CodeHighlighter by ActiPro Software
This is the one I like more, not because it has something better than the others, but just because, in my eyes, is the easyer one use.

Syntax Highlighter for Microsoft Live Writer by xKnown
This is very very very cool! It's a plugin for Windows Live Writer which allow us to write highlighted source code directly within Windows Live Writer! The plugin can be downloaded @codeplex and Windows Live Writer can be downloaded here.
What's so cool about that? WLW allows you to post new articles directly to your blog (even Subtext!) and there is no need to use your blog platform interface. The plugin allows you to quickly insert an highlighted piece of code of your choice.

OLEDB and text files

Francesco Giossi — Sun, 07 Oct 2007 18:00:14 GMT

This is a very quick example about OLEDB and read a text (.txt) file using Visual Basic 6.
The text file must be formatted as a simple CSV file with a field separator. Something like this

Test.txt

a;1;Test
b;2;Test
c;3;Test
d;4;Test

Supposing "Test.Txt" is stored in the root of the C: harddrive, the code will look like

----------------------------------------

Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cn = CreateObject("ADODB.Connection")
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\;Extended Properties=""text;HDR=No;FMT=Delimited'"""
Set rs = CreateObject("ADODB.Recordset")
rs.Open "SELECT * FROM Test.txt", cn, 0, 1, 1
While Not rs.EOF
Debug.Print rs.Fields(0).Value, rs.Fields(1).Value, rs.Fields(2).Value
rs.MoveNext
Wend
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing

----------------------------------------

Take a look to the connection string

"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\;Extended Properties=""text;HDR=No;FMT=Delimited'"""

the Data Source=c:\; is the key. If you plan to store your text file in a different folde, let's say "c:\documents and settings\Auser\Documents\myTestFiles\", you are required to change the connection string this way:

"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\documents and settings\Auser\Documents\myTestFiles\;Extended Properties=""text;HDR=No;FMT=Delimited'"""